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

1、打开需要隔行删除的excel文件，在标题栏中选择开发工具菜单，找打Visual Basic选项点击进入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