VBA代码向下拖动数据透视表

Question

我得到一个'1004'：应用程序定义或对象定义的错误，我在更新A：D范围内的数据透视表后尝试自动“向下拖动”E列中的公式。更新后，数据透视表的长度可能不同（有时更长，有时更短），这就是我需要使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)"

需要

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

公式（除非使用FormulaLocal属性）需要用英文编写。