用宏在Excel2003表格中隔行删除另一行（表格每隔一行删除一行）

用宏在Excel2003表格中隔行删除另一行（表格每隔一行删除一行）

由于用户在编辑Excel表格的过程中，需要隔行删除另一行的内容，但是一个个删除比较麻烦有没有办法可以快速的删除隔行不要的内容，按照下面的方法可快速将隔行内容删掉。

操作步骤

打开Excel表格，点击菜单栏上的“工具”→“宏（M）”→“宏（M）”。

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

复制下面代码粘贴到“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

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

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

执行宏命令完后，如下图所示！

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。