如何使用 VBA 将 excel 公式放入动态范围的单元格中？

Question

我是 VBA 新手，正在使用以下 sn-p 使用 vlookup 函数填充一系列单元格：

With wbk1.Sheets("classes") 
       .Range("AA2:AA" & .Range("C" & .Rows.Count).End(xlUp).Row).Formula = "=VLOOKUP(C2,lookup!$A$2:$B$14,2,FALSE)" 'Actual vlookup

为了使这个动态，我想用动态引用替换.Range("AA2:AA" & .Range("C" & .Rows.Count) 部分（在我的例子中是同一张表中的第一个空列）。

首先，我找到了第一个带有这个单行符的空列：

first_empty_column = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column

但是，当我这样做时

With wbk1.Sheets("classes")
   .Range(ws.Cells(1, first_empty_column) & .Range("C" & .Rows.Count).End(xlUp).Row).Formula = "=VLOOKUP(C2,lookup!$A$2:$B$14,2,FALSE)" 'Actual vlookup

我收到“运行时错误‘1004’：应用程序定义的对象定义的错误。

在这种情况下动态定义硬编码范围的语法是什么？

Answer 1

您需要使用以下Range reference 逻辑：

'PSEUDO-CODE
.Range(LeftTopCell, RightBottomCell)

LeftTopCell 和 RightBottomCell 都可以设置为任何有效的范围引用。 此外，您不能将参考组合到来自两个不同工作表的范围。您在单个范围引用中同时引用了 ws 和 Sheets("classes")。

试试这个：

With wbk1.Sheets("classes")

   .Range(.Cells(1, first_empty_column), _
          .Cells(.Range("C" & .Rows.Count).End(xlUp).Row, first_empty_column)).Formula = "=VLOOKUP(C2,lookup!$A$2:$B$14,2,FALSE)" 'Actual vlookup

End With