如何在 Excel 中刪除單元格值大於或小於特定值的行

MS Excel 微軟技術計算機

Excel 是一個組織和分析資料的強大工具，有時需要刪除不滿足特定條件的行。在處理大型資料集或篩選未達到特定閾值的資料時，基於條件刪除行非常有用。本文將重點介紹當特定列中的單元格滿足大於或小於條件時如何刪除行。

刪除單元格值大於/小於特定值的行

我們將使用 VBA 應用程式來完成此任務。讓我們來看一個簡單的流程，瞭解如何在 Excel 中刪除單元格值大於或小於特定值的行的步驟。

步驟 1

考慮一個 Excel 表格，其中表格中的資料類似於下圖所示。

首先，使用 Alt + F11 開啟 VBA 應用程式。

步驟 2

然後單擊“插入”並選擇“模組”，然後將下面的程式碼複製到文字框中。

示例

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:", "Delete Rows Value", 
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, "Delete 
Rows Value"
        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, "<50000"
    Set xRg = Application.Intersect(xRg, xRg.SpecialCells(xlCellTypeVisible))
    On Error GoTo 0
    If Not xRg Is Nothing Then xRg.EntireRow.Delete
End Sub