Excel VBA：在"TOTALS"行上方插入空白行的问题排查与优化

我来帮你搞定这个问题！你的代码没生效主要是因为没有明确指定操作的工作表，而且循环范围可以更高效灵活。咱们直接把两个过程合并，同时修正问题，让它正常工作。

原代码的问题分析 #

• 未指定工作表：insert_row过程里的Cells(r,2)和Rows(r)默认指向当前活动工作表，但Main循环遍历每个工作表时，并没有切换到目标工作表，导致代码没在你需要的工作表上执行，所以看不到效果。
• 固定循环范围不够灵活：从100行开始循环，如果数据超过100行就会漏掉目标行，不如动态获取B列最后一行的行号更合理。

修正后的合并版代码 #

Sub InsertRowAboveTotals()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim r As Long
    
    ' 遍历工作簿中的每个工作表
    For Each ws In ActiveWorkbook.Worksheets
        ' 获取当前工作表B列最后有数据的行号
        lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
        
        ' 从最后一行往上遍历（避免插入行打乱循环顺序）
        For r = lastRow To 1 Step -1
            ' 明确指定当前工作表的B列单元格
            If ws.Cells(r, "B").Value = "TOTALS" Then
                ' 在当前行的上方插入空白行
                ws.Rows(r).Insert
            End If
        Next r
    Next ws
End Sub

代码解释 #

1. 遍历所有工作表：用For Each ws In ActiveWorkbook.Worksheets循环处理每个工作表。
2. 动态获取最后一行：lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row自动找到B列最后有数据的行，避免无效循环。
3. 反向遍历：从最后一行往第一行找，这样插入行后不会影响还没遍历到的行号（如果正向遍历，插入行后后面的行号会往后移，导致漏处理）。
4. 明确指定工作表：所有操作都加上ws.前缀（比如ws.Cells、ws.Rows），确保在当前循环的工作表上执行，而不是默认的活动工作表。

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