生成固定资产标签

aifeiqi

这个下载了，蛮好用的，但是有点问题，请老师帮忙看下，代码哪里错了，另外我模板里有插入一行

糖↗小冷

Sub 标签()
Application.ScreenUpdating = False
Dim ar As Variant
With Sheets("资产明细")
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    If r < 2 Then MsgBox "资产明细为空！": End
    ar = .Range("a1:g" & r)
End With
gs = r - 1
With Sheets("标签模板")
    rs = .Cells(Rows.Count, 1).End(xlUp).Row
    If rs > 7 Then .Rows("7:" & rs).Delete
    Range("B3,D3,B4,B5,D5,B6,D6") = Empty
    m = 7
    For i = 2 To gs
        .Rows("1:6").Copy .Cells(m, 1)
        m = m + 6
    Next i
    m = 3
    For i = 5 To UBound(ar)
        If Trim(ar(i, 1)) <> "" Then
            .Cells(m, 2) = ar(i, 1)
            .Cells(m, 4) = ar(i, 2)
            .Cells(m + 1, 2) = ar(i, 3)
            .Cells(m + 2, 2) = ar(i, 5)
            .Cells(m + 2, 4) = ar(i, 4)
            .Cells(m + 3, 2) = ar(i, 6)
            .Cells(m + 3, 4) = ar(i, 7)
            m = m + 6
        End If
    Next i
    .Select
End With
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

糖↗小冷

先照着改改，代码在审核

全党

前两天才写了一个例子（一户一表），你这个比那个简单，改了一下。

梧叶沙沙

速码工具箱批量生成标签，方便快捷。

梧叶沙沙

速码工具箱可以批量生成各种标签，设计好模版即可。

操作教程
https://mp.weixin.qq.com/s/uQaVvtoV9RKsWndccQgwaw