如何删除空行，空单元格行不处理

假设数据表中有整行空的数据，想把所有空行选择，删除。

只要使用一句话就搞定了。

Private Sub CommandButton1_Click() ActiveSheet.UsedRange.SpecialCells(xlCellTypeBlanks).DeleteEnd Sub

用到了整个表用过的单元格中进行特殊选择。

SpecialCells(xlCellTypeBlanks)语句就是可以选择特殊单元格，空白单元格。

但是，如下表格，不但有空行，还有空单元格，现在需要将空行删除，空单元格的行不删除。

可以使用以下代码:

Private Sub CommandButton1_Click() rs = Range("a1048576").End(xlUp).Row For I = rs To 1 Step -1 If Cells(I, "a").End(xlToRight).Address = Cells(I, "xfd").Address Then Cells(I, 1).EntireRow.Delete End If NextEnd Sub

简单讲一下思路。

从最后一行有数据的单元格做循环，判断以下特点，符合条件删除。

光标在A列的单元格，按一下CTRL+向右方向键，如果跳转到xfd,说明整行空的，删除。

Xfd为excel2016最后的列，第一列为A列，第二列为B列。

Cells(1, "a").End(xlToRight)  相当于a1单元格，按CTRL+向右方向键。

子曰：用之则行，不用则藏。

意思是说，如果你用我的这些建议，就马上行动，知行合一，如果你不用，就赶紧收藏，以绝后患。