Sub 筛选()
Columns("F:I") = ""
Dim I%
For I = 2 To Range("A65536").End(xlUp).Row
If Cells(2, 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列显示
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024