假设A00106114后面的8个数字都作为一个序列号,可用以下代码:
Sub 自动序号打印()
y = InputBox("请输入打印页数")
For I = 1 To y
ActiveSheet.PrintOut
s = ActiveSheet.Cells(1, 1)
s = Left(s, 1) & Format(Val(Mid(s, 2)) + 1, "00000000")
ActiveSheet.Cells(1, 1) = s
Next
End Sub
在你的工作表上增加一个按钮,指定运行上述宏就可以了。
如果需要的前8位数字中只有一部分作为序列号,可以适当修改。
追问
我输入打印页数是10,我打印2次10张的。数字就是这么变的。再打印每次改变的是个位数和万位数,如何才能一次递增啊?
本回答被网友采纳