本人VB6小白，最近需要帮好友写一个工具，代码也是copy的，但是不知道问题在哪？
本人要实现的功能就是导出BOM的excel表格，但是这个表格里其中一列是料号，其他都是空的，另外一个excel表格是物料库，需要逐个拷贝一个个单元格里的料号数据在物料库里工作簿搜索，一旦搜索到，拷贝这一行里的部分单元格到BOM里，逐渐形成一个完整的BOM.帮忙高人看看，谢谢！

有点没看懂要求，
其实，建议使用 lookup 函数去做，而不是自己写代码。
这个函数，EXCEL 支持，附 ET 里的关于这个函数的说明 。ET ＝ WPS表格
http://www.
http://www.

谢谢你的回复，我把excel表格以截图的方式贴出来，就好明白了！

上面那个excel表格是物料库，下面那个excel表格是物料表，但是这份物料表是不完整的，我想设计一个程序，通过读取物料表里H列的料号，然后在物料库里搜索，待搜索到后把搜索到的物料详细信息拷贝到物料表里，最终让物料表成为一个完整的物料表，谢谢

把 完整物资库按 物号 进行排序。
然后把 在单元格里写公式，
如 J4  制造商
=lookup(H4,物料库!$H$2:$H$300,物料库!$J$2:$J$300)
以上公式的意思。
在 物料库中 H2：H300 中，找 H4 这个单元格的值，找到后，在 J2：J300 中对应的行中取值。

不需要动用到 VB 去写程序，只需要复制公式到单元格里就OK了。
注意，物料库里，就一定要使用 物号 进行排库。只有一个缺点，如果该物料号在物料库中，不存在时，会导致显示下一个物料的错误。

如果你实在是打算写程序，建议你把 物料库里不能有 合并单元格，然后使用数据库方式打开 物料库，进行查找。
最近都没时间写代码，只能你自己多琢磨一下。

老大说得对，直接lookup搞定了。

呵呵，谢谢，十分感谢，之前也琢磨过，不过最近偶也确实很忙，而且拖了人家很久，关键我是一个做硬件的，所以对这个压根都不了解，真心希望当您有空的时候能够请教与你，谢谢哈，能给我一个邮箱联系你不？

这个是给一个公司用的，这个公司不想做数据库，所以就想写一个工具去实现这个功能，谢谢！