如何用VBA从Sheet1指定列提取数据到3列ListBox1

原代码问题分析 #

你的代码存在三个关键问题：

• Range语法错误：Range(r & "B2")写法颠倒，正确范围格式应为"列标+行号"，比如"B2:B" & r；
• 重复赋值覆盖：两次给ListBox1.List赋值，后一次会完全覆盖前一次的内容；
• 未设置列数：没有指定ListBox的ColumnCount属性，即使传入多列数据也无法正确显示。

正确实现代码 #

以下是可靠的实现方式，通过数组组合三列数据，高效填充ListBox：

Private Sub UserForm_Initialize()
    Dim lastRow As Long
    Dim dataArr() As Variant
    Dim i As Long
    
    ' 设置ListBox显示3列，可自定义列宽（单位：磅）
    ListBox1.ColumnCount = 3
    ListBox1.ColumnWidths = "80;80;80" ' 按需调整
    
    ' 获取Sheet1的最后一行（使用你的Rnum函数，或替换为下方注释的通用写法）
    lastRow = Rnum()
    ' lastRow = Sheet1.Cells(Sheet1.Rows.Count, "B").End(xlUp).Row ' 通用获取最后行的方法
    
    ' 初始化数组，行数为数据总行数（从第2行开始），列数固定为3
    ReDim dataArr(1 To lastRow - 1, 1 To 3)
    
    ' 循环读取B、C、G列数据到数组
    For i = 1 To lastRow - 1
        dataArr(i, 1) = Sheet1.Cells(i + 1, "B").Value ' 第2行对应数组第1个元素
        dataArr(i, 2) = Sheet1.Cells(i + 1, "C").Value
        dataArr(i, 3) = Sheet1.Cells(i + 1, "G").Value
    Next i
    
    ' 将数组数据赋值给ListBox
    ListBox1.List = dataArr
End Sub

补充说明 #

• 建议把代码放在UserForm_Initialize事件中，而不是UserForm_Active，因为Initialize只在窗体加载时执行一次，避免重复加载数据；
• 如果你的Rnum()函数能准确返回Sheet1的最后一行，就保留使用；如果不确定，替换成注释里的通用写法更稳妥；
• ColumnWidths是可选设置，根据实际需求调整每列的宽度即可。

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