用EXCEL的VBA直接就可以，用不着VB，给你个思路，开始用对话框选择文件夹，遍历文件夹下的xls文件路径到数组，然后用循环一个一个打开，把A列的数据放到字典里面(不知道你有多少个文件，如果少的话这一步省了，如果多的话，用字典速度快)，然后对比，如果匹配到了，就复制
不明白你要做什么！
