VBA EXCEL删除行的方法

最新推荐文章于 2025-02-22 18:12:10 发布

转载最新推荐文章于 2025-02-22 18:12:10 发布 · 2.4k 阅读

3 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/wj-wangjun/archive/2007/09/08/886794.html

文章标签：

#设计模式

本文介绍了一种使用VBA批量删除Excel表格中指定范围内的行的方法，包括单行删除、连续多行删除及按特定间隔删除行等功能，并提供了详细的VBA代码实现。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

' Option Explicit

' Const sheetName As String = "电脑中心"

Private Sub CommandButton1_Click() Sub CommandButton1_Click()

ActiveCell.EntireRow.Delete

End Sub

Private Sub CommandButton2_Click() 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() 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() 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()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
''''''''''''''''''''''''''''''''''''''''''''''''''''