vba检索提取相应数据

198801273815

我想检索多个编号，最多查询4个出货编号，最后在表2显示多个编号对应的货品信息
比如查询PP04\PP05,那就显示连个单位信息，如查询PP05\PP06\PP07三个单位就显示三个单位信息

guojianlin1985

数据筛选就能满足你的需求。何必那么麻烦。

3190496160

Sub 查询()
With Sheet1
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    rs = .Cells(Rows.Count, 11).End(xlUp).Row
    .Range("A1:D" & r).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=.Range("K1:K" & rs), CopyToRange:=Sheet2.Columns("a:d"), Unique:=False
End With
MsgBox "ok!"
End Sub

3190496160

其实可以自己录制一段宏稍加修改即可，在这里输入条件

198801273815

3190496160 发表于 2020-8-3 10:52
Sub 查询()
With Sheet1
    r = .Cells(Rows.Count, 1).End(xlUp).Row

能加个Inputbox

3190496160

198801273815 发表于 2020-8-3 10:56
能加个Inputbox

关键是加这个东西干什么？