sub test()
k=2
dname=InputBox("请输入商品编码：", "提示")
for i=1 to sheets(3).range("a65536").end(3).row
if sheets(3).cells(i,1)=dname then
cells(k,1)=sheets(3).cells(i,1)
cells(k,2)=sheets(3).cells(i,2)
cells(k,3)=sheets(3).cells(i,3)
k=k+1
end if
next
end sub
利用excel的VBA语言编写代码，很简单的。如果你懂VBA语言，直接可以百度下这方面的代码。如果不会，你可以加我QQ：406639986，我给你编写代码
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024