Sub 按钮4_单击()
[a1:c65536] = Empty
Sheets("库存明细表").Range("a1:c65536").AdvancedFilter Action:=xlFilterCopy, criteriarange:=Range("h1:h2"), copytorange:=Range("a1"), unique:=False
End Sub
用高级筛选就可以，
当你要查询低于或高于任何一个数的库存数据时，只要修改[h2]中的条件，就可以了。
我的代码，只不过把高级筛选的操作步骤放到了一个按钮上。
答：点击按钮生成结果（请先将 工具→宏→安全性 设置为中或低）：详情>>
