如何用代码删除指定行

crega123

我有一个excel表，其中一列有特定字符的删除该行，但是另一列有特定字符的则不删除该行？如何用代码写？
如表格，B列中有9路、10路、12路的则删除该行，但C列有“通票”字样的则不删除该行，如何写代码？

zyr2046

Sub test()
    Dim i%, arr, brr
    arr = Sheet1.Range("a1").CurrentRegion
    brr = Array("9路", "10路", "12路")
    For i = UBound(arr) To 1 Step -1
        For j = 0 To UBound(brr)
            If InStr(arr(i, 2), brr(j)) And arr(i, 3) <> "通票" Then
                Rows(i).Delete
            End If
        Next
    Next
End Sub

zyr2046

1. Sub test()
   
2.     Dim i%, arr, brr
   
3.     arr = Sheet1.Range("a1").CurrentRegion
   
4.     brr = Array("9路", "10路", "12路")
   
5.     For i = UBound(arr) To 1 Step -1
   
6.         For j = 0 To UBound(brr)
   
7.             If InStr(arr(i, 2), brr(j)) And arr(i, 3) <> "通票" Then
   
8.                 Rows(i).Delete
   
9.             End If
   
10.         Next
    
11.     Next
    
12. End Sub

复制代码