求帮忙改成动态的条件！

dinosaur27111

Sub 删除行()'数组
    Dim nRow&, m&, Arr(), Brr()
    With Sheet1
        nRow = .Range("a65536").End(xlUp).Row
        Arr = .Range("a2:g" & nRow).Value
        ReDim Brr(1 To nRow, 1 To 7)
        For i = 1 To nRow - 1
            If Arr(i, 7) Like "zuoxi*" Or Arr(i, 7) Like "dudao*" Then
                m = m + 1
                For j = 1 To 7
                    Brr(m, j) = Arr(i, j)
                Next
            End If
        Next
        .Range("a2:g" & nRow).Value = Brr
    End With
End Sub

麻烦改一下，把固定的“ "zuoxi*" ”和 “ "dudao*"”条件，改成动态的，假设我把条件放在Sheet2，A列的A2:A51区域内，应该怎么改？？
If Arr(i, 7) Like "zuoxi*" Or Arr(i, 7) Like "dudao*" Then

yonhe

if判断前加一句试试ZUOXI=SHEET2.RANGE("A2").VALUE

chart888

你的条件不是就两个吗
为什么会放在区域内？

大灰狼1976

1. Sub aaa()
   
2.     Dim nRow&, m&, Arr(), Brr()
   
3.     With Sheet1
   
4.         nRow = .Range("a65536").End(xlUp).Row
   
5.         Arr = .Range("a2:g" & nRow).Value
   
6.         ReDim Brr(1 To nRow, 1 To 7)
   
7.         For i = 1 To nRow - 1
   
8.             If Not Sheets(2).[a2:a51].Find(Arr(i, 7)) Is Nothing Then
   
9.                 m = m + 1
   
10.                 For j = 1 To 7
    
11.                     Brr(m, j) = Arr(i, j)
    
12.                 Next
    
13.             End If
    
14.         Next
    
15.         .Range("a2:g" & nRow).Value = Brr
    
16.     End With
    
17. End Sub

复制代码