VBA 返回#REF!粘贴值时

Question

我需要 VBA 来复制和粘贴范围的值，从 A15:I17 到 A14:I16。这是我的代码:

Range("A15:I17").Copy
    Range("A14").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

它将值返回为#REF!使用代码时，但是当我手动执行此操作时，它会完美粘贴。

以下是正在粘贴的单元格中的公式示例:

Range("B17").Formula = "=INDEX('Focus Data Edited'!$G:$G,MATCH(1e99,'Focus Data Edited'!$G:$G))"
Range("C17").Formula = "=(D17+E17)"
Range("D17").Formula = "=INDEX('Focus Data Edited'!$H:$H,MATCH(1e99,'Focus Data Edited'!$H:$H))"
Range("E17").Formula = "=INDEX('Focus Data Edited'!$I:$I,MATCH(1e99,'Focus Data Edited'!$I:$I))"
Range("F17").Formula = "=INDEX('Focus Data Edited'!$J:$J,MATCH(1e99,'Focus Data Edited'!$J:$J))"
Range("G17").Formula = "=INDEX('Focus Data Edited'!$K:$K,MATCH(1e99,'Focus Data Edited'!$K:$K))"
Range("H17").Formula = "=INDEX('Focus Data Edited'!$L:$L,MATCH(1e99,'Focus Data Edited'!$L:$L))"
Range("I17").Formula = "=INDEX('Focus Data Edited'!$M:$M,MATCH(1e99,'Focus Data Edited'!$M:$M))"

如果你能帮助我，请告诉我!

谢谢，
希拉里

Answer 1

您可以使用宏记录器来保存您的手动过程。保存代码后，尝试运行它。如果可行，您可以稍微修改它以使其看起来更好。