用宏在Excel2003表格中隔行删除另一行
- 2022-07-04
- 来源/作者： Wps Office教程网/ 菜鸟图库
- 145 次浏览
由于用户在编辑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”快捷键打开“宏命令窗口”选择刚才输入的名称点击“执行”即可。
执行宏命令完后，如下图所示！
