VBA Excel：循环最后一次迭代时If条件触发运行时错误求助

嘿，我来帮你捋捋这个问题！你提到循环的最后一次迭代时If语句总会触发运行时错误，结合你贴的代码片段，我先给你分析几个最可能的原因，再给你排查和修复的思路：

首先，先修正代码里的小问题 #

你代码里的&是HTML转义后的字符，实际写VBA时要改成&，不然控件名称会生成CheckBox&1这种无效格式，这很可能是后续引用控件时出错的导火索。

常见的最后一次循环出错原因及排查步骤 #

1. 循环边界的合理性问题
   你用了For counter = 1 To Sheets.count - 2，这个逻辑是排除最后2个工作表对吧？但要注意：

   • 如果工作簿里的工作表总数刚好是2，这个循环范围会变成1 To 0，循环根本不会执行；
   • 如果最后一次循环的counter对应的工作表不存在（比如被删除过，或者索引对应错了），访问Sheets(counter)就会触发“下标越界”错误。
     👉 排查方法：在循环里加一行Debug.Print counter, Sheets(counter).Name，运行后看立即窗口的输出，确认最后一次循环的工作表是不是你预期的那个。

2. 复选框控件的引用问题
   如果你在后续处理（比如提取数据的代码里）是通过Me.Frame1.Controls("CheckBox" & counter)来引用复选框，那最后一次循环时，这个控件可能根本没创建成功：

   • 比如控件名称重复（如果之前没清空Frame里的旧控件）；
   • 或者Frame的空间不够，最后一个复选框没显示出来但实际存在？不对，没显示也应该能引用。
     👉 排查方法：在循环结束后，用Debug.Print Me.Frame1.Controls.Count看看控件总数是不是等于Sheets.count - 2，如果少了，说明最后一个控件没创建成功。

3. If语句内的逻辑错误（最可能的核心问题）
   你说错误出在If语句里，那大概率是提取数据的逻辑有问题，比如：

   • 最后一个工作表的结构和前面的不一样（比如没有你要提取的列，或者数据为空）；
   • 访问单元格时用了固定范围（比如Range("A1:Z100")），但最后一个工作表的有效数据行数不足；
   • 工作表被保护了，无法读取数据；
   • 汇总数据的目标工作表引用错误（比如你用了Sheets("汇总")但这个表不存在）。
     👉 排查方法：给代码加错误捕获，定位具体错误：

     For counter = 1 To Sheets.count - 2
         On Error Resume Next
         Set chkBox = Me.Frame1.Controls("CheckBox" & counter)
         If Err.Number <> 0 Then
             Debug.Print "控件引用错误：" & Err.Description
             Err.Clear
         End If
         
         If chkBox.Value = True Then
             On Error GoTo ErrorHandler
             ' 你的提取数据代码
         End If
     Next counter
     Exit Sub
     
     ErrorHandler:
         Debug.Print "循环次数：" & counter & "，错误信息：" & Err.Description
         Resume Next
     

     运行后看立即窗口的错误信息，就能精准定位哪里出问题了。

给你一个更稳健的示例代码 #

我调整了你的代码，解决了几个常见的坑，你可以参考：

Option Explicit
Private Sub UserForm_Initialize()
    Dim ws As Worksheet
    Dim chkBox As MSForms.CheckBox
    Dim counter As Long
    
    ' 先清空Frame里的旧控件，避免重复添加导致名称冲突
    For Each chkBox In Me.Frame1.Controls
        Me.Frame1.Controls.Remove chkBox.Name
    Next chkBox
    
    counter = 1
    ' 用For Each遍历工作表，排除指定的不需要的表（比用索引更可靠）
    For Each ws In ThisWorkbook.Sheets
        ' 替换成你要排除的工作表名称
        If ws.Name <> "汇总表" And ws.Name <> "设置表" Then
            Set chkBox = Me.Frame1.Controls.Add("Forms.CheckBox.1", "CheckBox" & counter)
            chkBox.Caption = ws.Name ' 把工作表名设为复选框标题，方便识别
            chkBox.Top = (counter - 1) * 22 ' 垂直排列，间距22
            chkBox.Left = 10
            counter = counter + 1
        End If
    Next ws
End Sub

' 提取数据的按钮点击事件示例
Private Sub cmdExtractData_Click()
    Dim chkBox As MSForms.CheckBox
    Dim sourceWs As Worksheet
    Dim targetWs As Worksheet
    Dim lastRow As Long
    Dim targetLastRow As Long
    
    ' 设定汇总表（替换成你的汇总表名称）
    On Error Resume Next
    Set targetWs = ThisWorkbook.Sheets("汇总表")
    If Err.Number <> 0 Then
        MsgBox "汇总表不存在，请先创建！", vbCritical
        Exit Sub
    End If
    On Error GoTo 0
    
    For Each chkBox In Me.Frame1.Controls
        If chkBox.Value = True Then
            ' 根据复选框标题找到对应的工作表
            Set sourceWs = ThisWorkbook.Sheets(chkBox.Caption)
            ' 获取数据源的最后一行
            lastRow = sourceWs.Cells(sourceWs.Rows.Count, "A").End(xlUp).Row
            ' 获取汇总表的最后一行
            targetLastRow = targetWs.Cells(targetWs.Rows.Count, "A").End(xlUp).Row + 1
            ' 复制数据（这里假设复制A到C列，你可以按需调整）
            sourceWs.Range("A1:C" & lastRow).Copy targetWs.Range("A" & targetLastRow)
        End If
    Next chkBox
    
    MsgBox "数据提取完成！", vbInformation
End Sub

这个版本用For Each遍历工作表，避免了索引越界的问题；同时先清空旧控件，防止重复添加；还通过复选框标题直接关联工作表，比用counter索引更可靠。

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