excel vba 如何根据一个单元格的条件 自动筛选表格

Question

需要根据一个单元格 （A2), 输入1/2/3/4， 代表不同的月数， 然后自动筛选数据库的信息。单元格跟数据库不是同一个表格， 月份的表示方法也不同。单元格是数字代表月份，数据库是具体的1/1/2019这样的日期。

Answer 1

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列显示本回答被网友采纳