VBA 入門篇：刪除儲存格並移動 RANGE DELETE

 MSDN

語法很簡單，指定儲存格位置(RANGE(XXXXX))，然後使用DELETE，再設定參數。

參數：SHIFT:=xlUp    與SHIFT:=xlToLeft    來控制移動方向

Private Sub CommandButton1_Click()

    Debug.Print "刪除3到4列，向上移"

    ActiveSheet.Rows("3:4").Delete SHIFT:=xlUp    

    Debug.Print "刪除BC行，向左移"    

    ActiveSheet.Range("B:C").Delete SHIFT:=xlToLeft     

    Debug.Print "刪除B1 C1 F1 儲存格"     

    ActiveSheet.Range("B1,D1,F1").Delete SHIFT:=xlToLeft    

End Sub