Excel vba 跨表查询： 希望在sheet1中输入关键字，到sheet2中查询与关键字匹配的单元格记录。

Question

最后将结果显示在sheet1中。谢谢！！

Answer 1

临时写的，没经过调试，功能是记录sheet1的A1里的内容，在sheet2里面找到相应的单元格，记录行数和列数，然后显示在sheet1的A2和A3中

sub test()
dim keyword,keyrow,keycol as string
sheets("Sheet1").select
keyword=range("A1").formular1c1
sheets("Sheet2").select
Cells.Find(What:=keyword, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _ '注意keyword在这里
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, MatchByte:=False, SearchFormat:=False).Activate
keyrow=activecell.row
keycol=activecell.column

sheets("Sheet1").select
range("A2").formular1c1=keyrow
range("A3").formular1c1=keycol

end sub

Answer 2

你Q我。我的Q资料里找。
不要用VBA得 我给个示范给你 我做的电话本查询，输入一个关键文或者数字 相关信息都跳出来。