如何调整VBA代码仅将工作表指定列数据加载到ListBox？

原代码通过RowSource加载了连续的大区域数据，要实现仅加载指定离散列的需求，需要调整数据加载逻辑，具体修改如下：

修改后的完整代码 #

Private Sub UserForm_Initialize()
    Dim ws As Worksheet
    Dim LRow As Long
    Dim targetCols As Variant
    Dim resultArr As Variant
    Dim colIdx As Long, rowIdx As Long, arrIdx As Long
    
    ' 定义需要加载的目标列序号（从1开始计数）
    targetCols = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 52, 61, 62, 63, 64, 65, 66, 124, 145, 221, 234, 247, 294)
    
    ' 绑定选中的工作表
    Set ws = ThisWorkbook.Sheets(Mark1.LEADLISTDROPDOWN.Value)
    
    ' 获取数据区域最后一行（以BJ列为准）
    LRow = ws.Range("BJ" & ws.Rows.Count).End(xlUp).Row
    If LRow < 2 Then Exit Sub ' 无数据时直接退出
    
    ' 初始化结果数组：行数为有效数据行数（从第2行开始），列数为目标列数量
    ReDim resultArr(1 To LRow - 1, 1 To UBound(targetCols) + 1)
    
    ' 遍历目标列，将数据填充到结果数组
    For colIdx = LBound(targetCols) To UBound(targetCols)
        arrIdx = colIdx + 1 ' 对应结果数组的列索引
        ' 读取当前目标列第2行到最后一行的内容
        For rowIdx = 2 To LRow
            resultArr(rowIdx - 1, arrIdx) = ws.Cells(rowIdx, targetCols(colIdx)).Value
        Next rowIdx
    Next colIdx
    
    ' 将处理后的数据加载到ListBox
    With PopoutLeadListBox
        .Clear ' 清空原有内容
        .List = resultArr ' 赋值筛选后的列数据
        .ColumnCount = UBound(resultArr, 2) ' 设置ListBox列数
    End With
End Sub

关键修改说明 #

• 放弃RowSource改用List属性：RowSource仅支持连续区域或用逗号分隔的非连续区域地址，但离散列过多时地址字符串会过长且维护麻烦，改用数组存储目标列数据后赋值给List属性更高效灵活
• 目标列集中管理：把需要的列序号放到targetCols数组中，后续新增/删除列只需修改这个数组即可
• 边界校验：增加If LRow < 2 Then Exit Sub，避免工作表无数据时触发数组初始化错误
• 数组填充逻辑：逐列读取指定列的有效数据，填充到结果数组后一次性赋值给ListBox，比逐行添加数据效率更高

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