VBA宏中用变量替换硬编码方括号区域的问题求助

错误原因分析 #

• 方括号[]是VBA中Evaluate方法的简写，仅支持传入字符串常量，无法直接拼接变量，因此[T3:DX" & lastrow]会触发"对象要求"错误。
• 声明Range对象后，必须使用Set关键字完成赋值操作，直接用Rng = ...会触发"对象变量或With块变量未设置"错误。

正确解决方案 #

使用Range对象并通过Set赋值是最规范可靠的写法，完整代码如下：

Dim Lastrow As Long
Dim Rng As Range

Lastrow = BillSch.Range("S" & Rows.Count).End(xlUp).Row ' 获取BillSch工作表S列的最后一行行号

' 正确初始化Range对象
Set Rng = BillSch.Range("T3:DX" & Lastrow)
Rng.Formula = "=IFERROR(XLOOKUP(1,(BS_ORDERNO=$S3)*(BS_WEEKNO=T$1),BS_CHARGEDPRICE),"""")"

另一种可选写法（不推荐但可行） #

如果坚持使用方括号形式，需先拼接出完整的地址字符串再传入：

Dim Lastrow As Long
Dim addr As String

Lastrow = BillSch.Range("S" & Rows.Count).End(xlUp).Row
addr = "T3:DX" & Lastrow

' 通过拼接好的地址字符串定义区域
BillSch.Range(addr).Formula = "=IFERROR(XLOOKUP(1,(BS_ORDERNO=$S3)*(BS_WEEKNO=T$1),BS_CHARGEDPRICE),"""")"
' 或者直接用方括号简写：
' [BillSch!T3:DX" & Lastrow].Formula = "=IFERROR(XLOOKUP(1,(BS_ORDERNO=$S3)*(BS_WEEKNO=T$1),BS_CHARGEDPRICE),"""")"

注意事项 #

• 确保BillSch是已正确定义的工作表对象，避免因工作表引用失效引发错误。
• 确认命名区域BS_ORDERNO、BS_WEEKNO、BS_CHARGEDPRICE在当前工作簿中存在且引用路径正确。

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