VBA EXCEL删除行的方法

' 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
''''''''''''''''''''''''''''''''''''''''''''''''''''

http://txw100.com/

http://swbaidu.com/

http://txnwt.com/

转载于:https://www.cnblogs.com/wj-wangjun/archive/2007/09/08/886794.html

VBA EXCEL删除行的方法相关推荐

VBA Excel 自定义函数不能调用成功的问题的解决方法
VBA Excel 自定义函数不能调用成功的问题的解决方法问题以及解决方案的列举(持续更新中) 问题以及解决方案的列举(持续更新中) 自定义函数是自动化各种Excel重复操作的重要函数,我们可以用它 ...
VBA Excel 单元格内多行内容的文字处理方法
VBA Excel 实现单元格内多行内容的文字处理方法在Excel中有很多的函数可以作用于单元格,但是其对单元格整体进行操作,因此单元格数据最好只有一行,这样Excel函数才能运行正确.但是有时候一 ...
各种VBA excel 命令、属性、方法
本示例为设置密码窗口 (1) If Application.InputBox("请输入密码:") = 1234 Then [A1] = 1 '密码正确时执行 Els ...
Excel VBA：填充——FillDown方法
我们还是以录制宏的方式开始了解Range对象的FillDown方法. 如下图所示的操作: Sub Macro1()ActiveCell.FormulaR1C1 = "1"Range ...
java poi 操作Excel 删除行内容和直接删除行
一般情况下,删除行时会面临两种情况:删除行内容但保留行位置.整行删除(删除后下方单元格上移).对应的删除方法分别是: void removeRow(Row row)//Remove a row fro ...
Excel 属性及方法
在Qt操作Excel的过程中,经常需要查询.设置Excel的属性,也会去调用Excel的一些方法,这里我把搜集到的一些Excel属性及方法,整理如下: ActiveWorkbook 当前工作簿,即如果 ...
更改excel2016版本中的VBA project密码的方法
更改2016版本excel中的VBA project密码的方法网上的信息都不是很全面,写得有点敷衍,基本上没有把步骤写得很清楚的,经过一下午血和泪的教训,在放弃的边缘挣扎了很久,终于搞明白了,接下来 ...
python excel操作单元格_python 操作excel表格的方法
说明:由于公司oa暂缺,人事妹子在做考勤的时候,需要通过几个excel表格去交叉比对员工是否有旷工或迟到,工作量大而且容易出错. 这时候it屌丝的机会来啦,花了一天时间给妹子撸了一个自动化脚本. 1. ...
C#生成Excel文件的方法
一个示例: class AppTest { private Excel.ApplicationClass _x; public static void Main0() { AppT ...

VBA EXCEL删除行的方法

VBA EXCEL删除行的方法相关推荐

最新文章

热门文章