如何设置按要求自动分类打印

pjypl1688888

如何设置按要求自动分类打印

3190496160

一个客户，有多个出货日期，只写一个日期？
比如：成都国鑫林大章，有28日。23日，只写28日？？？？

3190496160

Sub 批量生成()
Application.ScreenUpdating = False
Dim ar As Variant
Dim d As Object
Dim arr()
Set d = CreateObject("scripting.dictionary")
ReDim arr(1 To Sheets.Count)
With Sheets("表一")
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    If r < 2 Then MsgBox "表一为空！": End
    ar = .Range("a1:h" & r)
End With
For i = 2 To UBound(ar)
    If VBA.Trim(ar(i, 2)) <> "" Then
        d(VBA.Trim(ar(i, 2))) = ar(i, 1)
    End If
Next i
With Sheets("打印表")
    rs = .Cells(Rows.Count, 1).End(xlUp).Row
    If rs > 33 Then .Rows("34:" & rs).Delete
    .Range("a4:f31") = Empty
    For Each k In d.keys
        n = 0: m = m + 1
        rq = d(k)
        ReDim arr(1 To UBound(ar), 1 To UBound(ar, 2) - 2)
        For i = 2 To UBound(ar)
            If VBA.Trim(ar(i, 2)) = k Then
                n = n + 1
                For j = 3 To UBound(ar, 2)
                    arr(n, j - 2) = ar(i, j)
                Next j
            End If
        Next i
        If m = 1 Then
            .Cells(4, 1).Resize(n, UBound(arr, 2)) = arr
            .[b2] = k
            .[f2] = rq
        Else
            ws = .Cells(Rows.Count, 1).End(xlUp).Row + 1
            .Rows("1:33").Copy .Cells(ws, 1)
            .Cells(ws + 3, 1).Resize(n, UBound(arr, 2)) = arr
            .Cells(ws + 1, 2) = k
            .Cells(ws + 1, 6) = rq
        End If
    Next k
End With
Set d = Nothing
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160

工作簿1.rar (23.8 KB, 下载次数: 22)

2022-12-30 11:59 上传

点击文件名下载附件

盼盼198310

............

pjypl1688888

3190496160 发表于 2022-12-30 11:42
一个客户，有多个出货日期，只写一个日期？
比如：成都国鑫林大章，有28日。23日，只写28日？？？？

我这个基本上不会几天打一次的，一般是打一天的。不会一个客户几天的单来一次打

pjypl1688888

万分感谢老师百忙之中的帮助。

pjypl1688888

3190496160 发表于 2022-12-30 11:59

你好，老师，又来麻烦你了，帮我调下格式好吗？谢谢

3190496160

pjypl1688888 发表于 2022-12-30 15:06
你好，老师，又来麻烦你了，帮我调下格式好吗？谢谢

不是什么都要代码来解决的，自己调整打印表的第一个模板区域就行了，因为，其他的都是根据第一个来的

pjypl1688888

3190496160 发表于 2022-12-30 15:16
不是什么都要代码来解决的，自己调整打印表的第一个模板区域就行了，因为，其他的都是根据第一个来的

好的，谢谢