Excel VBA | 自动添加序列号

最新推荐文章于 2022-12-15 17:48:04 发布
VIP文章 最新推荐文章于 2022-12-15 17:48:04 发布
阅读量4.9k 收藏 17
点赞数
分类专栏： 我的VBA代码库 文章标签： Excel VBA 自动添加序列号
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/Microgoblins/article/details/127378926
版权

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

文章目录

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

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

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

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

二、程序代码

程序代码（一）

Sub 自动添加序列号(
最低0.47元/天 解锁文章
MUYUN友逹
关注
  • 0
    点赞
  • 踩
  • 17
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
【VBA】自动填充序号
ajsyipsc40270的博客
08-09 1233
使用Excle自带的工具栏图标填充 填充效果图如下： 代码如下： Sub 自动填充序号() Dim A As CommandBar '代表容器应用程序中的一个命令栏 Dim B As CommandBarControl '代表一个命令栏控件 Dim i As Long Cells.Clear '清除所有单元格 For Eac...
VBA实现表单自动编号
weixin_30740581的博客
03-04 2421
效果：每次提交或刷新标段，表单案指定格式实现自动编号。如当天日期加数字编号的格式 即 2019年2月3日产生的第一张表单产生的编号格式为20190203-001 以此类推第二张表单编号为20190203-002 如果日期发生变化，那么日期后面的编号也从1开始。如2019年2月4日那么，他的编号20190204-001 如果是当天，他产生多章表单那么编号会自动递增。 如果表单编号所在单元格为空那...
Excel VBA生成指定格式序列号
12-19
Excel VBA生成指定格式序列号，打开并启用宏。
ExcelVBA小程序 -生成序号
Nemuel的博客
08-30 1988
打开宏窗口，复制粘贴以下代码： Sub 生成序号() On Error Resume Next Dim l As Integer, i As Integer l = InputBox("请输入序号所在的列号（1-n）") Columns(l).Clear For i = 1 To 101 Cells(1, l) = "序号" Cells(i, l) = i - 1 Next With ActiveSheet.UsedRange .NumberFormatLocal = "G/通用格式"
[黑科技] WPS通过VB宏函数实现自编号功能
杨秀璋的专栏
03-15 1万+
这篇文章主要是讲述Word通过宏函数设置一些操作，比如在Word全文中替换一些符号；再如对Word上角表进行编号，如果删除中间某个值，运行宏函数自动编号；对Word中所有图片进行大小统一整合；文章竖着排版等操作。Word宏函数主要是基础VB编写的，希望这篇文章对你有所帮助~
VB数据库自动编号
05-29
本资源用VB 做成，为源码形式，可实现数据库的自动编号功能，对VB中级学者很有用
vba怎么快速填充序列号？
qq_32775541的博客
05-14 2714
直接上代码。 Sub d() Dim i For i = 1 To 1000 Cells(i, 1) = i Next i End Sub 运行效果如下图。 这样1000个序号就填充起来了。 解析下这段代码。 Dim就是定义变量，后面空格跟个i，就是定义的i这个变量。 然后用的是for next语句，这个是循环语句，感觉比易语言还简单。 For i = 1 To 1000 Cells(i, 1) = i Next i 就是i从1开始到1000结束
在WPS中利用wordVBA实现批量识别题目数量和自动生成序号，方便在导航窗格中进行拖动排序
zhangdabai1的博客
12-15 1592
在WPS中利用wordVBA实现批量识别题目数量和自动生成序号，方便在导航窗格中进行拖动排序
latex在论文中添加行号
热门推荐
Mr.horse的博客
12-11 1万+
如果想全文连续编号 \usepackage[switch]{lineno} % 里面的选项代表双栏 \begin{document} % 文章开始 \linenumbers % 开始编号 \nolinenumbers % 结束编号，若要全文编号，该条命令可不加 如果想要每页重新编号 \usepackage{lineno} \begin{document} \pagewiselinenumbers% 按页重新编号 \switchlinenumbers .
VBA自动生成代码工具
11-10
用VBA写的自动生成代码工具 里面用到了框架知识 指定路径输出文件的方法 和变量重新分配空间的方法 redim
用VBA做的根据自动模板批量生成新表格
12-16
用VBA制成的可根据模板工作表，批量生成新的工作表，并能自动编号及工作表命名。
EXCEL VBA获取电脑硬盘的序列号
09-04
EXCEL VBA获取电脑硬盘的序列号 取得硬盘信息：型号/物理系列号（唯一） 使用API取得硬盘信息 逻辑磁盘序列号
Excel VBA 办公自动化
01-11
Excel VBA 办公自动化，该资料包含独家资料。通俗易懂。手把手教你在Excel中开发VBA语言。提高办公效率。
Excel VBA 经典代码应用大全
06-17
Excel VBA 经典代码应用大全
利用ExcelVBA实现数据自动抽取汇总.pdf
12-03
利用ExcelVBA实现数据自动抽取汇总.pdf
Excel VBA 控制摄像头拍照
05-17
EXCEL VBA 控制摄像头进行拍照保存,可以使用扫码枪扫码录入至单元格中，以单元格中的内容为文件名保存摄像头拍摄的照片，保存位置为 EXCEL 所在目录，同时图片缩略图插入到文件名所在的单元格中。
这是一个基于Objective-C语言的基础案例集。旨在用于给初学者快速了解Objective-C语言的语法。.zip
04-30
这是一个基于Objective-C语言的基础案例集。旨在用于给初学者快速了解Objective-C语言的语法。.zip
01 整理数据 _ 合并多数据，分析更有趣.ipynb
04-30
01 整理数据 _ 合并多数据，分析更有趣.ipynb
jsp140汽车测评推荐新闻管理系统ssh+mysql.zip
最新发布
04-30
创业、工作、毕业、课程需要人群，可以参考使用，支持有偿远程部署，联系我，保证一定能跑起来
excel vba 自动报价工具
11-22
Excel VBA自动报价工具是一种利用Excel中的VBA编程语言创建的工具，它可以自动化报价过程，提高工作效率。 这个工具可以根据用户提供的产品信息、定价策略和相关数据，自动生成报价表格。通过使用VBA编写的宏和函数，可以实现各种计算公式、数据处理和报表生成。 使用该工具，用户只需输入产品信息和所需的定价策略，然后点击运行宏按钮，工具会根据用户提供的数据自动生成相应的报价表格。在报价表格中，可以显示产品名称、数量、单价、小计和总计等信息。 此外，该工具还可以应用条件格式，根据不同条件自动给出不同的报价提示，例如低于最低价格、高于最高价格、特殊折扣等。 使用VBA编程还可以实现其他功能，比如自动更新数据，自动生成报告和统计图表，导出数据到其他应用程序等。 通过Excel VBA自动报价工具，用户可以减少手工计算和繁琐的工作步骤，提高报价的准确性和一致性。同时，它还可以节省时间和人力资源，提高工作效率，为企业提供更便捷的报价服务。 总而言之，Excel VBA自动报价工具是一个功能强大的工具，通过自动化处理和计算，可以快速、准确地生成报价表格，提高工作效率和客户服务质量。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

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

余额充值