如何正确向多列ListBox添加项？VBA报错‘无效属性数组索引’

这个错误的根源很明确——你的全局变量i在第二次点击时没有重置，加上每次查询前没清空ListBox，导致索引越界了。我给你拆解问题并修复代码：

问题分析 #

1. 全局变量i的隐患：你把i声明为全局变量，第一次点击后i会累加记录行数，第二次点击时i还是上次的数值，但此时ListBox是空的（或者没有那么多行），用这个i去设置List(i, x)就会超出ListBox的行索引范围，直接报错。
2. 未清空ListBox：每次查询前不清空旧数据，不仅会显示重复内容，还会让新添加的项索引逻辑混乱。
3. Range引用不严谨：原来的Range(Range("B1"), Range("B1").End(xlDown))没有指定工作表，如果当前活动 sheet 不是目标表，代码会引用错误的单元格。

修复后的完整代码 #

Private Sub GetDataButton_Click()
    Dim value As Long
    Dim num As Variant
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Integer ' 改为局部变量，每次点击自动重置
    
    ' 第一步：清空ListBox，清除旧数据
    MWOList.Clear
    
    ' 绑定目标工作表，避免活动表切换导致错误
    Set ws = ThisWorkbook.Sheets("S1 Cvtg Eqt List")
    
    ' 获取用户输入的设备编号，先做有效性验证
    If IsNumeric(EquipmentNumber.Value) Then
        value = CLng(EquipmentNumber.Value)
    Else
        MsgBox "请输入有效的设备编号！"
        Exit Sub
    End If
    
    ' 准确获取B列最后一行数据（避免中间空行导致漏查）
    lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
    
    i = 0 ' 初始化索引，从第0行开始赋值
    For Each num In ws.Range("B1:B" & lastRow)
        If num.Value = value Then
            ' 先添加一行，再给各列赋值
            MWOList.AddItem num.Value
            MWOList.List(i, 1) = num.Offset(0, 1).Value
            MWOList.List(i, 2) = num.Offset(0, 2).Value
            MWOList.List(i, 3) = num.Offset(0, 3).Value
            MWOList.List(i, 4) = num.Offset(0, 4).Value
            MWOList.List(i, 5) = num.Offset(0, 5).Value
            i = i + 1 ' 找到匹配项后索引加1
        End If
    Next num
    
    ' 如果没有找到匹配项，提示用户
    If i = 0 Then
        MsgBox "未找到该设备编号的信息！"
    End If
End Sub

关键改动说明 #

• 把i改为局部变量：每次点击按钮时，i都会重新初始化为0，确保从ListBox的第0行开始赋值，彻底解决索引越界问题。
• 添加MWOList.Clear：每次查询前清空ListBox，保证只显示当前查询的结果，逻辑更清晰。
• 指定工作表对象ws：所有Range操作都绑定到目标工作表，避免因用户切换sheet导致的错误。
• 优化行号获取：用ws.Cells(ws.Rows.Count, "B").End(xlUp).Row获取最后一行，比End(xlDown)更可靠，不会因为中间空行提前终止循环。
• 增加输入验证：判断用户输入是否为有效数值，避免非数值输入导致的类型错误。
• 添加无匹配提示：提升用户体验，告诉用户没有找到对应数据。

额外注意事项 #

别忘了确认你的ListBox控件的ColumnCount属性已经设置为6（因为你用到了0到5共6列），如果列数不够，也会触发类似的索引错误。

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