如何用VBA将Excel日期格式从mm/dd/yyyy转换为yyyyww？

针对你提供的日期列表，以下是两种实现日期转yyyyww格式的VBA方案，分别适配不同的周数计算规则：

方案1：直接设置自定义格式（Excel默认周规则） #

Excel默认以周日为一周起始，且一年第一周至少包含1天。如果接受这个规则，可直接批量设置单元格格式：

Sub FormatAsYYYYWW()
    ' 定义目标区域，这里以A2:B列最后一行为例，可按需修改
    Dim targetRange As Range
    Set targetRange = ThisWorkbook.Sheets("Sheet1").Range("A2:B" & Cells(Rows.Count, "A").End(xlUp).Row)
    
    ' 设置自定义格式：年份+固定"ww"+两位周数
    targetRange.NumberFormat = "yyyy""ww""00"
End Sub

注：直接写yyyyww会被Excel解析为年份+工作日，因此需要用双引号将ww转义，确保显示为yyyywwxx格式。

方案2：计算ISO标准周数（周一为起始） #

如果需要符合ISO 8601标准（周一为一周起始，一年第一周至少包含4天），需通过函数计算周数并处理跨年情况：

Sub ConvertToISOYYYYWW()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 替换为你的工作表名称
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' 获取数据最后一行
    
    ' 遍历处理起止日期列
    For i = 2 To lastRow
        ' 处理Start date列（A列）
        If IsDate(ws.Cells(i, "A").Value) Then
            Dim yearA As Integer, weekA As Integer
            yearA = Year(ws.Cells(i, "A").Value)
            weekA = WorksheetFunction.IsoWeekNum(ws.Cells(i, "A").Value)
            
            ' 修正跨年周的年份（如12月底日期可能属于下一年第1周）
            If weekA = 1 And Month(ws.Cells(i, "A").Value) = 12 Then
                yearA = yearA + 1
            ElseIf weekA >= 52 And Month(ws.Cells(i, "A").Value) = 1 Then
                yearA = yearA - 1
            End If
            
            ws.Cells(i, "A").Value = yearA & "ww" & Format(weekA, "00")
            ws.Cells(i, "A").NumberFormat = "@" ' 设置为文本格式避免自动转换
        End If
        
        ' 处理End date列（B列）
        If IsDate(ws.Cells(i, "B").Value) Then
            Dim yearB As Integer, weekB As Integer
            yearB = Year(ws.Cells(i, "B").Value)
            weekB = WorksheetFunction.IsoWeekNum(ws.Cells(i, "B").Value)
            
            If weekB = 1 And Month(ws.Cells(i, "B").Value) = 12 Then
                yearB = yearB + 1
            ElseIf weekB >= 52 And Month(ws.Cells(i, "B").Value) = 1 Then
                yearB = yearB - 1
            End If
            
            ws.Cells(i, "B").Value = yearB & "ww" & Format(weekB, "00")
            ws.Cells(i, "B").NumberFormat = "@"
        End If
    Next i
End Sub

使用说明 #

1. 替换代码中的Sheet1为你的实际工作表名称；
2. 方案1仅修改单元格格式，不改变原始日期值；方案2会将日期替换为文本格式的yyyyww字符串；
3. 运行前建议备份数据，避免意外。

内容的提问来源于stack exchange，提问作者NALAN YÜCE