如何在Excel表格中自动添加边续编号

发布网友发布时间：2022-04-22 18:17

我来回答

共4个回答

热心网友时间：2022-07-14 11:34

举例说明。

例如有表格如图。

第一步：选中A列后，按鼠标右键-选择插入。如图：

第二步：在A1单元格输入“序号",A2单元格输入数字”1“。结果如图：

第三步：将鼠标移动到A2单元格，出现十字符合时按下鼠标左键向下拉动到表尾（也可以双击鼠标左键）。如图：

第四步：用鼠标点击带有+字的符号，选择填充序列。如图：

热心网友时间：2022-07-14 11:34

这个问题要用BVA，要想实现目的方法：
1、增加一张编号表。命名为“编号表”在A1列输入要想打印的编号，假设要打印的表命名为“单据表”，必须将名称改正过来程序才有效。假设编号单元格是A2
2、选择：工具－－选项－安全性－－宏安全性－－中－－确定。
3、ALT+F11打开VBE编辑窗口：插入－－模块，在打开对应的窗口，复制以下代码，将复制的代码粘贴到窗口中，保存并关闭工作簿；
4、打开工作簿－－启用宏。
5、在编号工作表中－－插入一个文本框－－输入批量打印－－右击－－指定宏－－找到对应的宏名－－双击－－确定。
6、单击文本框就可以运行宏了，说明输入起止行数，是工作表的行标。如2行对应001，3行对应002，如输入2确定3确定则打印001至002的编号。输入相同的数字只打印该行，即一个编号，一张。

代码如下：
Sub 批量打印()
Dim i, j, n As Integer
j = InputBox(prompt:="请输入要打印的起行数字")
n = InputBox(prompt:="请输入要打印的止行数字")

For i = j To n

Sheets("打印表").Cells(2, 1) = Sheets("编号表").Cells(i, 1)
'打印
Sheets("打印表").PrintOut Copies:=1, Collate:=True
Next

End Sub
你何以修改编号的单元格地址要满足要求。

热心网友时间：2022-07-14 11:35

设置页码就可以了

热心网友时间：2022-07-14 11:36

插入页码