复制粘贴宏突然不起作用并显示错误：该命令不能用于多个选择

Question

宏将值从表复制到另一个表中。它工作正常，直到今天它开始表现出这个错误：

复制粘贴宏突然不起作用;显示错误：该命令不能用于多个选择。

宏：

Sub Copy_Results()
Application.ScreenUpdating = False
Dim copySheet As Worksheet
Dim pasteSheet As Worksheet

Set copySheet = Worksheets("Relevant_Sales_Results")
Set pasteSheet = Worksheets("Results")
copySheet.Range("Sales_Table").SpecialCells(xlCellTypeFormulas, xlNumbers).Copy
pasteSheet.Cells(pasteSheet.Cells(2, 2).CurrentRegion.Rows.Count + 1, 1).PasteSpecial xlPasteValues

Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

我感谢任何帮助......

Answer 1

请参阅此微软支持链接： https://support.microsoft.com/en-hk/help/214080/xl2000-error-message-that-command-cannot-be-used-on-multiple-selections

在此链接中提到有＆＃34;不规则范围＆＃34;有时会导致此错误。您可能希望确保您没有尝试复制不相邻的单元格或范围选择＆＃34;