全シート全セルの値貼り付けマクロ

Sub 全シート繰り返し

  Application.ScreenUpdating = False

  　Dim Sht As Worksheet

  　　　For Each Sht In Worksheets

  　　　　　Sht.Select

  　　　　　Call 値貼り付け

  　　　Next Sht

  Application.ScreenUpdating = True

End Sub

 

Sub 値貼り付け

    Cells.Select

    Selection.Copy

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

End Sub