VBA怎么让表格（生产标签）中的R4,R5,R6,R7每打印一次递增4位数

521gb174

VBA怎么让表格（生产标签）中的R4,R5,R6,R7每打印一次递增4位数，哪位大神帮助一下啊

网海遨游

Sub dayin()
    Dim n As Integer
    n = InputBox("打印次数") * 1
    For i = 4 To n
      'ActiveSheet.PrintOut Copies:=1
      Cells(i, "r") = "A19-12-30-" & Application.Text(i, "0")
    Next
    Call test
End Sub

Sub test()
  For i = 4 To 7
   If Cells(i, "r") <> "" Then
      a = Val(Right(Cells(i, "r").Value, Len(Cells(i, "r").Value) - InStrRev(Cells(i, "r").Value, "-")))
      b = Left(Cells(i, "r").Value, InStrRev(Cells(i, "r").Value, "-"))
      Cells(i, "r") = b & (a + 4)
   End If
  Next i
End Sub

521gb174

网海遨游 发表于 2020-3-6 16:34
Sub dayin()
    Dim n As Integer
    n = InputBox("打印次数") * 1

感谢大神完美

521gb174

网海遨游 发表于 2020-3-6 16:34
Sub dayin()
    Dim n As Integer
    n = InputBox("打印次数") * 1

要是能一下子能打印很多份就完全完美了

521gb174

第二个宏可以用，但是要摁好多下，能不能只摁一次打印（设置个数量一直打印完呢）