Excel VBA需求：按指定规则插入带标识的空白行

需求回顾 #

• 在T列值为“True”的行上方插入空白行，该行D列填入>JOBSTART
• 所有>JOBSTART所在行（除D2单元格外）上方插入空白行，该行D列填入>JOBEND
• 最后一行添加>JOBEND

问题分析 #

你提供的原代码仅处理S列空白单元格的行插入逻辑，与需求完全不匹配，因此无法实现预期效果。

正确VBA代码 #

Sub InsertJobMarkers()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 指定操作的工作表，可修改为具体名称，例如：Set ws = ThisWorkbook.Worksheets("Sheet1")
    Set ws = ActiveSheet
    
    ' 关闭屏幕更新，提升运行速度
    Application.ScreenUpdating = False
    
    ' ---- 处理需求1：插入>JOBSTART ----
    lastRow = ws.Cells(ws.Rows.Count, "T").End(xlUp).Row
    ' 从下往上遍历，避免插入行导致行号偏移
    For i = lastRow To 2 Step -1
        If ws.Cells(i, "T").Value = True Then
            ws.Rows(i).Insert Shift:=xlDown
            ws.Cells(i, "D").Value = ">JOBSTART"
            lastRow = lastRow + 1 ' 插入行后更新最后行号
        End If
    Next i
    
    ' ---- 处理需求2：插入>JOBEND（排除D2） ----
    lastRow = ws.Cells(ws.Rows.Count, "D").End(xlUp).Row
    ' 从第3行开始遍历，跳过D2的情况
    For i = lastRow To 3 Step -1
        If ws.Cells(i, "D").Value = ">JOBSTART" Then
            ws.Rows(i).Insert Shift:=xlDown
            ws.Cells(i, "D").Value = ">JOBEND"
            lastRow = lastRow + 1
        End If
    Next i
    
    ' ---- 处理需求3：最后一行添加>JOBEND ----
    ws.Rows(lastRow + 1).Insert Shift:=xlDown
    ws.Cells(lastRow + 1, "D").Value = ">JOBEND"
    
    ' 恢复屏幕更新
    Application.ScreenUpdating = True
End Sub

代码说明 #

1. 从下往上遍历：插入行后会改变下方行的行号，从下往上处理能避免遗漏目标行
2. 动态更新最后行号：每次插入行后同步更新lastRow，确保后续遍历范围准确
3. 关闭屏幕更新：减少界面刷新，大幅提升代码运行效率
4. 分阶段处理：依次完成三个需求，逻辑清晰不易出错

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