[已解决]变更条件列，求修改代码

yiniuniu

变更条件列，求修改代码

最佳答案

月排行榜 / 总排行榜

scl5801

2016-6-3 16:24

Sub rtian2()
a = Sheet4.Range("a5:m" & Sheet4.[a65536].End(xlUp).Row)
b = Sheet4.Range("a5:m" & Sheet4.[a65536].End(xlUp).Row)
c = ",1,2,3,"
    For i = 1 To UBound(a)
        If InStr(c, "," & a(i, 3) & ",") = 0 And a(i, 1) <> "" Then
            n = n + 1
            For j = 1 To UBound(a, 2)
                b(n, j) = a(i, j)
            Next
        End If
    Next
Sheet4.Range("a5:m" & Sheet4.[a65536].End(xlUp).Row).ClearContents
If n > 0 Then Sheet4.Range("a5:m" & n + 4) = b
End Sub

跳转到最佳答案楼层

scl5801

Sub rtian2()
a = Sheet4.Range("a5:m" & Sheet4.[a65536].End(xlUp).Row)
b = Sheet4.Range("a5:m" & Sheet4.[a65536].End(xlUp).Row)
c = ",1,2,3,"
    For i = 1 To UBound(a)
        If InStr(c, "," & a(i, 3) & ",") = 0 And a(i, 1) <> "" Then
            n = n + 1
            For j = 1 To UBound(a, 2)
                b(n, j) = a(i, j)
            Next
        End If
    Next
Sheet4.Range("a5:m" & Sheet4.[a65536].End(xlUp).Row).ClearContents
If n > 0 Then Sheet4.Range("a5:m" & n + 4) = b
End Sub