基于列中部分文本匹配删除行并上移的Excel宏实现求助

嘿，我来帮你搞定这个宏的问题！你的代码没法正常工作主要有两个核心问题：

• 你直接用Worksheets("Sheet1").Range("A1:A20").Value = "general"做判断，这是把整个单元格区域和单个值做比较，Excel没法这么直接识别每一行的内容；
• 就算判断逻辑对了，Selection.Delete也不靠谱——你根本没选中要删除的行，而且如果正向循环删行，还会跳过后面的行（删完一行后下面的行会上移，循环索引却在增加，相当于漏查了一行）。

给你两种靠谱的解决方案，按需选就行：

方案一：反向循环逐行检查（适合数据量不大的情况） #

这种方法逻辑直观，容易理解：

Sub DeleteGeneralRows()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 指定要操作的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 获取A列最后一行的行号（不用固定死20行，自动适配数据长度）
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 从最后一行往上循环，避免漏删行
    For i = lastRow To 1 Step -1
        ' 检查当前行A列是否包含"general"（vbTextCompare表示不区分大小写，要区分的话删掉这个参数）
        If InStr(1, ws.Cells(i, "A").Value, "general", vbTextCompare) > 0 Then
            ws.Rows(i).Delete Shift:=xlUp
        End If
    Next i
End Sub

为啥要反向循环？举个例子：如果正向循环到第3行并删除它，原来的第4行就会变成新的第3行，但循环会直接走到第4行，这就跳过了新的第3行。反向循环从下往上删，就不会有这个问题。

方案二：用AutoFilter批量删除（适合大数据量，效率更高） #

如果你的数据行数很多，循环会比较慢，用筛选的方式批量删行效率会高很多：

Sub DeleteGeneralRowsWithFilter()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim rangeToDelete As Range
    
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 先取消工作表可能存在的筛选状态
    ws.AutoFilterMode = False
    
    ' 获取A列最后一行行号
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 对A列应用筛选，匹配包含"general"的内容（*是通配符，代表任意字符）
    ws.Range("A1:A" & lastRow).AutoFilter Field:=1, Criteria1:="*general*", Operator:=xlAnd
    
    ' 获取筛选后的可见行（如果你的数据有表头，就从A2开始；没有表头就改成A1）
    On Error Resume Next ' 防止没有匹配行时报错
    Set rangeToDelete = ws.Range("A2:A" & lastRow).SpecialCells(xlCellTypeVisible)
    On Error GoTo 0
    
    ' 删除选中行的整行
    If Not rangeToDelete Is Nothing Then
        rangeToDelete.EntireRow.Delete Shift:=xlUp
    End If
    
    ' 最后取消筛选
    ws.AutoFilterMode = False
End Sub

你原来的代码还有个小问题：固定了检查A1:A20，要是数据超过20行就漏了，上面两个方案都用lastRow自动获取最后一行，适配任意数据长度~

内容的提问来源于stack exchange，提问作者Dani