使用VBA实现以下功能

求助：使用VBA实现以下功能
sheet1:数据
B1 C1 
种类 数量
玉米 2
sheet2:存档
A1 B1
种类 数量
蔬菜
玉米
例如，在sheet1中，玉米的数量为2，怎么实现在sheet2中找到玉米，并在数量中填进2，通过程序自动实现，谢谢！！！

[解决办法]
sheet2中的A2里输入=sheet1!B2
sheet2中的B2里输入=sheet1!C2

以此类推，excel有个小手柄可以直接往下一拉批量实现公式应用，自己试试。