新手问一个VB＋excel的问题

EXCEL工作薄里面有两个工作表（sheet1,sheet2)
如何根据sheet1里面的某列内容搜索sheet2里面与之相同的数据并全部显示出来　

--------------------编程问答-------------------- sql=" select * from sheet2$ where id in (select id from sheet1$) "
--------------------编程问答-------------------- Cells.Find()  可查找 工作表

补充：VB ,  基础类