VBA Створити матрицю з декількох заголовків ListBox, що містять

У мене є ListBox, де є деякі назви стовпців, і я хотів би створити матрицю з лише вибраними стовпцями. Чи є простий спосіб це зробити?

Я насправді намагаюся:

Dim Matrix_a() As Variant
J = 0

For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) Then
       J = J + 1
       Matrix_a.Columns(J) = Price.Columns(i)
    End If
Next i

де "Ціна" - це раніше визначений діапазон. це не працює через "неправильний кваліфікатор", але я не бачу, як його обійти (мій рівень VBA досить низький).

Я щось пропускаю?

тут багато питань:

1. оскільки ви оголосили Matrix_aяк динамічний масив, вам потрібно розмістити його перед використанням
2. вам не потрібно .Columnsпосилання наMatrix_a
3. Proerty ListBox є Column, ніColumns
4. Selectedвластивість ListBox застосовується до рядків, а не до стовпців

Затемнення масиву

'Declaration
Dim Matrix_a() As Variant

' Set a size
Redim Matrix_a(0 to 1, 0 to 1)

' Resize, keeping any existing data intact
Redim Preserve Matrix_a(0 to 1, 0 to 2)

' you can use variables
i = 3
Redim Preserve Matrix_a(0 to 1, 0 to i)

' Note: you can only change the last dimenstion with Preserve
' Having declared (0 to 1, 0 to 1), this won't work:
Redim Preserve Matrix_a(0 to 2, 0 to 1)