如何在vba的公式中使用用户定义的范围

Question

我正在尝试定义从 B2（常量）开始到最后一个单元格的范围，其中的数据将逐月更改。我想采用相同的范围长度并为 A 列定义另一个范围，该范围也将从 A2（常量）开始，但只会向下延伸至 B 列。我正在尝试将它们标识为范围并在 vba 的公式中使用变暗的范围，但它不喜欢它......有什么想法吗？

Dim Data As range
Dim Time As range
range("b2").Select
'Select Range

Set Data = range("B2", range("B2").End(xlDown))
Set Time("A2", range("A2").End(xlDown))
ActiveCell.Offset(1, 1).Select
ActiveCell.FormulaR1C1 = _
"=FORECAST.ETS([@Timeline],.address(data),.address(time):R[-1]C[-2],1,0)"

Answer 1

你需要关闭公式字符串，添加地址，然后继续：

"=FORECAST.ETS([@Timeline],.address(" & data.address & "),.address(" & 
time.address & "):R[-1]C[-2],1,0)"

注意，由于您使用的是 R1C1 样式，您可能必须在 .address 两个部分上都这样做，

time.address(ReferenceStyle:=xlR1C1)

所以：

"=FORECAST.ETS([@Timeline],.address(" & data.address(ReferenceStyle:=xlR1C1) & "),.address(" & 
time.address(ReferenceStyle:=xlR1C1) & "):R[-1]C[-2],1,0)"

编辑：另外，我会更改关键字Time，因为我认为这是一个保留字。也许Dim timeRng as Range？

Answer 2

除了@BruceWayne 的answer，解决您问题的第一部分：

如果我有一个范围 B2:B50，并且我想要对应的 A 列，那么我可以使用 Offset 函数：

Set time = data.Offset(columnOffset:=-1)

或者，您可以像这样构造列：

Set time = Sheet1.Range("A2").Resize(Rows(data), 1) 'nrows, 1 column

那么你可以把 A2 放在任何地方

---

FWIW：

• range("b2").Select is unnecessary 如果你养成这种习惯，你的代码真的会变慢（这只是因为宏记录器不知道你到底想要什么）。您可以使用 Range("B2").Offset(1,1).FormulaR1C1 而不选择
• 您可以在excel中命名单元格并引用名称：Range("myNamedCell")
• 始终最好在工作表名称前加上完全限定的引用（例如Sheet1.Range("A1")），因为这将始终引用同一个单元格，而Range("A1") 指的是当您运行宏时碰巧选择的任何工作表上的 A1