Excel VBA | 自动添加序列号

最新推荐文章于 2024-07-09 23:42:22 发布

MUYUN友逹

最新推荐文章于 2024-07-09 23:42:22 发布

阅读量5.9k

点赞数

分类专栏：我的VBA代码库文章标签： Excel VBA 自动添加序列号

版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。

本文链接：https://blog.csdn.net/Microgoblins/article/details/127378926

版权

本文介绍如何使用Excel VBA自动添加序列号，避免手动填充的繁琐。通过VBA程序，无论是大量数据还是频繁增删行，都能一键完成序列号的更新。程序代码包括两种方案，一种基于错误处理，另一种根据B列数据自动生成。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

提示：程序代码是根据实际工作的需求编写的，仅供参考学习使用。

文章目录

一、需要实现的功能：自动添加序列号
二、程序代码
- 程序代码（一）
- 程序代码（二）

一、需要实现的功能：自动添加序列号

操作软件：Microsoft Office Excel 2021
使用功能：Visual Basic（开发工具--visualbasic编辑器--新建模块）

关于表格填充序列号的问题，虽然可以通过下拉填充柄来完成，但是如果表格的行数比较多，而且中间不断的添加和删除行，这时候去手动操作填充序列号会显得比较麻烦。

通过VBA程序可以一键完成，省时又省事。

二、程序代码

程序代码（一）

Sub 自动添加序列号()
    Dim i As Integer
    On Error GoTo Last
    i = InputBox

最低0.47元/天解锁文章

评论

被折叠的条评论为什么被折叠?

到【灌水乐园】发言

查看更多评论

添加红包

成就一亿技术人!

hope_wisdom

发出的红包

实付元

使用余额支付

点击重新获取

扫码支付

钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。