在VBA中刪除行紀錄代碼

定義一個普通按鈕

 

Private Sub CommandButton1_Click()
ThisWorkbook.Sheets(1).Rows(1).Delete
End Sub

刪除指定行，下面的紀錄向上移

Sub Macro1()
     Rows("11:11").Select
     Selection.Delete Shift:=xlUp
End Sub