VBA遍历Range时单个单元格r为何引发ByRef参数类型不匹配？

问题场景 #

你编写了遍历rng（Range对象）的循环，原代码传递rng给parseAndExtract子程序时无编译错误，但将参数改为循环变量r时，触发**“ByRef参数类型不匹配”**错误，且TypeName()检测显示rng和r均为Range类型。

原循环代码：

For Each r In rng
    orgArray = Split(r.Text, "},{")
        
    For Each orgRow In orgArray
        fieldArray = Split(orgRow, """,""")
        Call parseAndExtract(fieldArray, rng)
        
    Next orgRow
        
Next r

子程序签名：

Private Sub parseAndExtract(fieldArray() As String, rng As Range)

核心原因 #

VBA中For Each遍历Range集合时，若未显式声明循环变量r的类型，它默认是Variant类型——虽然当前指向Range对象，TypeName(r)会返回"Range"，但本质是变体类型，而非显式的Range对象类型。

而parseAndExtract的第二个参数默认以ByRef（VBA默认参数传递方式）接收，要求传入显式声明的Range类型变量。Variant类型变量无法直接按ByRef传递给显式对象类型参数，这就导致了类型不匹配错误。

对比之下，rng是你显式声明的Range变量（假设你已通过Dim rng As Range声明），因此能符合参数要求正常传递。

解决方法 #

有两种可行方案：

• 显式声明循环变量r为Range类型：

  Dim r As Range ' 循环前显式声明变量类型
  For Each r In rng
      ' ... 原有逻辑代码
      Call parseAndExtract(fieldArray, r)
  Next r
  

  声明后r成为真正的Range类型，满足ByRef参数的类型要求。
• 将参数传递改为ByVal（若子程序无需修改传入的Range对象）：
  修改子程序签名：

  Private Sub parseAndExtract(fieldArray() As String, ByVal rng As Range)
  

  ByVal传递时，VBA会自动处理Variant到Range的类型转换，不会触发错误。

内容的提问来源于stack exchange，提问作者Block Chords