シート全体をコピーしてシート全体へ貼り付ける

トップページ（目次）

109.シート全体をコピーしてシート全体へ貼り付ける

Sub シート全体をコピーしてシート全体へ貼り付ける()
    
    Sheets("Sheet1").Select
    
    Cells.Copy
    
    Sheets("Sheet2").Select
    
    Cells.PasteSpecial
    
End Sub

動作が遅くなることが多いのでデータ量に注意ですが、必ずデータ量が少ないのであれば、余計なことを一切考えなくていいので便利です。