excel学习库

今天分享如何利用VBA删除Excel工作表的所有空行或空列。代码精简，逻辑也简单。

删除空行代码

Sub 删除空行()

For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1

If WorksheetFunction.CountA(Rows(i)) = 0 Then

Rows(i).Delete

Next

End Sub

删除空列代码

Sub 删除空列()

For i = ActiveSheet.UsedRange.Columns.Count To 1 Step -1

If WorksheetFunction.CountA(Columns(i)) = 0 Then

Columns(i).Delete

Next

End Sub

代码逻辑

从工作表已用区域UsedRange的最后一行（列）开始，利用Excel工作表函数CountA，倒序判断每一行（列）是否全部为空。若是，则删除该行（列）。