Excel VBA 选择多个动态范围

Question

我正在尝试选择多个动态范围。尝试使用 union 方法，但我在第一行 Set 行收到 Method 'Range' of 'object' Global Failed 错误。

Dim LR As Long
LR = Range("A60000").End(xlUp).Row

Dim R1, R2, R3, R4, R5, MultiRange As Range
Set R1 = Range("A7,:A" & LR)
Set R2 = Range("D7,:D" & LR)
Set R3 = Range("G7,:G" & LR)
Set R4 = Range("H7,:H" & LR)
Set R5 = Range("J7,:J" & LR)
Set MultiRange = Union(R1, R2, R3, R4, R5)
MultiRange.Select
Selection.Copy

Answer 1

出现此问题的原因是范围语句中的逗号。 IE。当你设置R1时，你应该写:

Set R1 = Range("A7:A" & LR)

此外，当您定义变量的对象类型R1，...，R5时，您应该将其写为

Dim R1 As Range, R2 As Range, R3 As Range, R4 As Range, R5 As Range, MultiRange As Range

否则，R1、...、R5 将被定义为 Variant。这不会造成问题，但会节省内存并使代码更清晰。