在處理Excel數(shù)據(jù)時有時候難免會遇到數(shù)據(jù)中有一些空行需要刪除，當非連續(xù)的空行較多時，一行一行選中再刪除的方法顯然不可以取。下面介紹如何通過幾行VBA代碼一鍵實現(xiàn)刪除。

動態(tài)效果圖

代碼：

Sub deleblankrow()

Dim Frow, Erow, j As Integer

Frow = ActiveSheet.UsedRange.Row '獲取第一個非空行的行號

Erow = Frow ActiveSheet.UsedRange.Rows.Count - 1 '獲取最后一個非空行的行號

For j = Erow To 1 Step -1 '從數(shù)據(jù)最后一行依次向上查找，找到一個空行刪除一行

      If Application.WorksheetFunction.CountA(Rows(j)) = 0 Then

         Rows(j).Delete

      End If

Next j

End Sub

拓展：

如何刪除數(shù)據(jù)中的空列？