Excel VBA Multicollumn Listbox добавить непрерывный диапазон

Question

Im пытается выяснить, как добавить непересекающийся диапазон ячеек в строке до многоколоночного списка, но только вторая строка ниже.

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

Есть ли эффективная функция, которая позволит мне выбрать определенный collumns в строке и вставить его в записи в окне списка multicollumn?

Большое спасибо

Answer 1

Чтобы отобразить ноны непрерывного диапазона ячеек в ряде в multicollumn Listbox, вы должны сначала создать массив, а затем присвоить его .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 

СНАПШОТ