如何使用VBA检测周数变化并插入分隔行？

核心思路 #

你的数据已经按日期排序，只需遍历B列日期，对比相邻行的周数——当周数发生变化时插入空行做分隔。推荐从数据末尾往上遍历，避免插入行打乱后续遍历顺序。

代码示例 #

假设数据表头在第1行，有效数据从第2行开始，B列为日期列，可将以下代码添加到现有导入、去重、排序代码之后：

Sub InsertWeekSeparatorRows()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim currentWeek As Integer
    Dim prevWeek As Integer
    
    ' 指定目标工作表，根据实际名称修改
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
    
    ' 从最后一行往上遍历（跳过表头，从第3行开始对比第2行）
    For i = lastRow To 3 Step -1
        ' 用ISO标准计算周数（周一为一周起始），若需周日起始，替换为WeekNum
        currentWeek = WorksheetFunction.ISOWeekNum(ws.Cells(i, "B").Value)
        prevWeek = WorksheetFunction.ISOWeekNum(ws.Cells(i - 1, "B").Value)
        
        ' 检测周数变化
        If currentWeek <> prevWeek Then
            ' 在当前行上方插入分隔行
            ws.Rows(i).Insert Shift:=xlDown
            ' 可选：给分隔行设置灰色背景增强视觉区分
            ws.Rows(i).Interior.ColorIndex = 15
        End If
    Next i
End Sub

关键说明 #

• 周数计算选择：ISOWeekNum遵循国际标准（周一为一周第一天）；若业务需求是周日为一周起始，替换为WorksheetFunction.WeekNum(ws.Cells(i, "B").Value)即可。
• 遍历方向原因：从下往上遍历能避免插入行后，下方行号自动增加导致的重复处理问题。
• 格式自定义：代码中设置分隔行背景色的逻辑是可选的，你可以根据需求调整为边框、字体颜色等，或直接删除该行。
• 数据格式验证：确保B列是真实日期格式（不是文本），否则周数计算会出错。可在循环内添加If Not IsDate(ws.Cells(i, "B").Value) Then Exit For做简单验证。

整合到现有流程 #

在你现有导入、去重、排序代码的末尾，添加调用语句即可：

' 你的现有导入、去重、排序代码...
Call InsertWeekSeparatorRows

内容的提问来源于stack exchange，提问作者Mono