excel 中的vba问题: find 和copy函数的应用

操作的条件：sheet1的a列某行的内容与sheet2 a列某行的内容相同。
操作：把sheet2 b、c、d列中所有的单元格的内容, 对应地复制到sheet1 b、c、d列中满足上述条件的单元格。

请问高手们，vba应该怎么写？急求～ 致谢！

不用VBA也可
sheet12 A2列公式
=IF(COUNTIF(Sheet1!$A:$A,$A2)>=0,A2,"")
向下向右复制。
然后对sheet2筛选不为空的，复制后粘贴到新表即可

range("d2:d17").select selection.copy workbooks.open filename:="d:\ky\sr.xls" range("g1").select activesheet.paste

方法： 　　不用VBA。 　　sheet12 A2列公式 =IF(COUNTIF(Sheet1!$A:$A,$A2)>=0,A2,"") 向下向右复制。 然后对sheet2筛选不为空的，复制后粘贴到新表即可

你不就是筛选嘛，说这么复杂，录制代码， 手动操作一次，在sheet2操作，数据源选在sheet1的相关表格 ，因为EXCEL不可以把数据筛选到其他表，但可以从其他表筛选到本表！ 代码录制完毕后，你看看，自己改吧改吧 如果有格式需要，一并录制 给这个代码加上触发事件或者按钮指定！