vba - 将 "cells"与 "range"一起使用

Question

我一直在寻找这个，但没有成功。

我正在尝试在 VBA 中使用单元格命令的范围，并且最后一行是可变的。此外，我没有获得连续的列。

我必须选择范围S2:S9和U2:U9(正如已经说过的，最后一行可以是可变的)。我知道这个命令有效:

Range(Cells(2, 19), Cells(NumberofRows, 19)).select

但是我需要选择两个不连续的不同列。我正在尝试类似的事情但没有成功:

Range(Cells(2, 19), Cells(NumLinhas, 19);(Cells(2, 21), Cells(NumLinhas, 21)).Select

有人知道怎么做吗？

Answer 1

另一个选项是使用Union() Method在 VBA 中。

Union(Range(Cells(2, 19), Cells(NumLinhas, 19)), _
    Range(Cells(2, 21), Cells(NumLinhas, 21))).Select

如果您希望将更多范围添加到联合中，您可以继续向联合中添加范围，如下所示。当您合并循环以将范围添加到联合时，这特别有用。

Dim rngUnion As Range

Set rngUnion = Union(Range("D1:D2"), Range("H1:H2"))
Set rngUnion = Union(rngUnion, Range("B1:B2"))
Set rngUnion = Union(rngUnion, Range("F1:F2"))
rngUnion.Select