Excel VBA多列列表框添加非连续范围

Question

我试图弄清楚如何将行中不连续的单元格范围添加到多列列表框，但只有下面的第二行有效。

lbxSelectable.List = Sheets("DB").Range("A1,B1,C1").Value
lbxSelectable.List = Sheets("DB").Range("A1:C1").Value

是否有任何有效的函数可以让我选择一行中的某些列并将其粘贴到多列列表框的条目中？

非常感谢

Answer 1

要将行中不连续的单元格区域显示到多列列表框，您必须首先创建一个数组，然后将其分配给列表框的.list。这是一个例子。

Option Explicit

Private Sub CommandButton1_Click()
    Dim Ar() As String
    Dim rng As Range, cl As Range
    Dim i As Long

    Set rng = Range("A1,C1,E1")

    i = 1

    For Each cl In rng
        ReDim Preserve Ar(1, 1 To i)
        Ar(1, i) = cl.Value
        i = i + 1
    Next

    With ListBox1
        .ColumnCount = i - 1
        .ColumnWidths = "50;50;50"
        .List = Ar
    End With
End Sub

快照