Select .Range 命令中带有 r1c1 符号的单个单元格

Question

我正在尝试 select 使用 r1c1 符号的单个单元格，但我不知道如何操作，到目前为止我已经找到了如何操作。我想要实现的是这样的

Sheets(1).Range("A1,C1,F1,H1").Select 但我想用 r1c1 表示法来做到这一点。

Sheets(1).Range(Cells(1,1),Cells(1,3)...).Select 但有了这个我只能 select 之间的范围到单元格，我不能在没有错误的情况下添加两个以上

有没有办法用 range 命令和 c1r1 符号来做到这一点？

Answer 1

使用联盟：

With Worksheets("Sheet1") 'Change to your sheet name.
    Dim Rng as Range
    Set rng = Union(.Cells(1,1),.Cells(1,3),.Cells(1,6),.Cells(1,8))
    Debug.print rng.Address(0,0)
End With

备注：

应该始终为所有范围对象指定出身。
不鼓励使用.Select，99% 的情况下都可以避免。参见：How to avoid using Select in Excel VBA

Select .Range 命令中带有 r1c1 符号的单个单元格

Select individual cells with r1c1 notation in a .Range command

excel

vba

cell

selection