如何在 Excel 中当单元格大于或小于某个值时删除行

ms excelmicrosoft technologiescomputers更新于 2024/8/21 9:16:17

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