VBA中实现多列列表框Listbox

2019-07-07 09:49:00
zstmtony
原创
111

以下代码可将多列数据赋给多列列表框Listbox

Private Sub UserForm_Initialize()

Dim arr
    arr = Sheet2.Range("a1:c" & Sheet2.[a65536].End(xlUp).Row)
    With ListBox1
        .ColumnCount = 3
        .List = arr
    End With
End Sub
分享