VBA EXCEL刪除行的方法

'Option Explicit
'Const sheetName  As String = "電腦中心"



Private Sub CommandButton1_Click()
ActiveCell.EntireRow.Delete
End Sub

Private Sub CommandButton2_Click()
Dim minY
Dim maxY
minY = Selection.Row
maxY = Selection.Rows.Count + Selection.Row - 1

'從光標所在的行到另一個指定的行
'ActiveWorkbook.Worksheets("sheetName").Range("A" & CStr(minY), "A" & CStr(maxY)).EntireRow.Delete
ActiveSheet.Range("A" & CStr(minY), "A" & CStr(maxY)).EntireRow.Delete
End Sub

Private Sub CommandButton3_Click()


'TextBox1.Text = ActiveCell.Row
TextBox1.Text = Selection.Row
TextBox2.Text = Selection.Rows.Count + Selection.Row - 1
End Sub

Private Sub CommandButton4_Click()
    Dim r
    Dim x, y
    r = TxtRow.Text
    Dim i

'隔r行 刪除一行
x = Selection.Row
y = Selection.Rows.Count + Selection.Row - 1
For i = x To y
    i = i + r - 1
   ' ActiveWorkbook.Worksheets("sheetName").Range("A" & i, "A" & i).EntireRow.Delete
    ActiveSheet.Range("A" & i, "A" & i).EntireRow.Delete
Next i
End Sub

精典之作：

''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''
''copy這里的代碼
''1. 將宏的安全設置改為最低  Excel菜單-->工具-->宏-->安全
''2. 請將控制復制到所需的頁面.
''3. 打開編輯器的設計模式
''4. 將各控制改名為代碼相應的名字, 右擊控件－－＞properties-->Name
''''---->a.　要刪除的行數 控件名 TxtDel
''''---->b.　間隔行數 控件名 TxtRow
''''---->c.　起始行   控件名 TxtStart
''''---->d.　終止行   控件名 TxtEnd
''''---->e.　執行按鈕 控件名 CBtnExecute
''5. 退出設計模式。OK了.
''''''''''''''''''''''''''''''
Private Sub CBtnExecute_Click()
    Dim r
    Dim x, y
    Dim i
    Dim d
    r = TxtRow.Text
    
'隔r行 刪除d行 輸入 行號--行號
d = TxtDel.Text - 1
x = TxtStart.Text + CInt(r)
y = TxtEnd.Text
For i = x To y Step r
   ' ActiveWorkbook.Worksheets("sheetName").Range("A" & i, "A" & i).EntireRow.Delete
    ActiveSheet.Range("A" & i, "A" & i + d).EntireRow.Delete
Next i
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''

http://txw100.com/ 

http://swbaidu.com/

http://txnwt.com/