
打开如图带空白行的表格文件;
按组合按键【Alt+F11】调出VBA编辑器,插入宏取名为【批量删除空白行】;
插入语句查找A列中的空白行并删除(Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete);
执行语句;
返回表格窗口,发现空白行已经被删除完了。

打开如图带空白行的表格文件;
按组合按键【Alt+F11】调出VBA编辑器,插入宏取名为【批量删除空白行】;
插入语句查找A列中的空白行并删除(Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete);
执行语句;
返回表格窗口,发现空白行已经被删除完了。