求助：如何让VBA宏在分组数据插入行时添加表头

以下是修改后的完整代码，可实现A列分组变化时插入带表头的分隔行：

Sub InsertRowWithHeader()
    Dim ws As Worksheet
    Dim lr As Long
    Dim i As Long

    Set ws = Worksheets("Sheet1") ' 指定目标工作表
    lr = ws.Range("A" & Rows.Count).End(xlUp).Row ' 获取A列最后一行数据行号
    
    ' 从倒数第二行向上遍历，避免插入行影响遍历逻辑
    For i = lr - 1 To 2 Step -1
        ' 判断当前行与下一行A列值是否不同
        If ws.Range("A" & i).Value <> ws.Range("A" & i + 1).Value Then
            ws.Range("A" & i + 1).EntireRow.Insert ' 插入空行
            ' 将第1行的表头内容（含格式）复制到新插入的行
            ws.Rows(1).Copy Destination:=ws.Rows(i + 1)
        End If
    Next i
End Sub

关键修改说明 #

• 新增表头复制逻辑：在插入空行后，通过ws.Rows(1).Copy将第1行的表头完整复制到新插入的行（包含单元格格式、公式等），如果仅需复制值，可替换为：

  ws.Rows(i + 1).Value = ws.Rows(1).Value
  

• 保持倒序遍历：原代码的倒序遍历逻辑保留，避免插入行导致后续行号错乱，确保遍历覆盖所有需要判断的行
• 假设表头位于第1行，如果你的表头在其他行（比如第2行），只需将代码中的ws.Rows(1)替换为对应行号（如ws.Rows(2)）即可

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