excel - 用于在 Excel 表格中选择多个列的 VBA

Question

据我所知here (也 quoted in SO )以下代码可用于选择 Table1 中第 3 列的数据主体:

ActiveSheet.ListObjects("Table1").ListColumns(3).DataBodyRange.Select

我需要帮助来一起选择多个列 - 例如第 3 至 5 列，或 X 至 X+3 列。

使用this的答案问题我设法使用实际的列名称进行了一半:

Range("Table1[[Column3]:[Column5]]").Select

但我需要能够使用列号而不是名称，因为它们将是函数的结果(即列 X 到 X+d)。

Answer 1

对于连续范围，只需调整单个列的大小即可。

ActiveSheet.ListObjects("Table1").ListColumns(3).DataBodyRange.Resize(, 3).Select

对于更复杂的选择，请在 .Select 过程之前使用 Union 来收集它们。

With ActiveSheet.ListObjects("Table1")
    Union(.ListColumns(3).DataBodyRange, _
          .ListColumns(4).DataBodyRange, _
          .ListColumns(5).DataBodyRange).Select
End With

参见How to avoid using Select in Excel VBA macros以获得更好的方法。