Excel VBA编译错误：Block if without End if，需为两工作表空白行标灰

编译错误原因 #

原代码的核心问题是缺少End If语句：If Not rng Is Nothing Then开启了条件判断块，但没有用End If闭合，导致编译器报错“Block if without End if”。

另外原代码逻辑也不符合需求——它会选中工作表中所有空白单元格，而非“首个空白行之后的空白行”，且仅处理单个工作表。

修正并实现需求的完整代码 #

Sub FormatBlankRowsAfterFirst()
    Dim wsNames As Variant
    Dim ws As Worksheet
    Dim firstBlankRow As Long
    Dim lastRow As Long
    Dim i As Long
    
    ' 指定需要处理的两个工作表
    wsNames = Array("Topic 0001", "Topic 0002")
    
    For Each wsName In wsNames
        Set ws = ThisWorkbook.Worksheets(wsName)
        
        ' 找到A列对应的首个空白行（可根据实际需求修改检查的列）
        firstBlankRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row + 1
        
        ' 获取G列对应的最后数据行（覆盖A到G列的范围）
        lastRow = ws.Cells(ws.Rows.Count, "G").End(xlUp).Row
        
        ' 如果首个空白行之后没有数据，直接跳过当前工作表
        If lastRow < firstBlankRow Then GoTo NextSheet
        
        ' 遍历首个空白行之后的所有行
        For i = firstBlankRow To lastRow
            ' 检查当前行A到G列是否全为空
            If Application.CountA(ws.Range("A" & i & ":G" & i)) = 0 Then
                ' 设置灰色背景（ColorIndex=15为标准灰色）
                ws.Range("A" & i & ":G" & i).Interior.ColorIndex = 15
            End If
        Next i
        
NextSheet:
    Next wsName
End Sub

代码说明 #

• 批量处理：通过数组存储工作表名称，循环遍历两个目标工作表，无需重复写代码
• 精准定位首个空白行：基于A列的最后非空行计算首个空白行位置，可根据实际数据列调整
• 空白行判断：通过CountA函数检查当前行A到G列是否全为空，确保只标记整行空白的行
• 高效稳定：避免使用Select操作，直接引用工作表对象，减少运行错误

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