VBA实现Excel打开时编号自动+1

在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