我想做成图一中的二个或二个以上条件查询,从网上查到的是单条件查询代码,可以帮我改为多条件查询代码吗,效果和单查询一致。
网上找的单查询代码为:
Sub 按产品查询()
ends = Sheet1.Columns(1).Find("*", , , , , searchdirection:=xlPrevious).Row '动态找到A列的最后一个单元格
Sheet2.Range("A5:E1048576").Clear '清除之前所有的筛选结果
For Each Rng In Sheet1.Range("B2:B" & ends)
m = m + 1
If Rng Like Sheet2.Range("B2") Then '如果条件成立,那么
k = k + 1
Sheet1.Range("a" & m + 1 & ":E" & m + 1).Copy Sheet2.Range("a" & k + 4) '将记录复制到另一个区域
End If
Next
End Sub
If Sheet2.Range("B2")="" OR Sheet2.Range("B3")="" Then
记录复制全部记录到另一个区域
Else If Rng Like Sheet2.Range("B2") And Rng.Offset(, N) Like Sheet2.Range("B3") Then 将该行记录复制到另一个区域
End If