添加链接
link之家
链接快照平台
  • 输入网页链接,自动生成快照
  • 标签化管理网页链接
K = 2 End If 'MsgBox ("i=" & i & Chr(13) & Chr(10) + "L=" & L & Chr(13) & Chr(10) + "K=" & K)' Sheets("标签打印").Cells(L, K) = Sheets("资产明细").Range("d" & i + 1) Sheets("标签打印").Cells(L + 1, K) = Sheets("资产明细").Range("b" & i + 1) Sheets("标签打印").Cells(L + 2, K) = Sheets("资产明细").Range("i" & i + 1) Sheets("标签打印").Cells(L + 3, K) = Sheets("资产明细").Range("k" & i + 1) Sheets("标签打印").Cells(L + 4, K) = Sheets("资产明细").Range("g" & i + 1) If Int(i / 36) = (i / 36) Then ActiveSheet.PrintOut End If Next i End Sub


没学过VB,现学现卖O(∩_∩)O