4 種簡單方法快速刪除 Excel 中的多個空白或空行

在進行數據分析、報告或展示之前，刪除 Excel 中的多個空白或空行是必不可少的。空白行可能會破壞數據完整性，複雜化計算，並掩蓋洞察力。本指南介紹了四種簡單的方法來有效地消除這些空白空間，確保您的數據保持連續且易於管理。

• 使用定位至特殊命令刪除空白行（4 步）
• 使用 Kutools 輕鬆刪除區域/工作表/工作簿中的空白行（1 步）
• 使用 VBA代碼刪除空白行（4 步）
• 使用輔助列和篩選函數刪除空白行（7 步）
• 下載示例文件

現在請按照以下步驟使用“定位至特殊”功能刪除空行：

1. 選擇您要刪除空白行的區域，點擊“首頁”選項卡，然後在“編輯”組中，點擊“查找與選擇”>“定位至特殊”。

2. 在“定位至特殊”對話框中，勾選“空白”選項。

3. 點擊“確定”，現在選擇中的所有空白單元格已被選中。

4. 點擊“首頁”選項卡，在“單元格”組中，點擊“刪除”>“刪除工作表行”。

現在包含空白單元格的行已被刪除。

如果您需要一種快速且無錯誤的方法來從選擇區域、當前工作表、選中工作表或整個工作簿中刪除所有空白行，請考慮使用“Kutools for Excel”中的“刪除空白行”工具。此工具簡化了任務，使您能夠僅用一次點擊即可消除空白行，從而避免使用更複雜的方法。

點擊“Kutools”>“刪除”>“刪除空白行”，然後在子下拉列表中選擇您需要的操作。

1. 按“Alt”+“F11”鍵啟用“Microsoft Visual Basic for Applications”窗口。

2. 點擊“插入”>“模塊”創建一個新的“模塊”腳本，將以下代碼複製並粘貼到腳本中。

VBA：刪除空行

Sub DeleteBlankRows()
'Update 20190107
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xRows = WorkRng.Rows.Count
Application.ScreenUpdating = False
For I = xRows To 1 Step -1
    If Application.WorksheetFunction.CountA(WorkRng.Rows(I)) = 0 Then
        WorkRng.Rows(I).EntireRow.Delete XlDeleteShiftDirection.xlShiftUp
    End If
Next
Application.ScreenUpdating = True
End Sub

3. 按“F5”鍵運行代碼，然後在彈出的“KutoolsforExcel”對話框中選擇您要刪除空白行的區域。

4. 點擊“確定”。現在選擇中的空行已被刪除。

1. 在數據區域前插入一列，以插入列 A 為例，然後在 A3 中輸入以下公式以合併第3 行的數據，見截圖：

=B3&C3&D3

提示：如果您的數據跨越列 B3 到列 N，調整公式為 =B3&C3&D3&E3&…&N3。

2. 然後通過拖動自動填充手柄向下填充公式到單元格。

3. 然後點擊“數據”>“篩選”。

4. 然後點擊輔助列上的“篩選圖標”，在下拉列表中僅勾選“空白”選項。見截圖：

5. 點擊“確定”，所有空白行已被篩選出。

6. 選擇篩選出的行，點擊“首頁”>“刪除”>“刪除工作表行”以刪除空白行。

7. 然後再次點擊“數據”>“篩選”以禁用“篩選”功能。

點擊下載示例文件