请教各位大神，WPS的Excel表格怎么设置批量打印一百多张，编码会一起随着递增

聆听侧耳的钟声

请教各位大神，WPS的Excel表格怎么设置批量打印一百多张，编码会一起随着递增？

红色框的编号怎么设置递增，例如：批量打印182张，编号自动每张都递增，#1-182，#2-182，#3-182依此类推，有没有哪位大神知道怎么弄，具体详细的步骤有没有教程？

清风竹-

Sub 批量打印()
a = Split(Cells(3, "a"), "-")
s1 = a(0)
ss = "#"
For i = 1 To Len(s1)
  If Mid(s1, i, 1) Like "[0-9]" Then
     s1 = Mid(s1, i, Len(s1))
     Exit For
  End If
Next
For i = s1 To a(1)
   bs = ss & i & "-" & a(1)
   Cells(3, "a") = bs
   ActiveWindow.SelectedSheets.PrintOut
Next
End Sub

聆听侧耳的钟声

清风竹- 发表于 2024-10-16 10:39
Sub 批量打印()
a = Split(Cells(3, "a"), "-")
s1 = a(0)

谢谢，我待会试试看