如何在VBA中偏移Excel动态公式所用的单元格地址？

问题分析 #

你已通过以下代码获取ADMIN表H列最后一个非空单元格的地址（例如"H16"）：

STCELL = Sheets("ADMIN").Range("h" & Rows.Count).End(xlUp).Address(False, False)

但尝试偏移地址时代码报错，核心问题是语法错误和未正确提取偏移后的地址字符串。原代码Range(" & STCELL & ").Offset(1, 0)存在引号拼接错误，且未获取偏移后的单元格地址。

正确解决方案 #

方案1：优先操作Range对象（推荐）

直接操作单元格对象而非地址字符串，更灵活且不易出错：

' 定义起始单元格对象
Dim stCell As Range
Set stCell = Sheets("ADMIN").Range("h" & Rows.Count).End(xlUp)

' 获取偏移1行的单元格对象
Dim stCellOffset As Range
Set stCellOffset = stCell.Offset(1, 0)

' 如果需要偏移后的地址字符串，调用Address属性
Dim STCELL1 As String
STCELL1 = stCellOffset.Address(False, False)

方案2：从已有的地址字符串转换偏移

如果必须基于已获取的STCELL地址字符串处理：

STCELL = Sheets("ADMIN").Range("h" & Rows.Count).End(xlUp).Address(False, False)
' 将地址转为Range对象后偏移，再提取地址
STCELL1 = Sheets("ADMIN").Range(STCELL).Offset(1, 0).Address(False, False)

结合动态公式使用示例 #

如果要将偏移后的地址用于动态公式，用Range对象的方式更可靠：

Dim stCell As Range
Set stCell = Sheets("ADMIN").Range("h" & Rows.Count).End(xlUp)
Dim targetCell As Range
Set targetCell = stCell.Offset(1, 0)

' 写入公式，使用起始单元格地址
targetCell.Formula = "=INDEX(Mapping!$D:$F,MATCH(" & stCell.Address(False, False) & ",Mapping!$A:$A,0),1)"

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