如何在VBA For循环中未满足ElseIf条件时进入下一次迭代？报错求助

错误原因分析 #

原代码出现「Next without For」错误，核心问题是Next sheetNumber被错误嵌套在If代码块内部，破坏了For...Next的结构完整性。同时ElseIf dept = 0的逻辑无意义——dept未初始化时为空值，且该分支没有正确处理循环跳转逻辑。

方案1：跳过名称不匹配的工作表 #

当工作表名称不在指定列表中时，直接进入下一次循环。修正后的代码如下：

Dim sheetNumber As Integer
Dim sheetName As String
Dim dept As Integer

For sheetNumber = 4 To 10
    sheetName = Sheets(sheetNumber).Name
    dept = 0 ' 初始化部门编号
    
    If sheetName = "Administration" Then
        dept = 100
        ' 此处添加dept=100对应的业务代码
    ElseIf sheetName = "spin4" Then
        dept = 315
        ' 此处添加dept=315对应的业务代码
    ElseIf sheetName = "Take Steps" Then
        dept = 400
        ' 此处添加dept=400对应的业务代码
    ElseIf sheetName = "Special Events" Then
        dept = 500
        ' 此处添加dept=500对应的业务代码
    ElseIf sheetName = "Major Gifts & Other Fund Rev" Then
        dept = 700
        ' 此处添加dept=700对应的业务代码
    Else
        ' 名称不匹配，直接跳转至下一次循环
        GoTo NextSheet
    End If
    
    ' 匹配成功时执行后续操作，建议避免用Activate，直接操作工作表对象
    ' Sheets(sheetNumber).Range("A1").Value = dept ' 示例操作
    ' 此处写具体业务逻辑
    
NextSheet:
Next sheetNumber

优化提示 #

尽量避免使用Activate/Select这类操作，直接通过工作表对象读写数据更高效，比如上述示例中的Sheets(sheetNumber).Range("A1").Value = dept。

方案2：直接跳过第6、7个工作表 #

如果需求是固定跳过第6、7个工作表，无需判断名称，可在循环开头直接添加判断：

Dim sheetNumber As Integer
Dim sheetName As String
Dim dept As Integer

For sheetNumber = 4 To 10
    ' 跳过第6、7个工作表
    If sheetNumber = 6 Or sheetNumber = 7 Then
        GoTo NextSheet
    End If
    
    sheetName = Sheets(sheetNumber).Name
    dept = 0
    
    If sheetName = "Administration" Then
        dept = 100
    ElseIf sheetName = "spin4" Then
        dept = 315
    ElseIf sheetName = "Take Steps" Then
        dept = 400
    ElseIf sheetName = "Special Events" Then
        dept = 500
    ElseIf sheetName = "Major Gifts & Other Fund Rev" Then
        dept = 700
    End If
    
    ' 执行具体业务逻辑
    ' ...
    
NextSheet:
Next sheetNumber

关键说明 #

• VBA中没有Continue For语句，用GoTo加标签是实现「跳过当前循环」的标准方式，标签名可自定义，只要和Next前的标签对应即可。
• 必须保证For和Next结构完整，所有分支最终都能走到Next语句，避免语法错误。

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