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

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

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

3、在新建模块中输入代码，代码如图示Sub 隔行删除()a = Application.CountA([a:a])For i = 1 To a If Range("A" &锾攒揉敫amp; i) = "" Then Rows(i).Delete End IfNextEnd Sub

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

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