您所在的位置:首页 > 学习教程 > office教程 > 正文

office高级应用:如在在Excel2003表格中隔行删除另一行

来源:宁波新锦程 日期:2012/10/12 8:38:37 人气:622 标签:

由于用户在编辑Excel表格的过程中,需要隔行删除另一行的内容,但是一个个删除比较麻烦有没有办法可以快速的删除隔行不要的内容,按照下面的方法可快速将隔行内容删掉。宁波新锦程学校教你用宏如何在Excel2003表格中隔行删除另一行。

操作步骤

1 打开Excel表格,点击菜单栏上的“工具”→“宏(M)”→“宏(M)”。

创建宏

2 在“宏名”栏框中填写“宏名称”在点击“创建”。如下图所示!

输入宏“名称”

3 复制下面代码粘贴到“Microsoft Visual Basic”模块窗口内,关闭“Microsoft Visual Basic”窗口即可保存。

Sub 隔行删除另一行()

Dim iCounter As Integer

Dim iDeleNo As Integer

For iCounter = 1 To 30000

iDeleNo = 2 * iCounter

Rows("" & iDeleNo & ":" & iDeleNo & "").Select

Selection.ClearContents

Next

For iCounter = 1 To 60000

If Rows("" & iCounter & ":" & iCounter & "").Range("A1").Value = "" Then

Rows("" & iCounter & ":" & iCounter & "").Select

Selection.Delete Shift:=xlUp

End If

Next

End Sub

复制代码粘贴到“Microsoft Visual Basic&rdquo”窗口内

4 回到Excel主界面再次点击菜单栏上的“工具”→“宏(M)”→“宏(M)”。

返回Excel主界面

5 或按“Alt+F”快捷键打开“宏命令窗口”选择刚才输入的名称点击“执行”即可。

执行“宏命令”

6 执行宏命令完后,如下图所示!

隔行删除另一行

来源:办公族

    微信 QQ 电话