Excel 中處理網絡上或者第三方軟件導出的數據時，經常遇到 Excel 文檔行和行出現多余空白行的情況，這些多余的空白行會影響數據的直觀且占用和浪費空間。怎么簡單方便的刪除這些空白行呢？肯定不能一行一行的刪除，那樣費時又費力，好，今天我么就給大家提供兩種簡變的方法(源數據如圖)：

??

一、利用 Excel快速定位功能

1、選中需要刪除空行的區域，點擊 開始 標簽 --> 編輯 組 --> 查找和選擇 菜單 --> 定位條件... 菜單項 調出 定位條件 對話框，選擇 空白 選項

2、右鍵單擊任意一個定位中的整行都是空白的單元格，在彈出菜單中選擇 刪除 按鈕

3、在彈出的刪除對話框中選擇 整行 選項，然后點擊 確定 按鈕即可

二、VBA 代碼

打開 VBE 編輯器，新建一個標注模塊，在模塊中添加后面所列的代碼，然后將光標定位到代碼中，按 F5 鍵運行代碼即可，代碼如下：

Sub DeleteBlankRows()

Dim I As Long
Dim Rg As Range
Dim xCalculation As XlCalculation
Dim xScreenUpdating As Boolean

xCalculation = Application.Calculation
xScreenUpdating = Application.ScreenUpdating

Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False

Set Rg = ThisWorkbook.ActiveSheet.UsedRange
For I = Rg.Rows.Count To 1 Step -1
If WorksheetFunction.CountA(Rg.Rows(I)) = 0 Then
Rg.Rows(I).EntireRow.Delete
End If
Next I

Application.Calculation = xCalculation
Application.ScreenUpdating = xScreenUpdating

End Sub