运行时错误1004，无法完成操作

Question

我使用VBA复制一个表的内容并粘贴到另一个表中。我使用的代码是：

Sub Get_Original_OutPutDataTable()
    Application.DisplayAlerts = False
    Worksheets("Input&Map").Activate
    Range("InitialMap").Select
    Selection.Delete
    Worksheets("OutPutDataTable").Activate
    Range("OutPutDataTable").Select
    Selection.Copy
    Worksheets("Input&Map").Activate
    Range("InitialMap").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Application.DisplayAlerts = True
End Sub

"InitialMap"和"OutPutDataTable"都是Power Query创建的两个表。

有时候，上面的代码运行正常。但是，如果我先刷新"InitialMap"，我会遇到错误。

或其他错误

如果我遇到第二个错误，内容将被粘贴到下一行。例如，如果"InitialMap"从单元格A4开始（第4行包含标题，表格内容从第5行开始），则内容将粘贴到单元格A6中，如下所示 谁知道为什么？

由于

Answer 1

我会将您的InitialMap表替换为一个创建为普通Excel表的表，而不是使用Power Query。

Excel正在尝试保护您免于编辑源自Power Query的表格，因为如果用户刷新PQ或数据，您的更新将被删除。