如何在VBA公式中使用用户自定义的Range范围

原代码存在的核心错误 #

• 变量赋值语法错误：Set Time 行缺少等于号，且逻辑不符合需求——你需要A列区域长度和B列Data区域一致，不应该用A2自己的End(xlDown)，否则如果A列有缺值就会取到错误的范围
• 变量命名冲突风险：Time是VBA内置的时间获取函数，用它做自定义变量名可能引发异常
• Range变量调用方式错误：VBA中拼接公式字符串时，需要调用Range对象的Address属性获取单元格地址文本，不能直接在公式字符串里写变量名，也没有.address(变量)这种写法
• 公式参数、语法错误：FORECAST.ETS 函数的参数顺序、引用格式不符合要求，且混合了错误的R1C1相对引用写法
• 冗余的Select操作：依赖ActiveCell很容易因为当前选中单元格位置变化导致公式写入位置错误

修正后的完整代码 #

Dim Data As Range
Dim TimeRange As Range
Dim targetCell As Range

' 定义B列数据区域：从B2到B列最后一个非空单元格，End(xlUp)比End(xlDown)更稳定，不会被中间空行截断
Set Data = Range("B2", Range("B" & Rows.Count).End(xlUp))
' 定义A列对应时间区域：直接偏移一列获取，长度和B列Data完全一致，不需要单独计算行数
Set TimeRange = Data.Offset(0, -1)

' 直接指定公式写入位置，你也可以替换为固定单元格比如Range("C3")，避免依赖选中状态
Set targetCell = ActiveCell.Offset(1, 1)

' 拼接公式，把Range对象的地址作为字符串插入公式文本中
targetCell.Formula = "=FORECAST.ETS([@Timeline]," & Data.Address & "," & TimeRange.Address & ",1,0)"

' 如果需要使用R1C1格式公式，可使用下面的写法
' targetCell.FormulaR1C1 = "=FORECAST.ETS([@Timeline]," & Data.Address(ReferenceStyle:=xlR1C1) & "," & TimeRange.Address(ReferenceStyle:=xlR1C1) & ",1,0)"

关键注意事项 #

• 如果你的表格存在隐藏行、筛选状态，获取最后非空行时建议先取消筛选再执行操作，避免取到错误的范围
• 公式中的[@Timeline]是结构化引用写法，确保你写入公式的单元格属于对应表格的列，否则会出现引用错误

内容的提问来源于stack exchange，提问作者Frank Ciccone II