excel VBA，检查日期列表属于哪周

Sub CheckWeek()
    Dim rng As Range
    Dim cell As Range
    Dim weekNumber As Integer
    
    '选择日期列表的范围
    Set rng = Range("A1:A10") '将"A1:A10"替换为实际的日期列表范围
    
    '遍历日期列表中的每个单元格
    For Each cell In rng
        '获取单元格的日期值
        Dim dateValue As Date
        dateValue = cell.Value
        
        '使用VBA内置函数获取日期所属的周数
        weekNumber = WorksheetFunction.WeekNum(dateValue)
        
        '将周数输出到相邻的列中
        cell.Offset(0, 1).Value = weekNumber
    Next cell
End Sub