用VBA代码实现多条件筛选

Sub Macro1()

Dim arr, brr, i&

If [a1] = "产品" Then [a:a].Insert

arr = Range("b1:g" & Cells(Rows.Count, "g").End(xlUp).Row)

ReDim brr(1 To UBound(arr), 1 To 1)

For i = 2 To UBound(arr)

    If (InStr(arr(i, 1), "蒙古") Or InStr(arr(i, 1), "上海") Or InStr(arr(i, 1), "意大利") Or InStr(arr(i, 1), "法国")) _

    And (InStr(arr(i, 2), "AN") Or InStr(arr(i, 2), "BO")) Then brr(i, 1) = "重要"

Next

Range("a1").Resize(UBound(brr)) = brr

End Sub