如何刪除 Excel 儲存格中的所有空白列，或僅保留第一行？

作者Siluvia修改日期2024-12-02

您可能會收到一份工作簿，其中儲存格包含多行文字，並夾雜空白列。該如何刪除這些儲存格中的空白列？又該如何僅保留第一行？本文將逐步引導您完成整個操作流程。

使用 VBA 程式碼刪除儲存格中的所有空白列
 使用 VBA 程式碼僅刪除儲存格中的第一行

使用 VBA 程式碼刪除儲存格中的所有空白列

如下圖所示，若要刪除儲存格中的所有空白列，只需執行下列 VBA 程式碼即可輕鬆完成。

1. 按下鍵盤上的 Alt+F11 鍵，即可立即開啟 Microsoft Visual Basic for Applications 視窗！

2. 在 Microsoft Visual Basic for Applications 視窗中，點選插入 > 模組，並將下方的 VBA 程式碼複製貼上至模組視窗中。

VBA 程式碼：刪除儲存格中的所有空白列

Sub DoubleReturn()
Dim xRng As Range, xCell As Range
Dim I As Integer
On Error Resume Next
Set xRng = Application.InputBox("Please select range:", "Kutools for Excel", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
On Error Resume Next
For Each xCell In xRng
  For I = 1 To Len(xCell) - Len(WorksheetFunction.Substitute(xCell, Chr(10), ""))
   xCell = Replace(xCell, Chr(10) + Chr(10), Chr(10))
  Next
Next
End Sub

3. 按下 F5 鍵以執行程式碼。接著，在 Kutools for Excel 對話方塊中選取您要刪除空白列的儲存格範圍，再按一下確定按鈕即可完成！

您將看到指定儲存格中的所有空白列皆已移除，如下圖所示，而文字仍保留在各自的行中。

使用 VBA 程式碼僅刪除儲存格中的第一行

如下圖所示，若要刪除儲存格 A2 與 A3 所在的第一列，可使用下列 VBA 程式碼。

1. 按下 Alt+F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗！

2. 在 Microsoft Visual Basic for Applications 視窗中，點選插入> 模組。然後將下方的 VBA 程式碼複製並貼上至模組視窗中。

VBA 程式碼：僅刪除儲存格中的第一行

Option Explicit
Sub RemoveFirstLine(ByRef Target As Range)
    Dim xCell As Range
    For Each xCell In Target.Cells
        xCell.Value = Right(xCell.Value, Len(xCell.Value) - InStr(1, xCell.Value, vbLf))
    Next
End Sub

Sub StartRemove()
Dim xRng As Range
   On Error Resume Next
   Set xRng = Application.InputBox("Please select range:", "Kutools for Excel", Selection.Address, , , , , 8)
   If xRng Is Nothing Then Exit Sub
   On Error Resume Next
   RemoveFirstLine xRng
End Sub

3. 按下 F5 鍵以執行程式碼。在跳出的 Kutools for Excel 對話方塊中，請選擇您需要僅刪除第一行的儲存格，再點擊確定按鈕。

您會發現指定儲存格中的第一行已如圖所示被移除。

如何在 Excel 儲存格中僅將第一行或第一個字詞設為粗體？

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多