如何让代码遍历工作表，在每个HDR实例后插入空白行？

嘿，这个问题我太熟了！你遇到的情况大概率是因为正向遍历行时，插入新行会打乱后续的行索引，导致代码跳过了后面的HDR实例，或者你的代码逻辑在找到第一个匹配后就终止了。下面给你两种实用的解决方案：

方法1：反向遍历行（最稳妥的基础写法） #

当需要在匹配行后插入新行时，从最后一行往第一行倒着查是最不容易出问题的方式——毕竟插入新行只会影响当前行下方的内容，倒着走就不会漏掉或者重复处理目标行。

Sub InsertRowsAfterHDR()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 指定要操作的工作表，可替换成具体表名，比如ThisWorkbook.Worksheets("你的表名")
    Set ws = ActiveSheet
    ' 获取数据区域的最后一行（假设HDR在A列，根据实际列调整）
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 从最后一行向上遍历
    For i = lastRow To 1 Step -1
        ' 匹配单元格内容为"HDR"的行（注意大小写敏感，如需忽略可改成UCase(ws.Cells(i,"A").Value)="HDR"）
        If ws.Cells(i, "A").Value = "HDR" Then
            ' 在当前行的下一行插入空白行
            ws.Rows(i + 1).Insert Shift:=xlDown
            ' 若需要给新行设置格式，可在这里添加代码，比如清除格式：
            ' ws.Rows(i + 1).ClearFormats
        End If
    Next i
End Sub

为什么反向遍历有效？ #

如果用正向循环（从第1行到最后一行），当你在第5行插入新行时，原来的第6行会变成第7行，下一次循环i=6时就会跳过原来的第6行。而反向循环从下往上走，插入的新行在当前i的下方，完全不会干扰还没处理的行，能确保每一个HDR实例都被检测到。

方法2：用Find方法循环查找所有HDR实例 #

如果你的数据量较大，用Excel原生的Find和FindNext方法效率更高，而且能精准定位所有匹配项，不会因为行号变化出问题：

Sub InsertRowsAfterHDR_FindMethod()
    Dim ws As Worksheet
    Dim findRange As Range
    Dim firstFoundAddr As String
    
    Set ws = ActiveSheet
    ' 查找第一个HDR所在单元格（假设在A列，按需调整列；LookAt:=xlWhole表示完全匹配，改成xlPart则是包含匹配）
    Set findRange = ws.Columns("A").Find(What:="HDR", LookIn:=xlValues, LookAt:=xlWhole)
    
    If Not findRange Is Nothing Then
        firstFoundAddr = findRange.Address ' 记录第一个匹配的地址，避免无限循环
        Do
            ' 在匹配行的下一行插入空白行
            ws.Rows(findRange.Row + 1).Insert Shift:=xlDown
            ' 继续查找下一个HDR，从当前匹配行的下一行开始，避免重复处理同一单元格
            Set findRange = ws.Columns("A").FindNext(after:=findRange)
        ' 循环直到找不到新的匹配，或者回到第一个匹配的地址
        Loop While Not findRange Is Nothing And findRange.Address <> firstFoundAddr
    End If
End Sub

注意事项 #

• 确认HDR的匹配规则：如果是单元格内容包含HDR而非完全等于，把LookAt:=xlWhole改成LookAt:=xlPart。
• 如果HDR不在A列，把代码中的Columns("A")替换成对应的列（比如Columns("C")）。
• 测试前建议先复制一份数据，避免误操作导致数据丢失。

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