怎么在excel表里实现打印时编号自动增加

编号样式为NO:WWJG17000001，其中17代表年份，每年递增，000001是打印序列号，没打印一次自动更新

2026年09月26日 05:44

有1个网友回答

网友（1）：

我不知道为什么现在不能上传附件。

设编号样式NO:WWJG17000001放在A1单元格，我写了一个VBA按钮程序，每按一下就打印一次，一次一份当前编号的内容，打印完成后编号自动加一，17的年份按你的需要或你的首次编号你自己输入吧，不在程序中作处理：

Sub A1编号打印后加一_Click()
    Number = [A1]
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
        :=True
    [A1] = Left(Number, 9) & Format(Right(Number, 6) + 1, "000000")
End Sub