如何在2003版excel中用宏自动编号

收据 NO.NO。后面我想用宏自动编号，比如最开始的是000001，每新增一个就递加1我想用宏做一个这样的，点新增单据号，单据号就自动变了，我的单据号很简单第一个就是0000001

2026年09月25日 18:54

有3个网友回答

网友（1）：

既然用宏做输入界面，那应该会有工作表来存储后台数据吧。
假设你把所有的单号保存在Sheet2工作表的B列中，文本格式，则：
sub NewSN()
[E2] = CStr(1 - -Sheet2.Range("B" & Rows.Count).End(xlUp).Value)
end sub

网友（2）：

假设worksheet名为Sheet1, 单据号单元格在B2.

sub addnum()

dim a int
a = worksheet("Sheet1"). range("B2").value
worksheet("Sheet1"). range("B2").value = a+1

end sub

网友（3）：

函数公式是：
=TEXT(ROW(A1),"000000")