VBAEXCEL删除行的方法

'Option Explicit

'Const sheetName As String = \"电脑中⼼\"Private Sub CommandButton1_Click()ActiveCell.EntireRow.DeleteEnd Sub

Private Sub CommandButton2_Click()Dim minYDim maxY

minY = Selection.Row

maxY = Selection.Rows.Count + Selection.Row - 1'从光标所在的⾏到另⼀个指定的⾏

'ActiveWorkbook.Worksheets(\"sheetName\").Range(\"A\" & CStr(minY), \"A\" & CStr(maxY)).EntireRow.DeleteActiveSheet.Range(\"A\" & CStr(minY), \"A\" & CStr(maxY)).EntireRow.DeleteEnd Sub

Private Sub CommandButton3_Click()'TextBox1.Text = ActiveCell.RowTextBox1.Text = Selection.Row

TextBox2.Text = Selection.Rows.Count + Selection.Row - 1End 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 - 1For 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.DeleteNext iEnd 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.TextFor i = x To y Step r

' ActiveWorkbook.Worksheets(\"sheetName\").Range(\"A\" & i, \"A\" & i).EntireRow.Delete ActiveSheet.Range(\"A\" & i, \"A\" & i + d).EntireRow.DeleteNext iEnd Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''