VBA代码 修改

yaozhaoze

各位老师您好：
     VBA 修改代码，满足以下要求：
     操作方式 工作簿：2024 =》工作簿：送货单登记 =》按键：上传包装清单 =》 运行VBA代码，
运行代码以后有以下问题请老师帮忙处理，谢谢
问题1：分割2024工作簿=》工作表：上传包装清单 表第二行数据没有被复制。（送货单号：D12401070001156CR 包装号：1001）这一行数据没有被复制到分割到工作表： D12401070001156CR 中。
问题2：传系统分割工作簿的工作表名称定义要求必须两个工作表（分别名称定义为：送货单最小包装信息维护，包装箱关系维护 ），工作表名称定义有要求：Sheet1：（D12401070001156CR）修改成（送货单最小包装信息维护），还需要增加 Sheet2：表名称定义（包装箱关系维护）这个为空表就可以。

关于第2个问题：工作表：包装箱关系维护 空表也可以，如果VBA编写代码可以完成以下功能需求，请您在（包装箱关系维护）工作表 增加数据
把（送货单最小包装信息维护）工作表A列（包装号*）数据复制到（包装箱关系维护）工作表A列（上层包装号*），（送货单最小包装信息维护）工作表H列（包装描述）数据后4位数值复制到（包装箱关系维护）工作表B列（下层包装号*）,表头行除外，详细见附件。详细见附件，十分感谢您帮忙，谢谢

维叶

修改了下下，楼主看下有没问题