VBA中如何将工作表命名区域的单行赋值给Range变量并访问其值？

问题根源 #

触发运行时错误13（类型不匹配）的核心原因是直接操作Range对象而非其对应的值：

• Debug.Print FirstRow试图打印Range对象本身，但Debug.Print仅支持字符串、数值等基础数据类型
• 遍历逻辑中，i是单个单元格的Range对象，你写Debug.Print "i"只是输出字符串"i"，而非单元格的值

修正后的代码示例 #

1. 正确获取单行单元格的值

Dim FirstRow As Range
Set FirstRow = Worksheets("worksheetname").Range("NamedArea").Rows(1)

' 方式1：通过Cells定位后取Value
Debug.Print FirstRow.Cells(1, 1).Value  ' 获取单行第一列的值
Debug.Print FirstRow.Cells(1, 2).Value  ' 获取单行第二列的值

' 方式2：将整行值存入数组后访问
Dim rowValues As Variant
rowValues = FirstRow.Value
Debug.Print rowValues(1, 1)  ' 二维数组形式访问（即使单行，数组结构也是(1 to 1, 1 to N)）

2. 正确遍历单行单元格

Dim cell As Range
For Each cell In FirstRow
    Debug.Print "hello"
    Debug.Print cell.Value  ' 访问单元格的实际值
Next cell

额外提示 #

如果命名区域是单列结构，.Rows(1)指向单个单元格，可直接用FirstRow.Value获取值；如果是多列结构，FirstRow.Value会返回二维数组，需按数组规则访问元素。

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