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

我试图找出如何添加一个不连续的单元格的行范围到多列列表框，但只有第二行波纹pipe的作品。

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

是否有任何有效的function，可以让我select连续的某些列并将其粘贴在多列列表框的条目中？

非常感谢

Answer 1

要在多列列表框中显示一行中不连续的单元格范围，必须首先创build一个数组，然后将其分配给列表框的列表。 这是一个例子。

 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 

快照