如何在VBA中将列年份转换为YYYY

Sub ConvertYearFormat()
    Dim rng As Range
    Dim cell As Range
    
    '设置要转换的范围，这里假设要转换的数据在A列，从第2行开始
    Set rng = Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row)
    
    '循环遍历每个单元格，并进行转换
    For Each cell In rng
        '将单元格的值转换为日期类型
        cell.Value = DateSerial(cell.Value, 1, 1)
        '将日期格式设置为YYYY
        cell.NumberFormat = "YYYY"
    Next cell
End Sub