Excel 一键删除空白行，轻松优化数据

初始有空行的数据：

Sub 删除空行() Dim rng As Range '声明一个Range类型的对象变量 Set rng = ActiveSheet.UsedRange '将已用区域赋值给变量，后续可以用这个变量替代已用区域 '引用工作表最后一列，存放辅助数据。选中所有行，填充公式，删除错误的行。 With Cells(rng.Row, Columns.Count).Resize(rng.Rows.Count, 1) '在辅助区域中写入公式，公式的含义是计算已用数据区域中的当前行的数据个数，然后0除以数据个数 '目的是将数据个数大于0(即非空行)时返回0值，而数据个数等于0（即空行）时返回错误值 .Formula = "=0/counta(" & rng.Cells(1).Resize(1, rng.Columns.Count).Address(0, 0) & ")" '在辅助区中定位结果为错误值的公式所在单元格，然后整行删除 .SpecialCells(xlCellTypeFormulas, 16).EntireRow.Delete '删除辅助区域 .EntireColumn.Delete End WithEnd Sub