如何在 Excel 中，當儲存格的值大於或小於特定數值時，自動刪除整列？

作者Siluvia修改日期2024-09-20

有時您可能需要在 Excel 中，根據指定欄位的儲存格數值大於或小於某個條件來刪除整列。本文將為您介紹幾種實用的方法，輕鬆解決此問題。

使用 VBA 程式碼，在儲存格大於／小於某個值時刪除行
 使用 Kutools for Excel，在儲存格大於／小於某個值時刪除行
 使用 Kutools for Excel，在儲存格大於／小於某個值時刪除行

使用 VBA 程式碼，在儲存格大於／小於某個值時刪除行

假設您希望在 Excel 中，當 D 欄的儲存格數值大於或小於特定值時，自動對整列執行操作。您可以執行下列 VBA 程式碼來達成此目標。

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

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

VBA 程式碼：在 Excel 中，當儲存格大於／小於某個值時刪除行

Public Sub ProcessData()
    Dim xRg As Range
    Dim xTxt As String
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Please select range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If (xRg.Areas.Count > 1) Or (xRg.Columns.Count > 1) Then
        MsgBox "You can only select one column per time", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    xRg.Range("A1").EntireRow.Insert
    Set xRg = xRg.Range("A1").Offset(-1).Resize(xRg.Rows.Count + 1)
    xRg.Range("A1") = "Temp"
    xRg.AutoFilter 1, ">30000"
    Set xRg = Application.Intersect(xRg, xRg.SpecialCells(xlCellTypeVisible))
    On Error GoTo 0
    If Not xRg Is Nothing Then xRg.EntireRow.Delete
End Sub

注意：在上述程式碼中，>30000 表示若指定欄位的儲存格數值大於 30000，將自動刪除該列。若您希望在儲存格數值小於某個值時刪除列，請將符號 > 改為 <，並輸入您設定的數值。

3. 按下 F5 鍵以執行程式碼，在跳出的 Kutools for Excel 對話方塊中，選取您要檢查儲存格是否大於或小於某個值的區域（限單列），然後按一下確定按鈕。請參閱截圖：

執行 VBA 程式碼以選取資料清單

接著，D 欄中所有數值大於 30,000 的儲存格所在列將立即被刪除。

所有符合條件的儲存格值之列均已被刪除

使用 Kutools for Excel，在儲存格大於／小於某個值時刪除行

選擇指定單元格功能可協助您選取特定欄位中數值大於或小於某個條件的所有列，接著即可手動一次刪除所有已選取的列。Kutools for Excel

Kutools for Excel 提供超過 300 項進階功能，簡化複雜作業，提升創造力與效率。整合 AI 功能，Kutools 能精準自動化各項任務，讓資料管理輕鬆無負擔。Kutools for Excel 的詳細資訊…… 免費試用……

1. 選取您要作為條件的欄位，然後點選 Kutools > 選取 > 選擇指定單元格。請參閱截圖：

點擊 Kutools 的「選取特定儲存格」功能

2. 在選擇指定單元格對話方塊中，請於整行區段中進行選擇；並在選擇類型區段中，從第一個下拉選單選擇大於或小於，接著在下一個文字方塊中輸入指定數值，然後點擊確定按鈕。OK button.

3. 在彈出對話方塊告知您已選取多少列後，請按一下確定按鈕，即可看到 D 欄中所有值大於 30000 的列都已被選取。

4. 在任一選取的列上按右鍵，於右鍵功能表中點選刪除，即可一次刪除所有選取的列！

點擊「刪除」

想免費試用此工具 30 天嗎？立即下載，並依照上述步驟操作！

使用 Kutools for Excel，在儲存格大於／小於某個值時刪除行

除了上述兩種方法外，您也可以先篩選出指定欄位中儲存格大於或小於某個值的所有列，再透過刪除隱藏（可見）列與欄功能（屬於）Kutools for Excel），一次清除所有篩選結果！

1. 選取欄位標題，然後點選資料 > 篩選。請參閱截圖：

點擊「資料」>「篩選」

2. 按一下您要作為條件之欄位的下拉箭頭，然後點選數字篩選 > 大於或小於，如下圖所示：

點擊「數字篩選」>「大於」或「小於」

3. 在自訂自動篩選對話方塊中，於「大於」或「小於」欄位後輸入指定數字，再點擊確定按鈕即可完成設定！

在對話方塊中輸入條件

4. 接著，D 欄中所有儲存格值大於或小於指定數值的列都會被篩選出來。您可以選取篩選後的資料，然後點選 Kutools> 刪除> 刪除隱藏行/列，立即清除所有篩選出的列。請參閱截圖：

點擊 Kutools 的「刪除隱藏（可見）列與欄」功能

5. 在刪除隱藏行/列對話方塊中，請先確認選擇區域選項已於搜尋範圍下拉列表中選取；接著在列區段中選取刪除類型，並在詳細類型區段中指定「可見列」選項；最後，按一下確定按鈕。

6. 接著，所有可見列的選擇區域會立即被刪除。您可以點選資料> 篩選來取消篩選。

想免費試用此工具 30 天嗎？立即下載，並依照上述步驟操作！

最佳 Office 生產力工具

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