在excel中使用VBA来实现隔行删除

1、打开需要隔行删除的excel文件，在标题栏中选择开发工具菜单，找打Visual Basic选项点击进入VBA编辑窗口

2、在VBA编科侵够辑窗口左侧工程资源管理器窗口空白处右键新建模块

3、在新建模块中输入代码，代码如图示

Sub 隔行删除()

a = Application.CountA([a:a])

For i = 1 To a

    If Range("A" & i) = "" Then

        Rows(i).Delete

    End If

Next

End Sub

4、代码输入完成后关闭Visual Basic窗口，在开发工具标题菜单栏下选择插入，插入按钮，然后再表格空白处添加按钮，并指定宏隔行删除。

5、点击新建的宿搁这个按钮就可以实现隔始称行删除。