📅  最后修改于: 2022-03-11 14:51:53.157000             🧑  作者: Mango
Sub CopySheetPasteAsValues()
Sheets("Sheet1").Cells.Copy
Sheets("Sheet1").Cells.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub