将行添加到表中，然后将公式添加到行中的多个列

Dim Tbl As ListObject Dim StrFormula1, StrFormula2 As String Dim NewRow As ListRow StrFormula1 = "=HYPERLINK(""#'" & newName & "'!A1"",newName & ""!A1)" StrFormula2 = "=" & newName & "!C9" Set Tbl = Range("tblProjects").ListObject Set NewRow = Tbl.ListRows.Add(AlwaysInsert:=True) NewRow.Range = Array(StrFormula1, StrFormula2) 

对于最后一行，我不断收到错误。 这是基于问题添加新行到Excel表（VBA）

我已经尝试了最后一行的其他选项，但没有一个可以工作。 我不知道是因为他们是公式还是什么 在另一个电子表格中，我使用Range(ResultCol & UCRow).Formula = StrFormula但在这种情况下，范围不是基于表格，而是基于静态单元格值。

那么，我怎样才能将一些公式应用到NewRow ？

Answer 1

更正公式：

 StrFormula1 = "=HYPERLINK(""#'" & newName & "'!A1""," & newName & "!A1)" 

在newName包含空格的情况下，您可能还想在第二个引用中的单引号中包装newName。

 StrFormula1 = "=HYPERLINK(""#'" & newName & "'!A1"",'" & newName & "'!A1)"