複製儲存格範圍

    在使用EXCEL時，我們經常需要複製指定的儲存格範圍到另一個儲存格範圍，要複製指定的儲存格範圍到其他的位置，可以使用Range物件的copy方法。

下列程式碼複製Sheet1到Sheet2從A1開始的位置

Sub 複製儲存格範圍()

   Sheet1.Range("A1").CurrentRegion.Copy Sheet2.Range("A1")

End Sub

    如果Sheet2目標儲存格原本是有內容的話，會跳出一個確認視窗，確認是否要取代目標儲存格的內容，若想略過這個內容可以使用以下語法

Sub 複製儲存格範圍2()

   Application.DisplayAlerts = False

   Sheet1.Range("A1").CurrentRegion.Copy Sheet2.Range("A1")

   Application.DisplayAlerts = True

End Sub

Application.DisplayAlerts = False是設定不出現對話方塊

    如果想要連同欄寬同時複製，則參考以下程式碼

Sub 複製儲存格範圍3()

   Application.DisplayAlerts = False

   Sheet1.Range("A1").CurrentRegion.Copy

   With Sheet2.Range("A1")

      .PasteSpecial xlPasteColumnWidths

      .PasteSpecial xlPasteAll

   End With

   Application.CutCopyMode = False

   Application.DisplayAlerts = True

End Sub