如何让EXCEL在打印文档时自动增加单元格里的数字？

2024-12-31 12:42:38

推荐回答（3个）

回答1：

使用这款现成的呀，勾选仅递增打印，选择Excel类型。

回答2：

假设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位数字中只有一部分作为序列号，可以适当修改。

回答3：

可以将打印代码（可录制）及递增代码都写在一个宏里面，用一个按钮控件控制，我不知道你单据号是不是要补零（即“A”后面的数字要几位），不会弄你把表传上来，我帮你改。