Excel宏：智能拆分订单到京东物流格式

Sub batchExpress()

    Dim copy_sheet, srcsheet As Worksheet
    Dim qtyCell As String
    Dim i, r, j, sales_qty, dataRowCount, rowcount, double_count As Integer
    Dim ws As Workbook
    
    Set ws = ThisWorkbook ' 指定当前打开的EXCEL文件
    
    Set srcsheet = ws.Sheets(3) ' 原始数据所在的SHEET
    Set copy_sheet = ws.Sheets(2) ' 需要写入数据的SHEET
    
    rowcount = 0
    
    dataRowCount = srcsheet.UsedRange.Rows.Count ' 获取行数
    
    ' 清除历史内容
    copy_sheet.Range("C4:z100").ClearContents
    
    qtyCell = "g" ' 销售数量所在的列名 用于循环分拆数据
    
    r = 4 ' 从第4行开始写入数据 （1-3行是标题）
    
    
    For i = 2 To dataRowCount '循环次数/需要处理的行
       
        If srcsheet.Range(qtyCell & CStr(i)).Text <> "" And srcsheet.Range("J" & CStr(i)).Text = "" Then ' 有数量 且未发货（发货日期为空)
           For j = 1 To srcsheet.Range(qtyCell & CStr(i)).Value ' 将数量大于1件的数据拆分成多条（每条1件）
            
               ' 原始数据的列:  1 编号 2 日期 4 地址 6 姓名  7 数量 8 规格 9 电话  ---> 3 姓名 4 手机6 地址 11 数量