Excel表格用VBA按照条件进行筛选

如图，比如要筛查，订单状态名称为运输中，产品名称为裸素鱼竿的数据。

image.png

Sub 筛选()
Columns("F:I") = ""
Dim I%
For I = 2 To Range("A65536").End(xlUp).Row
If Cells(I, 2) = "运输中" And InStr(Cells(I, 3), "裸素鱼竿") > 0 Then
n = n + 1
Cells(n + 1, "F") = Cells(I, 1)
Cells(n + 1, "G") = Cells(I, 2)
Cells(n + 1, "H") = Cells(I, 3)
Cells(n + 1, "I") = Cells(I, 4)
End If
Next
End Sub
B列 订单状态名称为 运输中， 且 C列产品名称数据包含了 裸素鱼竿
都能筛选出来
结果从F列显示