1.直接使用EXCEL的功能,自动筛选,然后把空白行挑选出来删除就行了。
2.使用VBA代码如下:
Sub DelBankRow()
Dim rRow As Long, LRow As Long, i As Long
rRow = Sheet1.UsedRange.Row
LRow = rRow + Sheet1.UsedRange.Rows.Count - 1
For i = LRow To rRow Step -1
If Application.WorksheetFunction.CountA(Rows(i)) = 0 Then
Rows(i).Delete
End If
Next
End Sub
温馨提示:答案为网友推荐,仅供参考