excel - 在 Excel VBA 中删除包含 "xxx"的单元格(的行)的优雅方法

Question

我有以下表格:

我想删除城市列中包含“美国”的行。前任。所需的输出如下:

我的方法是使用 =isnumber(search("USA",B2)) 在 C2:C4 处创建另一列。然后

for i = lastrow to 2 step -1
    If cells(i, "C") then
    Else
        rows(i).delete
    end if
next

这个方法可以，但是感觉很笨，在大数据集上运行很慢。对优雅地实现这一点有什么想法吗？

Answer 1

下面应该做你想做的 - 假设数据在 A 和 B 列中的 Sheet1 上。

Sub Del_USA()
Dim c As Range

With Sheet1.Range("B:B")
    Set c = .Find("*USA*", LookIn:=xlValues)
    If Not c Is Nothing Then
    
        With Sheet1.Cells(1, 1).CurrentRegion
            .AutoFilter 2, "*USA*", 7
            .Offset(1).Resize(.Rows.Count - 1).EntireRow.Delete
            .AutoFilter
        End With
    
    Else
        MsgBox "USA Not Found"
    End If
End With

End Sub