實例. Delete方法刪除單元格
Delete方法刪除單元格或者單元格區域，其下面的單元格或者右邊的單元格會往上或者往左移動進來補充。
示例代碼：
#001 Public Sub 示例()
#002 '復制Sheet2表A1單元格區域數據到Sheet1表A1單元格
#003 Sheets("Sheet2").Range("A1").CurrentRegion.Copy Destination:= _
#004 Sheets("Sheet1").Range("A1")
#005 '刪除A1單元格，下面的單元格往上移動進來補充
#006 Range("A1").Delete Shift:=xlShiftUp
#007 '刪除A2:B5單元格，下面的單元格往上移動進來補充
#008 Range("A2:B5").Delete Shift:=xlShiftUp
#009 '刪除A2:B5行單元格，右邊的單元格往左移動進來補充
#010 Range("A2:B5").Delete Shift:=xlShiftToLeft
#011 MsgBox "刪除完畢"
#012 End Sub
運行結果如所示：
Delete方法刪除單元格
代碼說明：
Delete方法刪除單元格或者單元格區域，其下面的單元格或者右邊的單元格會往上或者往左移動進來補充。往上還是往左移動，主要看Shift屬性。
Delete 方法
全部顯示
刪除指定的對象。
expression.Delete
expression 必需。該表達式返回上述對象之一。
應用於 Range對象的 Delete 方法。
刪除指定的對象。
expression.Delete(Shift)
expression 必需。該表達式返回上述對象之一。 Shift XlDeleteShiftDirection 類型，可選。僅用於 Range 對象。指定如何移動單元格來代替刪除的單元格。
最近不斷的免費發送Excel VBA的實例教程，有需要Excel源代碼的請評論區留言、點擊關注和轉發，然后直接私信回復：源代碼
部分實例圖：
部分實例圖