0

「Departments」(A1:A10、C1:C10、E1:E10) というテーブルの連続していない範囲のセルを複数列のリストボックスに表示しようとしています。

ここで例を見つけましたが、テーブルの最初の行 (A1、C1、E1) しか表示されません。

このコードを編集して、それがどのように機能するかを説明するのを手伝ってくれる人はいますか? :)

よろしくお願いします。

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
4

1 に答える 1