VBA列表框怎么跨列数据引用

1650018144

老师你好！请问下列代码中怎么引用”产品信息“表中的A、B、C、D、G跨列数据，A6行为列标题，A4以上为空白行
Private Sub UserForm_Initialize()
    arr = Sheets("产品信息").Range("A6").CurrentRegion
    With ListBox1 '设置列表框属性
        .List = arr
        .MultiSelect = fmMultiSelectExtended
        .ColumnCount = 4&G '设置显示的列数
        .ColumnWidths = "65;70;25;25;35" '设置列宽
        .ListStyle = fmListStyleOption
        .ColumnHeads = 1’列标题
        LISTBOX_Post_Flag = 1
        LISTBOX_Mouse_Flag = 1
    End With
End Sub