VBA小程序_遍历所有工作表_复制粘贴为数值

Sub VBA小程序_遍历所有工作表_复制粘贴为数值()
    Dim sht As Worksheet
    For Each sht In Worksheets
        sht.Activate
        sht.Cells.Copy
        sht.Cells.PasteSpecial Paste:=xlPasteValues
        Cells(1, 1).Select
    Next
    Application.CutCopyMode = False
End Sub