VBAコードがピボットテーブルの隣にある列の数式を下にドラッグ

Question

「1004」が表示されています：アプリケーション定義またはオブジェクト定義のエラー。範囲A：D内のピボットテーブルを更新します。更新後にピボットテーブルの長さが異なることがあります（場合によってはそれ以上の場合もあります）。そのため、列Eを動的にする必要があります。

私が使用したコード：

Dim LastRow As Long 
LastRow = Range("A" & Rows.Count).End(xlUp).Row 
Range("E5").Formula = "=VLOOKUP(A5;Table1[[ID_Number]:[Notes]];37;1)" 
Range("E5").AutoFill Destination:=Range("E5:E" & LastRow) 

Answer 1

あなたのライン

Range("E5").Formula = "=VLOOKUP(A5;Table1[[ID_Number]:[Notes]];37;1)" 

ニーズ（FormulaLocalプロパティを使用していない限り）

Range("E5").Formula = "=VLOOKUP(A5,Table1[[ID_Number]:[Notes]],37,1)" 

式すべきは英語で書かれてする必要があります。