excel用VBA如何智能筛选？

包含数上色，可以直接用循环就可以。对符合条件的range对象设置单元格格式。

统计符合多条件的单元格数量，也可以使用循环。判断每一行的对应几列的几个单元格是否符合条件，符合条件就用数字自加即可。如果需要筛选出来，则需要用单元格并集intersect函数，并集之后提取出来就行。也可以一边循环一遍复制出来。只是这样比较慢一点而已。

因为写代码耗时耗力，我这里只给提供一点思路。需要写代码的话可以私信我。如果还有其他问题，可以即系追问或者私信。

Sub test()

Dim r&, i&, j As Byte, rg As Range, rx&, sh As Worksheet, a$, arr

arr = Array("通善", "东亭", "马山")

r = Cells(Rows.Count, 7).End(3).Row

a = ActiveSheet.Name

Set sh = Worksheets.Add

sh.Name = "筛选结果"

Sheets(a).Select

sh.Range("a1").Resize(1, 11) = Range("a2").Resize(1, 11).Value

For i = r To 3 Step -1

Set rg = Cells(i, 7)

If rg <1800 Then

rg.EntireRow.Delete

Else

For j = 0 To UBound(arr)

If rg(1, 5).Text Like "*" &arr(j) &"*" Then

sh.Cells(rx + 2, 1).Resize(1, 11) = rg.EntireRow.Resize(1, 11).Value

rx = rx + 1

End If

Next

End If

Next

End Sub

---