在 vba 中声明和使用范围

Question

我对 VBA 很陌生，
今天开发一个宏，我注意到一些有趣的事情。

像这样使用Range 是有效的：

Dim rg As Range     
Set rg = ActiveSheet.Range("A1:B2")  

像这样使用Range 不起作用并导致错误“未设置对象变量”：

Dim rg As Range   
rg = ActiveSheet.Range("A1:B2")  

但是像这样使用Range 是有效的：

Dim rg,rg2 As Range  
rg = ActiveSheet.Range("A1:B2")  

这怎么可能？

Answer 1

您正在发现 Variant 和对象引用。

Range 是一个对象 - Variant 可以是任何东西 包括一个对象。

这是正确的做法：

Dim rg As Range     
Set rg = ActiveSheet.Range("A1:B2")  

因为：

1. 您将rg 明确声明为Range 对象。
2. 您正确地使用 Set 关键字分配对象引用。

---

如果您没有指定 Set 关键字，则您正在使用 VBA 语法为 values 赋值分配对象引用，这是一个错误：

rg = ActiveSheet.Range("A1:B2") 

如果你在同一条指令中声明了多个变量，并且只为最后一个指定了一个类型，那么rg在这里就是Variant：

Dim rg,rg2 As Range  ' this is like doing Dim rg As Variant, rg2 As Range
rg = ActiveSheet.Range("A1:B2")  

VBA 很乐意让您为 Variant 分配几乎任何东西...但事情会在运行时爆炸。

Answer 2

扩展 Mathieu Guidon 的回答：

如果要在同一条指令（一行）中指定两个对象，则应使用以下语法：

Dim rg as Range, rg2 As Range

这将正确地将rg 和rg2 分配为范围对象。

正如 Mathieu Guidon 正确解释的那样，使用 Dim rg, rg2 As Range，只有 rg2 被指定为范围对象（rg 变为 Variant）。