[VBA FormulaArray将数据从一个表拖到另一个表

Posted 2023-01-06

我有两个桌子。 Table1在另一张纸上，我正在尝试提取数据，Table2在页眉纸上，我正在放置数据。这是一个数组公式，其中数据将放置在多个单元格上。这似乎是我陷入困境的地方。我似乎无法将其粘贴，给我一个“ 1004错误”（如果未使用databodyrange）和“未找到方法或数据成员”（如果使用ListColumn）。

[Value Bought Tracker位于标题页上FinalTableSource [购买价值]在第二页上

现在它带有一些更新的代码，但是我仍然遇到1004错误。

Public Sub MakeFinalTable_Click()
'Resize Table

Dim ws As Worksheet, lo As ListObject

Set ws = Sheets("Header")
Set lo = ws.ListObjects("FinalTable")

lo.ListColumns("Value Bought Tracker").DataBodyRange.FormulaArray = "=IFERROR(INDEX(FinalTableSource[Buy Value],SMALL(IF(FinalTableSource[Buy Value]<>"",ROW(FinalTableSource[Buy Value])-ROW(INDEX(FinalTableSource[Buy Value],1,1))+1),ROWS(AA$4:AA4))),"""")"

End Sub

谢谢您的帮助！

答案

Dim ws As Worksheet, lo as ListObject

Set ws = Sheets("Header")
Set lo = ws.ListObjects(1)

lo.ListColumns("Value Bought Tracker").DataBodyRange.FormulaArray = "=IFERROR(INDEX(FinalTableSource[Buy Value],SMALL(IF(FinalTableSource[Buy Value]<>"",ROW(FinalTableSource[Buy Value])-ROW(INDEX(FinalTableSource[Buy Value],1,1))+1),ROWS(AA$4:AA4))),"")"