提示:程序代码是根据实际工作的需求编写的,仅供参考学习使用。
一、需要实现的功能 :自动添加序列号
操作软件:Microsoft Office Excel 2021
使用功能:Visual Basic(开发工具--visualbasic编辑器--新建模块)
关于表格填充序列号的问题,虽然可以通过下拉填充柄来完成,但是如果表格的行数比较多,而且中间不断的添加和删除行,这时候去手动操作填充序列号会显得比较麻烦。
通过VBA程序可以一键完成,省时又省事。
二、程序代码
程序代码(一)
Sub 自动添加序列号()
Dim i As Integer
On Error GoTo Last
i = InputBox