如何用宏程序删除EXCEL工作薄中的某一行

1、在Sheet2中第一列从第一行开始依次输入1、2、……10（验证效果用的）

2、在EXCEL的VBA编辑器中输入如下代码：

Sub test()

Sheets("Sheet2")Activate

Rows("2:2")Delete Shift:=xlUp

MsgBox "请查看删除效果"

Sheets("Sheet1")Activate

End Sub

这里的2可以修改成其他整数试试

笨办法：

1、插入一个空白列

2、在第一行填a，第二行填b

3、选中a、b两个单元格，鼠标移动选定区域右下角，指针变成十字形，按住往下拉。这样空白列就被a、b、a、b。。。间隔填充

4、数据-自动筛选

5、下拉筛选箭头，选你要删除的那些行所在的a或者b

6、选定删除的内容，右键-删除行-确定。

7、以上是隔一行删除，如果要隔2、3、4。。行，就把第二步改成a、b、c、。。。，依此类推。

8、我写得太详细了，您看没看懂都给我插面小红旗吧

打开表格文件，按组合键[ALT]+[F11]，打开宏编辑器

在编辑器中插入模块

然后在右侧出现的模块代码编辑区录入一下程序代码

Sub

去掉元()

表名

=

"sheet1"

列

=

"c"

'此处字母代表你要去掉元字的数据所在的列

开始行

=

1

'此处数字代表你要去掉元字的数据开始的行的行号

结束行

=

100

'此处数字代表你要去掉元字的数据结束的行的行号

For

i

=

开始行

To

结束行

xxx

=

Worksheets(表名)Cells(i,

列)

xxx

=

Left(xxx,

Len(xxx)

-

Len("元"))

Worksheets(表名)Cells(i,

列)

=

xxx

Next

i

End

Sub

关闭宏编辑窗口，[ALT]+[F8]打开宏管理窗口

点击选项按钮，输入快捷键q，然后按确定按钮

之后直接按组合键[CTRL]+[q]，就可以执行程序了，程序中的具体参数根据你的具体情况自己修改吧

Sub del_month()

'

' del_month Macro

'

Dim i As Long

i = Sheets("temp_data")[a1]

Sheets("attendance")select

With Sheets("attendance")

Rows(7 i - 4 & ":" & 7 i + 2)Select

SelectionDelete Shift:=xlUP

End With

'

End Sub

Sub 删除表格内容及数据()

Dim S As Long, D As Long

For S = 2 To 4 Step 2

For D = 1 To Range("D65536")End(xlUp)Row

If Cells(D, S) = 0 Then

Cells(D, S)Clear

Cells(D, S - 1)Clear

Else

End If

Next

Next

Sheets(1)Select

Range("a1")Select

End Sub

使用以上代码，

然后创建宏按钮

选择第一个控件，然后指定这个宏就行了。

有用请采纳！