运行宏时提示「Next without For」错误，请求排查解决

嘿，我帮你排查下这个「Next without For」的问题——这种错误几乎都是因为For循环和Next语句的结构被If/End If块打乱了，导致VBA找不到对应的For来匹配Next。咱们先看符合你需求的正确实现，再拆解问题出在哪。

修正后的完整代码 #

Sub MergeAndDeleteSheets()
    Dim ws As Worksheet
    Dim lastRowConsol As Long
    Dim lastRowWs As Long
    Dim keepSheets As Variant
    Dim i As Integer ' 补充循环变量的声明
    
    ' 定义需要保留的工作表名称数组
    keepSheets = Array("Sheet1", "InvoicesConsolidated", "Merge_Excel", "Consolidated")
    
    ' 从后往前遍历工作表（避免删除工作表时索引混乱）
    For i = ThisWorkbook.Worksheets.Count To 1 Step -1
        Set ws = ThisWorkbook.Worksheets(i)
        
        ' 判断当前工作表是否属于需要保留的列表
        If IsError(Application.Match(ws.Name, keepSheets, 0)) Then
            ' 找到Consolidated表的最后一行（准备粘贴数据）
            With ThisWorkbook.Worksheets("Consolidated")
                lastRowConsol = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
            End With
            
            ' 找到当前工作表的最后一行数据
            lastRowWs = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
            
            ' 复制数据（这里跳过了表头，如果你需要复制表头可以把A2改成A1）
            ws.Range("A2:Z" & lastRowWs).Copy _
                Destination:=ThisWorkbook.Worksheets("Consolidated").Range("A" & lastRowConsol)
            
            ' 关闭删除提示，执行删除操作
            Application.DisplayAlerts = False
            ws.Delete
            Application.DisplayAlerts = True
        End If
    Next i ' 关键：Next必须和For成对，不能被If/End If包裹
End Sub

错误原因&关键注意点 #

你之前触发「Next without For」，大概率是这两个原因之一：

1. 循环结构被破坏：你可能把Next语句写在了End If的内部，导致VBA认为这个Next没有对应的For循环——正确的结构是For和Next必须包裹整个If/End If块，Next要放在End If外面。
2. 循环变量未声明：如果你的代码里没声明循环变量（比如i），在严格模式下也可能触发奇怪的结构错误，所以最好显式声明所有变量。

另外，还有两个重要的细节要注意：

• 从后往前遍历工作表：如果正向遍历（从1到Worksheets.Count），删除一个工作表后，后面的工作表索引会自动往前移，导致你跳过某些工作表没处理。从后往前遍历就完全避免了这个问题。
• 批量判断保留工作表：用Application.Match配合数组来判断工作表是否需要保留，比写一堆Or的条件语句更简洁易维护。

额外建议 #

• 操作前务必备份你的工作簿，避免误删数据；
• 如果担心「Consolidated」表不存在，可以在代码开头加一段判断，自动创建该表（如果需要的话）；
• 如果你需要复制表头，把代码里的A2改成A1即可。

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