用VB查询excel表格数据

2025-12-05 00:03:04

推荐回答（3个）

回答1：

public sub test()
dim dipan as string
dim shet as worksheet
dim f as worksheetfunction
set f=worksheetfunction
set shet=sheets("底盘表格名") '假设这个是你信息存的表格名字
dipan = text1.value
'比如底盘号在A列
if f.countif(shet.range("a:a",dipan)=0 then msgbox("无相应信息"):exit sub '确认底盘存在
rw = shet.range("a:A").find(dipan,lookat:=xlvalues,lookin:=xlwhole).row
'rw 就是底盘信息所在的行，你在按你需要的列取出相应的信息
msgbox(dipan & "在第 " & rw & " 行")

end sub

回答2：

可以调用excel数据表的find方法，也可以自己编一段程序找到底盘号所在行。
然后，根据数据表结构，取同行的不同列的数据，显示出来就行了。

回答3：

楼下会的的很正确，不再赘述。