复制粘贴macros突然不起作用，并显示错误：该命令不能用于多个select

该macros将表中的值复制到另一个表中。 它运行良好，直到今天开始行动显示此错误：

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

macros：

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

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

在这个链接中提到有“不规则范围”有时会导致这个错误。 你可能想要确定你没有试图“ 复制不相邻的单元格或范围select ”