如何用VBA删除Excel中A列满足三个条件的行？

你的需求是删除A列包含"--"、"-4"或为空值的行，原VBA代码存在几个问题，以下是修正后的方案：

原代码的问题 #

• 用=匹配带通配符的字符串无效，Excel VBA里需要用Like关键字处理通配符匹配
• 遍历整列Range("A:A")效率极低，应该只遍历有数据的单元格区域
• 从上往下删除行时，删除后后续行会上移，导致部分符合条件的行被跳过
• 未处理空值的筛选条件

修正后的VBA代码 #

Sub Delete_Target_Rows()
    Dim lastRow As Long
    Dim i As Long
    
    ' 获取A列最后一行有数据的行号
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row
    
    ' 从最后一行往上遍历，避免删除行后跳行
    For i = lastRow To 1 Step -1
        With Cells(i, "A")
            ' 判断是否为空，或包含"--"，或包含"-4"
            If .Value = "" Or .Value Like "*--*" Or .Value Like "*-4*" Then
                .EntireRow.Delete
            End If
        End With
    Next i
End Sub

代码说明 #

• lastRow = Cells(Rows.Count, "A").End(xlUp).Row：精准定位A列最后一个有数据的单元格，避免遍历无效空白区域
• 从下往上遍历（Step -1）：删除行后不会影响未遍历的行，确保所有符合条件的行都被处理
• Like关键字：正确匹配包含指定字符串的单元格，*代表任意长度的任意字符
• 加入空值判断（.Value = ""）：满足你删除空值行的需求

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