VBA 编写代码 A表取数到B表

yaozhaoze

xunanming 发表于 2024-3-13 15:51
....................................................

老师您好：
        我还有工作簿，也是转换客户端上传文件.这个表和之前表有点差异，把[包装明细]工作表（Customer Material 、 PO No. 、 Ind.Length 、 Packing No.）唯一值取到[上传] ，[上传] 工作表多了两列数据（订单编码、行号），这个数据源来自[包装明细]工作表数据（ PO No. ）取数说明：/杠前面 ：订单编码；杠后面：行号.转换到[上传] 工作表检查两列任意有1列空行，删除相应的整行，这个表需要增加一项功能 每个包装号生成1个文件号码命名为相应的Packing No.号码。 WH2024文件：为主表， 102892-20230712-01-01 、文件102892-20230712-01-01~102892-20230712-01-24为新生成新工作簿样式，再次麻烦您帮忙编VBA写代码.谢谢

yaozhaoze

xunanming 发表于 2024-3-13 15:51
....................................................

老师您好：
        我还有工作簿，也是转换客户端上传文件.这个表和之前表有点差异，把[包装明细]工作表（Customer Material 、 PO No. 、 Ind.Length 、 Packing No.）唯一值取到[上传] ，[上传] 工作表多了两列数据（订单编码、行号），这个数据源来自[包装明细]工作表数据（ PO No. ）取数说明：/杠前面 ：订单编码；杠后面：行号.转换到[上传] 工作表检查两列任意有1列空行，删除相应的整行，这个表需要增加一项功能 每个包装号生成1个文件号码命名为相应的Packing No.号码。 WH2024文件：为主表， 102892-20230712-01-01 、文件102892-20230712-01-01~102892-20230712-01-24为新生成新工作簿样式，再次麻烦您帮忙编VBA写代码.谢谢

xunanming

参考---------------------------------

yaozhaoze

xunanming 发表于 2024-3-16 14:10
参考---------------------------------

老师您好：
     谢谢您帮忙还有一个问题，还需要请您帮忙，新生成的102892-20230712-01-01~102892-20230712-01-23文件应该删除H列，实际删除了F列，请您帮忙修改VBA代码，谢谢

xunanming

yaozhaoze 发表于 2024-3-17 09:26
老师您好：
     谢谢您帮忙还有一个问题，还需要请您帮忙，新生成的102892-20230712-01-01~102892-2023 ...

With ActiveWorkbook
        Sheets(1).Range("H1:H" & Sheets(1).Cells(Rows.Count, 8).End(3).Row).Clear
        .SaveAs ThisWorkbook.Path & "\" & wbName & ".xls", 56
        .Close
End With

习习儒生

xunanming 发表于 2024-3-13 15:51
....................................................

学习了，感谢老师

yaozhaoze

xunanming 发表于 2024-3-14 13:55
给个建议:最好将包装明细表中的数据规范化一下便于处理,,特别是Description列中的,否则还会出现意想不到 ...

老师您好：
     经过我上传测试上传作表‘批次’字段，还需要减少字符数量，我在工作簿中添加了‘’物料简称’工作表，根据‘’物料简称’工作表替换上传作表‘批次’字段.谢谢

xunanming

for reference only---------------------------------------

yaozhaoze

xunanming 发表于 2024-3-20 10:32
for reference only---------------------------------------

老师，
    太感谢您了，谢谢

yyzh_god_2013

老师心态真好