好吧问答库 > EXCEL文档怎么自动生成流水号？求详细的解读，别的做表格文档也行

EXCEL文档怎么自动生成流水号？求详细的解读，别的做表格文档也行

2025年03月21日 05:54

有1个网友回答

网友（1）：

每次打开数字加1，用函数恐怕不行。因为没有记录打开工作薄次数的函数。

只有用VBA宏的
Workbook_Open()
。

按alt
+f11

在thisworkbook中贴入下例代码。

Private
Sub
Workbook_Open()
a
=
Sheets("sheet1").Cells(1,
1).Value
b
=
VBA.Right(a,
4)
Sheets("Sheet1").Range("A1")
=
"A2009"
&
Format(b
+
1,
"0000")
ActiveWorkbook.Save
End
Sub

如图：

前面将"A2009"
改成你要的数字和字符

&
Format(b
+
1,
"0000")
中0000是四位其下图中的0004（第四次打开），设四位可编到9999，如果不够可以自已加。