Excel VBA新手求助：如何用R1C1表示法获取相对单元格的值

嘿，作为VBA新手碰到这个问题太正常啦，我来帮你搞定～

你之前写的代码s="=RC[-11]"之所以只输出公式文本，是因为你只是把R1C1格式的公式字符串赋值给了变量，VBA并不会自动计算这个公式对应的单元格值。下面给你几个简单实用的解决方法：

方法1：用Offset方法直接取值（最直观推荐） #

Offset方法可以指定单元格的行/列偏移量，非常适合新手理解。对于活动单元格，要取左侧11列的值，直接写：

Dim s As Variant
s = ActiveCell.Offset(0, -11).Value

• 参数说明：Offset(行偏移量, 列偏移量)，0表示行位置不变，-11表示向左移动11列（正数是向右）。
• 如果是选中的多个单元格，可以循环处理每个单元格：

Dim cell As Range
Dim cellValue As Variant
For Each cell In Selection
    ' 确保当前单元格左侧有足够列数，避免报错
    If cell.Column > 11 Then
        cellValue = cell.Offset(0, -11).Value
        Debug.Print cellValue ' 可以在立即窗口查看结果
    Else
        MsgBox "单元格 " & cell.Address & " 左侧不足11列！"
    End If
Next cell

方法2：用Evaluate函数计算R1C1公式 #

如果你习惯用R1C1格式的写法，可以用Evaluate函数让VBA计算这个公式对应的单元格值：

Dim s As Variant
s = Evaluate("RC[-11]")

这个函数会自动识别当前活动单元格的位置，计算出RC[-11]指向的单元格的值，而不是返回公式文本。

额外注意事项 #

• 记得判断目标单元格是否存在：如果活动单元格的列数≤11，直接取值会触发错误，所以加个列数判断很有必要（像上面代码里的If cell.Column > 11 Then）。
• 如果目标单元格是公式，Value属性会返回公式计算后的结果；如果要取公式本身，可以用FormulaR1C1属性，但你需求是取值，所以用Value就够了。

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