excel - VBA 错误“无法更改数据表的一部分”

Question

我有创建数据透视表的代码，然后用数据填充另一个工作簿。它打开一个充当数据模板的工作簿，填充它，保存并关闭。它对 8 组不同的数据执行此操作 8 次。我之前已经多次运行此代码而没有问题，现在它似乎开始出现错误：第二组数据（第一个有效）上的“无法更改数据表的一部分”。它出错的部分是......

'Transfers Repairs Data
Range("D27").Select
ActiveCell.FormulaR1C1 = _
    "=VLOOKUP(RC[-1],'[VBA Project.xlsm]Repairs Pivot'!R5C8:R60C11,4,FALSE)"
Selection.AutoFill Destination:=Range("D27:D30"), Type:=xlFillDefault
Range("D27:D30").Select
Range("D85").Select
ActiveCell.FormulaR1C1 = _
    "=VLOOKUP(RC[-1],'[VBA Project.xlsm]Repairs Pivot'!R5C8:R60C11,4,FALSE)"

知道是什么原因造成的吗？

Answer 1

不是真正的答案，而是帮助您的改进。

'Transfers Repairs Data
Range("D27:D30").FormulaR1C1 = _
    "=VLOOKUP(RC[-1],'[VBA Project.xlsm]Repairs Pivot'!R5C8:R60C11,4,FALSE)"
Range("D85").FormulaR1C1 = _
    "=VLOOKUP(RC[-1],'[VBA Project.xlsm]Repairs Pivot'!R5C8:R60C11,4,FALSE)"

还要确保您在正确的工作表上，并且正如其他人所评论的那样，您没有尝试粘贴这些公式的数据表。要使用特定工作表，您可以更改上述内容：

Sheets("Sheet1").Range("D27:D30").FormulaR1C1