如何在 Excel 中刪除目前儲存格所在列，或刪除包含特定文字的列？

作者Sun修改日期2024-11-07

若工作表資料龐大且包含多列，而您只想刪除目前儲存格或特定文字上方的所有列，該如何處理？您可以手動選取這些列，再按一下滑鼠右鍵，從快捷功能表中選擇「刪除」。但在此，我提供一段 VBA 程式碼，可快速刪除目標列上方的所有列；若您感興趣，請詳閱下方說明。

使用 VBA 程式碼刪除行上方列

使用 VBA 程式碼刪除行上方列

以下為您介紹兩段 VBA 程式碼：一段用於刪除目前（已選取）儲存格上方的列，另一段則可移除指定文字所在儲存格上方的列。

1. 選取欲刪除列上方的儲存格，然後按下 Alt + F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗。

2. 點選插入＞模組，並將下方程式碼貼到模組指令稿中。

VBA：刪除行目前儲存格上方的列

Sub DeleteRowsAboveActive()
Range("A1:A" & ActiveCell.Row - 1).EntireRow.Delete
End Sub

顯示貼上程式碼至 VBA 模組的螢幕截圖

3. 按下 F5 鍵，即可刪除目前儲存格上方的列。詳情請參閱下圖：
刪除作用儲存格上方列後的 Excel 工作表螢幕截圖

若您想刪除指定文字所在列上方的所有列，可使用下方的 VBA 程式碼。

VBA：刪除行指定文字上方的列

Sub DeleteRowsABove()
'UpdatebyExtendoffice20161109
    Dim fRg As Range
    
    Set fRg = Cells.Find(What:="Total Group", LookAt:=xlWhole)
    
    If Not fRg Is Nothing Then
        If fRg.Row <> 1 Then
            Range("A1", fRg.Offset(-1)).EntireRow.Delete
        Else
            MsgBox "Total Group is in the first row already", vbInformation, "Kutools for Excel"
        End If
    Else
       MsgBox "Do not find Total Group", vbInformation, "Kutools for Excel"
    End If
    
End Sub

顯示用於在 Excel 中刪除特定文字上方列之 VBA 程式碼的螢幕截圖

注意：

1. 在程式碼中，Total Group 即為您要搜尋的文字，可依需求調整。

2. 若所搜尋的文字已位於第一列，系統將彈出對話方塊提醒您。
第一列中找到文字時的對話方塊訊息螢幕截圖

3. 若在工作表中找不到指定文字，系統將顯示如下圖所示的對話方塊通知您。
未找到指定文字時的對話方塊訊息螢幕截圖

最佳 Office 生產力工具

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