Код для выбора нескольких столбцов в таблице Excel

Question

Я новичок в Excel VBA. Мне нужно изменить мой код, чтобы я мог продолжить.

Я хочу выбрать несколько столбцов таблицы в таблице excel. Вот мой код:

Dim ws As Worksheet 
Dim tbl As ListObject 

Set ws = Sheets("Sheet1") 
Set tbl = ws.ListObjects(1) 

Range("tbl[[Column1]:[Column5]]").Select 

Когда я поставил имя таблицы, он работает. но я хочу использовать переменную, которую я использовал в своем коде, чтобы выбрать столбцы таблицы.

Answer 1

Добро пожаловать в Stackoverflow!

Есть много способов сделать это:

вы могли бы использовать:

Range("A:E").Select ' example selects columns from A to E 

В противном случае вы можете также сделать это, используя пример массива:

Sub test() 

Dim x, y As Range, z As Integer 
    x = Array(1, 5) 
    Set y = Columns(x(0)) 
    For z = 1 To UBound(x) 
     Set y = Union(y, Columns(x(z))) 
    Next z 
    y.Select 
    End Sub 

, но это зависит от что вам нужно

С уважением

Daniel

Answer 2

Вы можете использовать конкатенацию, чтобы использовать переменную в качестве имени таблицы.

Вот код:

Dim ws As Worksheet 
Dim tbl As ListObject 

Set ws = Sheets("Sheet1") 
Set tbl = ws.ListObjects(1) 

Range(tbl & "[[Column1]:[Column5]]").Select