在excel打开时编号自动+1，可记录上次保存的最大编号，通过示例了解一下vba的使用。
1、另存a.xls文件为a.xlsm启用宏的工作簿；
2、在Excel选项中勾选开发工具选项卡，将出现开发工具菜单；
3、在开发工具选项卡中启动Visual Basic编辑器（Alt+F11）；
4、如上图编写代码，保存；
‘工作簿打开时触发
Private Sub Workbook_Open()
Dim newID As Long, oldID As String
oldID = Worksheets(1).Range("A1").Value
‘A1单元格取后六位，加上1
newID = Strings.Right(oldID, 6) + 1
‘A1单元格取前三位，7位数的newID取后六位
Worksheets(1).Range("A1") = Strings.Left(oldID, 3) + Strings.Right(1000000 + newID, 6)
End Sub
5、Excel选项->信任中心->宏设置，启用宏，关闭excel重新打开，编号将自动加1
原文：http://my.oschina.net/h2do/blog/531570