如何在VBA中填充列表框？代码运行提示范围错误求排查

问题根源排查 #

你的代码出现范围错误，主要有两个核心原因：

• 工作表名称包含空格，RowSource引用时未给表名添加单引号，导致Excel无法正确识别工作表与数据范围的边界
• 如果C列仅第一行有数据（即last_row=1），开启ColumnHeads=True会把唯一的数据行当作表头，进而触发无有效数据范围的错误

修正后的代码（保留RowSource写法） #

Private Sub PopulateSearchBox()
    Dim wsTL2 As Worksheet
    Set wsTL2 = Worksheets("Task List2")
    Dim last_row As Long
    last_row = wsTL2.Cells(wsTL2.Rows.Count, "C").End(xlUp).Row
    
    Dim dataRange As String
    ' 处理仅表头一行的特殊情况
    If last_row = 1 Then
        dataRange = "'Task List2'!A1:C1"
        With Me.searchBox
            .ColumnHeads = False
            .ColumnCount = 3
            .ColumnWidths = "100,100,100"
            .RowSource = dataRange
        End With
    Else
        ' 给带空格的工作表名加单引号，避免范围识别错误
        dataRange = "'Task List2'!A1:C" & last_row
        With Me.searchBox
            .ColumnHeads = True
            .ColumnCount = 3
            .ColumnWidths = "100,100,100"
            .RowSource = dataRange
        End With
    End If
End Sub

更稳定的替代方案（改用List属性） #

如果不想纠结RowSource的引用规则，直接将单元格区域的值赋值给列表框List属性的写法兼容性更强，也不容易出错：

Private Sub PopulateSearchBox()
    Dim wsTL2 As Worksheet
    Set wsTL2 = Worksheets("Task List2")
    Dim last_row As Long
    last_row = wsTL2.Cells(wsTL2.Rows.Count, "C").End(xlUp).Row
    
    With Me.searchBox
        .ColumnCount = 3
        .ColumnWidths = "100,100,100"
        ' 单独设置表头内容
        .Column(0).Header = wsTL2.Range("A1").Value
        .Column(1).Header = wsTL2.Range("B1").Value
        .Column(2).Header = wsTL2.Range("C1").Value
        ' 直接加载数据行
        .List = wsTL2.Range("A2:C" & last_row).Value
    End With
End Sub

额外检查项 #

• 确认Task List2工作表确实存在，且名称拼写完全一致
• 检查C列最后一行是否为有效数据行，避免空单元格导致last_row计算偏差

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