在Excel中使用VBA从日期提取连续且唯一的年份列表

Sub ExtractUniqueYears()
    Dim rng As Range
    Dim cell As Range
    Dim years As Collection
    
    ' 设置日期范围
    Set rng = Range("A1:A10") ' 将范围更改为实际的日期范围
    
    ' 创建一个集合来存储唯一的年份
    Set years = New Collection
    
    ' 遍历日期范围并提取年份
    On Error Resume Next
    For Each cell In rng
        years.Add Year(cell.Value), CStr(Year(cell.Value))
    Next cell
    On Error GoTo 0
    
    ' 将唯一的年份列表输出到新的列中
    For i = 1 To years.Count
        Cells(i, 2).Value = years(i)
    Next i
End Sub