VBA提取数据生成标签

iananannn

大佬们求助！
sheet1用来粘贴固定格式的数据
sheet2提取sheet1中的两列按照sheet3的模板生成这个格式的标签并且打印，数据总量每次都不一样，可能需要自动循环。最终标签大小是长35mm宽40mm
sheet3是一个模板
怎么用VBA实现这个功能？

3190496160

Sub 生成标签()
Application.ScreenUpdating = False
With Sheets("数据")
    r = .Cells(Rows.Count, 2).End(xlUp).Row
    If r < 2 Then MsgBox "数据源为空！": End
    ar = .Range("a1:l" & r)
End With
With Sheets("标签")
    rs = .Cells(Rows.Count, 1).End(xlUp).Row
    If rs >= 4 Then .Rows("4:" & rs).Delete
    sl = r - 1
    m = 4
    For i = 2 To sl
        .Rows("1:3").Copy .Cells(m, 1)
        m = m + 3
    Next i
    m = 1
    For i = 2 To UBound(ar)
        If Trim(ar(i, 2)) <> "" And Trim(ar(i, 12)) <> "" Then
            .Cells(m, 1) = ar(i, 12)
            .Cells(m + 1, 2) = ar(i, 2)
            .Cells(m + 2, 2) = ar(i, 12)
            m = m + 3
        End If
    Next i
End With
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160

3190496160

order.rar (19.63 KB, 下载次数: 10)

2023-3-13 11:25 上传

点击文件名下载附件

iananannn

3190496160 发表于 2023-3-13 11:25

收到！非常感谢！file:///C:/Users/Administrator/Desktop/%E4%BC%81%E4%B8%9A%E5%BE%AE%E4%BF%A1%E6%88%AA%E5%9B%BE_16786788798398.png

iananannn

可以使用啦