VBA小白的福音 如何在EXCEL中实现连续编号自动更新打印？

VBA小白的福音
如何在EXCEL中实现连续编号自动更新打印？
用下列方法，无论你需要输入连续编号的单元格是否改变，均不需要改变代码。
第一步：将下列代码拷贝到宏中（方法请问度娘，搜代码的人应该会的）。
Sub 连续编号()
[编号].NumberFormatLocal = “@”
Dim i As Integer
Dim b As Integer
Dim a As Integer
a = InputBox(“打印份数”, “请输入打印份数”, 1)
b = InputBox(“开始编号”, “请输入开始编号”, 1)
c = a + b - 1
For i = b To c
If i < 10 Then
[编号] = “编号：000” & i
ElseIf i < 100 Then
[编号] = “编号：00” & i
ElseIf i < 1000 Then
[编号] = “编号：0” & i
Else
[编号] = “编号：” & i
End If
ActiveWindow.SelectedSheets.PrintOut
Next
[编号] = “自动编号无需更改”
End Sub
第二步：在EXCEl中选中需要加入自动编号的单元格（可以是合并的单元格）。将单元格命名为编号。方法如下：
1.选中目标单元格。

2.将单元格命名为编号。即将上图中A3换成编号，回车即可。（此步也可通过公式—定义名称完成）

3.运行宏-连续编号

4.按提示输入打印份数和打印开始编号即可