宏将一个表中的值复制到另一个表中。它运行得很好,直到今天它开始运行,显示了这个错误:
复制粘贴宏突然不起作用;显示错误:该命令不能用于多个选择。
宏:
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
我非常感谢你的帮助...
发布于 2017-06-26 19:36:47
在这个链接中提到,“不规则范围”有时会导致这个错误。您可能希望确保您没有试图“复制不相邻的单元格或区域选择”
https://stackoverflow.com/questions/44767064
复制相似问题