如何正确地将列添加到 Excel 表并使用 VBA 插入公式

Question

我希望能够添加列并插入从 pivot 表中查找值的公式。 'Peer Group Name' 是表格列之一。 到目前为止，我正在这样做：

Set wrk = ThisWorkbook
Set trg_sht = wrk.Worksheets("Peers & Instruments - Overview")
Set tbl = trg_sht.ListObjects("Peers_Instruments_Values")

' Add few additional columns on position 26 & 27
tbl.ListColumns.Add(26).Name = "Median 1Y Return"
tbl.ListColumns.Add(27).Name = "Max 1Y Return"

tbl.ListColumns("Median 1Y Return").DataBodyRange.FormulaR1C1 = "=VLOOKUP([@[Peer Group Name]]," & "'" & CStr(wrk.Worksheets("Peer Group Stats") & "'" & "!C[-25]:C[-22],3,0)")

所以正在添加两列，但公式没有。 知道为什么吗？ 是否与错误的列引用有关？

Answer 1

这看起来不对：

CStr(wrk.Worksheets("Peer Group Stats") & "'" & "!C[-25]:C[-22],3,0)")

您不需要对工作表的引用，也不需要CStr 。 您只需要可以硬编码的工作表名称：

tbl.ListColumns("Median 1Y Return").DataBodyRange.FormulaR1C1 = "=VLOOKUP([@[Peer Group Name]],'Peer Group Stats'!C[-25]:C[-22],3,0)"