使用macros清除WorkSheet的内容，而不清除剪贴板

如何使用macros清除Excel表格的内容，而不清除剪贴板的内容？

我目前正在使用下面的代码（通过单击表单上的button来调用），但是这会清除剪贴板中的数据，这些数据是我从其他源复制的，并且要粘贴到已清除的表单中

Sub clearly() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets ws.UsedRange.ClearContents Next ws End Sub 

Answer 1

我已经从其他来源复制，并希望粘贴在清除的工作表

为什么不创build临时工作表并粘贴数据，然后清除所有工作表。 完成后，将数据从临时表复制到相关表并删除临时表？

看到这个（ TRIED AND TESTED ）

 Sub clearly() Dim ws As Worksheet, wsTemp As Worksheet '~~> Create a Temp Sheet Set wsTemp = Sheets.Add '~~> Copy clipboad data to temp sheet wsTemp.Range("A1").PasteSpecial xlPasteAll '~~> Clear contents of all sheets except temp sheet For Each ws In ThisWorkbook.Worksheets If ws.Name <> wsTemp.Name Then ws.Cells.ClearContents Next ws '~~> Copy data from temp sheet to relevant sheet wsTemp.Cells.Copy Sheets("Sheet1").Cells '~~> Delete temp sheet Application.DisplayAlerts = False wsTemp.Delete Application.DisplayAlerts = True End Sub