时间戳

首页 > 解决方案 > 如何自动删除与 Ex​​cel 中特定值不匹配的行？

excel - 如何自动删除与 Ex​​cel 中特定值不匹配的行？

问题描述

我正在尝试删除与特定值不匹配的行。

我目前用于识别不匹配行的公式是 =IF(K3<>L3,"No match","")

这存储在我的题为报告一的工作表的“M”列中。

如何让 Excel 自动删除 M 列中 value =“No Match”的行。

标签： excelvbaexcel-formula

解决方案

遍历行并使用 VBA 查看值是否为“不匹配”。

Sub DeleteNoMatch()
    LR = ActiveSheet.Cells(ActiveSheet.Rows.Count, "M").End(xlUp).Row ' last row  

    for r = LR to 1 step -1 ' adjust the 1 to what row to start at. (header on the table?)
        if range("M" & r).value = "No match" then Range(r & ":" & r).EntireRow.Delete
    next r
end sub

您可能希望将 LR 行中的列“M”更改为其他内容。
如果您有一个包含 100 行数据的表，但 M 列延伸到第 1000 行，那么（至少）900 行将被删除。

要么更改公式以使其为空时不匹配，要么更改确定列以“计数”的列

推荐阅读