68手游网

由于用户在编辑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”快捷键打开“宏命令窗口”选择刚才输入的名称点击“执行”即可。

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