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

您可以使用串联将变量用作表名。

以下是代码：

Dim ws As Worksheet
Dim tbl As ListObject

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

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

Answer 2

欢迎使用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

但这取决于你需要什么

祝你好运

丹尼尔

用于在Excel表中选择多个列的代码

2 个答案: