VBA：For Each行循环中如何提取指定单元格的Value2属性？

问题场景 #

遍历Range行时提取单元格属性报错，代码如下：

Dim wb as Workbook
Dim ws as Worksheet
Dim curr_region as range

set wb = ThisWorkbook '注：原代码存在拼写错误ThisWoorkbook
set ws = wb.Worksheets(1)
set curr_region = ws.Range("A1").CurrentRegion '该区域为9列24行

For each curr_row in curr_region.Rows
      curr_row(1,2).Value2 ''''错误发生在这里
Next

循环可正常运行，但访问curr_row内单元格值时出错。本地窗口显示curr_row的Value2属性展开后为Value2(1)，进一步展开是Value2(1,1)至Value2(1,9)，尝试多种写法均无效：

curr_row(1,2).Value
curr_Row(1,2).Value2
curr_row.Value2(1,2)
curr_row.Value(1,2)
curr_row(1,2)
curr_row(1)

错误原因 #

1. 直接索引返回的是值而非对象：curr_row是代表整行的Range对象，VBA中Range的默认属性是Value，写curr_row(1,2)时会直接返回该位置单元格的值（字符串、数字等普通数据类型），而非Range对象。普通数据类型没有Value2/Value属性，因此报错。
2. 数组索引格式错误：单行Range的Value2返回的是一维数组（索引对应列号），而非二维数组，所以curr_row.Value2(1,2)的写法不符合数组结构，自然无效。

正确写法 #

以下几种方式均可正确获取第二列单元格的Value2属性：

方法1：通过Cells获取子Range对象 #

curr_row.Cells(1, 2).Value2

Cells(行号, 列号)中的行号相对于当前curr_row（因curr_row是单行，行号固定为1），列号为该行的列索引（1到9）。

方法2：直接访问单行Range的数组值 #

curr_row.Value2(2)

单行Range的Value2返回一维数组，索引对应列的位置，(2)即第二列的值。

方法3：通过Columns定位列Range #

curr_row.Columns(2).Value2

Columns(2)直接定位到该行的第二列Range，再访问其Value2属性。

通用语法规则 #

访问Range子元素属性时需注意：

• 若要操作子单元格的对象属性（如Value2、Font、Interior等），必须先通过.Cells/.Columns/.Rows明确获取子Range对象，再调用属性。
• 若仅需单元格值，可直接使用Value/Value2返回的数组：
  • 单行/单列Range返回一维数组，索引从1开始；
  • 多行多列Range返回二维数组，索引格式为(行号, 列号)，行号、列号均相对于当前Range。
• 避免直接在Range后加括号索引（如curr_row(1,2)），除非你仅需单元格值，无需调用对象属性。

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