遍历工作簿所有工作表并排除指定表的VBA代码报错：End If无对应Block If

嘿，这个报错我太熟悉了——「End If without Block If」本质是你的代码结构和逻辑顺序搞反了，咱们一步步来修正，同时实现你要的「除「New Servers」外所有工作表执行相同操作」的需求：

报错根源 #

你把If wrkSht.Name <> "New Servers"放在了For Each循环之前，这时候wrkSht还没被赋值（循环还没开始遍历任何工作表），而且语法上这个If没有对应代码块就直接接了循环，导致VBA解析时认为结构不完整，抛出报错。

修正后的完整代码 #

Sub Servers3_DeleteIrrelevantColumns()
    'Initialize variables
    Dim currentColumn As Integer
    Dim columnHeading As String
    Dim wrkSht As Worksheet
    
    '遍历工作簿中所有工作表
    For Each wrkSht In ActiveWorkbook.Worksheets
        '跳过「New Servers」工作表
        If wrkSht.Name <> "New Servers" Then
            '替换表头中包含ServerName的内容（补全了你截断的代码，可按需修改替换值）
            wrkSht.Cells(1, 1).EntireRow.Replace What:="*ServerName*", Replacement:="Server Name", _
                LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
                ReplaceFormat:=False
                
            '--- 这里可以添加你要执行的其他操作，比如删除无关列的示例代码 ---
            currentColumn = wrkSht.Cells(1, wrkSht.Columns.Count).End(xlToLeft).Column
            '从最右侧列向左遍历，避免删除列后索引混乱
            Do While currentColumn >= 1
                columnHeading = wrkSht.Cells(1, currentColumn).Value
                '根据你的需求修改判断条件，这里示例保留「Server Name」和「IP Address」列
                If columnHeading <> "Server Name" And columnHeading <> "IP Address" Then
                    wrkSht.Columns(currentColumn).Delete
                End If
                currentColumn = currentColumn - 1
            Loop
            '--- 其他操作结束 ---
        End If '结束跳过工作表的判断
    Next wrkSht '结束工作表遍历
End Sub

关键修改说明 #

• 逻辑顺序调整：把For Each循环放在最外层，先遍历所有工作表，再在循环内部判断是否跳过「New Servers」表，这样wrkSht在判断时已经被正确赋值，不会出现未初始化的问题
• 语法结构修复：每个If都对应了End If，代码块正确嵌套，彻底解决「End If without Block If」的报错
• 补全Replace方法：补充了Replace方法必需的参数（你之前的代码截断了），确保替换表头的功能能正常运行，可根据实际需求修改Replacement的值和匹配规则
• 删除列示例优化：从最右侧列向左遍历删除，避免删除列后列索引混乱，保证所有目标列都能被正确判断和处理

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