如何在 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