Excel VBA统计Pending A/B状态ID报错求助：计数与列表展示异常

需求回顾 #

• 统计Sheet1中状态为Pending A和Pending B的ID总数
• 在UserForm的ListBoxTrial中展示匹配的ID及对应状态
• 在Label1中显示符合条件的记录计数
• 当前代码运行报错且无编译阶段的黄色高亮标记（属于运行时错误）

常见报错原因排查（无黄标=编译通过但运行时触发错误） #

1. 工作表引用模糊：使用ActiveSheet而非明确指定Sheet1，切换工作表后导致数据引用错误
2. ListBox未初始化：未设置ColumnCount或未清空原有内容，导致添加数据时异常
3. 数据范围错误：硬编码行号或未正确获取最后一行，引发单元格引用越界
4. 字符串匹配失效：状态值含前后空格、大小写不一致，导致条件判断不成立
5. 控件名称不匹配：UserForm中控件实际名称与代码中调用的名称不一致

修正后的完整代码示例 #

假设需求通过UserForm初始化事件触发，代码如下：

Private Sub UserForm_Initialize()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim matchCount As Integer
    Dim statusVal As String
    
    ' 明确绑定目标工作表，避免ActiveSheet的不确定性
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    ' 获取ID列（假设为A列）的最后一行数据，可根据实际列调整
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 初始化ListBox属性：设置列数、清空旧数据、定义列宽
    With ListBoxTrial
        .ColumnCount = 2
        .ColumnWidths = "80;100" ' 可根据显示需求调整宽度
        .Clear
    End With
    
    matchCount = 0
    
    ' 从第2行开始遍历（假设第1行为表头）
    For i = 2 To lastRow
        ' 去除状态值前后空格，避免匹配误差
        statusVal = Trim(ws.Cells(i, "B").Value) ' 假设状态列是B列，按需调整
        
        ' 判断是否匹配目标状态
        If statusVal = "Pending A" Or statusVal = "Pending B" Then
            matchCount = matchCount + 1
            ' 向ListBox添加ID和状态
            ListBoxTrial.AddItem ws.Cells(i, "A").Value
            ListBoxTrial.List(ListBoxTrial.ListCount - 1, 1) = statusVal
        End If
    Next i
    
    ' 更新Label显示计数
    Label1.Caption = "符合条件的记录数：" & matchCount
End Sub

关键修正点说明 #

• 明确工作表引用：使用ThisWorkbook.Worksheets("Sheet1")锁定目标工作表，避免工作表切换导致的错误
• 处理字符串空格：用Trim()清理状态值的前后空格，解决输入不规范导致的匹配失败
• 初始化ListBox：提前设置ColumnCount并清空旧数据，确保多列数据正常显示
• 动态获取数据范围：通过End(xlUp)自动定位最后一行，避免硬编码行号引发的越界错误
• 控件名称校验：确认UserForm中控件名称确实为ListBoxTrial和Label1，可在属性窗口查看

额外调试建议 #

1. 按F8逐行执行代码，观察变量值（如lastRow、statusVal），定位报错的具体行
2. 检查Sheet1的实际名称：右键工作表标签查看名称，确保与代码中一致
3. 确认ID和状态列的位置：代码中默认ID在A列、状态在B列，需根据实际数据调整列参数

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