使用chatgpt试过，但是总是失败，求教大神帮忙，平台为WIN7+excel06，注意兼容性
写一段VBA代码，命名为“整列出车”，在“YT-8出车及过表”这个工作表的C2'D2'E2单元格输入数据后，点击宏按钮，开始执行程序，选择导入的EXCEL文件，在“部属车-YT-8”和“企业车-YT-8”工作表中查找是否有与导入文件中工作表“第1页”的D16单元格一致的车号，如果有，则将“YT-8出车及过表”这个工作表（以下简称表3）的C2、D2、E2单元格（分别为发出车次、发出日期、发出时间）中的数据分别填到“部属车-YT-8”（以下简称表1）或“企业车-YT-8”工作表（以下简称表2）中与D16单元格一致的那一行D、E、F列。如果没有，则记住该车辆未查询到（这里不用提示）。D16查找完毕后，继续向下查找直到该导入文件的工作表“第1页”的最后一行结束，最终弹出对话框：本次应出车XX辆，实际成功出车XX辆（部属车X辆，企业车X辆），未查找到车号X辆。如有未查找到的车号，请确认运统8登记车号与出车编组是否一致。要保证代码运行效率，还要记得 把所有变量声明了
写一段VBA代码，命名为“整列出车”，在“YT-8出车及过表”这个工作表的C2'D2'E2单元格输入数据后，点击宏按钮，开始执行程序，选择导入的EXCEL文件，在“部属车-YT-8”和“企业车-YT-8”工作表中查找是否有与导入文件中工作表“第1页”的D16单元格一致的车号，如果有，则将“YT-8出车及过表”这个工作表（以下简称表3）的C2、D2、E2单元格（分别为发出车次、发出日期、发出时间）中的数据分别填到“部属车-YT-8”（以下简称表1）或“企业车-YT-8”工作表（以下简称表2）中与D16单元格一致的那一行D、E、F列。如果没有，则记住该车辆未查询到（这里不用提示）。D16查找完毕后，继续向下查找直到该导入文件的工作表“第1页”的最后一行结束，最终弹出对话框：本次应出车XX辆，实际成功出车XX辆（部属车X辆，企业车X辆），未查找到车号X辆。如有未查找到的车号，请确认运统8登记车号与出车编组是否一致。要保证代码运行效率，还要记得 把所有变量声明了
