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

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

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

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

二、程序代码

程序代码（一）

Sub 自动添加序列号()Dim i As IntegerOn Error GoTo Lasti = InputBox("请输入需要的值", "输入序列号 ")For i = 1 To iActiveCell.Value = iActiveCell.Offset(1, 0).ActivateNext i
Last:    Exit Sub
End Sub

代码解释：

On Error GoTo Last ：Excel VBA中的错误处理语句，添加在过程中可能导致错误的代码行的前面，防止因为代码错误导致程序运行终止。其中Last为自定义的错误标签名称。

ActiveCell.Value ：当前活动单元格的值。

ActiveCell.Offset(1, 0).Activate ：活动单元格向下偏移一格。

运行此代码后，通过InputBox函数弹出提示框：

根据输入值在活动单元格内自动添加序列号。

活动单元格，就是当前鼠标选中的单元格。

程序代码（二）

在程序代码一的基础上，我修改了一下编写思路：让系统根据B列的数据自动添加序列号。

Sub 自动添加序列号()Dim i%, y%, k%On Error GoTo Lasty = 1k = Cells(Rows.Count, 2).End(xlUp).Row - 2For i = 1 To kSheet1.Cells(i + 2, 1) = yy = y + 1Next i
Last:    Exit Sub
End Sub

代码解释：

删除了InputBox函数弹出提示框，让系统自动判断需要添加的值。

i% ：Dim i As Integer的简写。

VB中数据类型的缩写：

数据类型	中文名	缩写符号
Integer	短整型	%
Long	长整型	&
Single	单精度浮点型	!
Double	双精度浮点型	#
Currency	货币型	@
String	字符型	$

Cells(Rows.Count, 2).End(xlUp).Row ：获取第2列最后一个非空单元格行号，这种写法可以在数据中间存在空行时，也能准确的获取到总行号数。

Sheet1.Cells(i + 2, 1) ：里面的两个参数i+2表示从第几行开始向下生成序列，1表示在第1列生成。

sheet1表示工作表1（有可能是其他名称），根据实际情况而定。

Excel VBA | 自动添加序列号相关推荐

Excel VBA 自动添加新行并递增ID
Excel VBA 自动添加新行并递增ID 用Excel 2010的VBA功能来处理数据,主要根据IP网段和网段IP个数,来生成每个IP地址,并进行ID编号. Sub AutoInsert()Line ...
计算机excel怎么添加实线边框,Excel中自动添加边框线条的方法！学会效率翻倍！你确定不学？...
原标题:Excel中自动添加边框线条的方法!学会效率翻倍!你确定不学? 平常大家在工作中,有时候是不是需要给Excel表格加上边框啊?那么今天我们就来聊聊Excel表格添加边框线条那些事. 大家给Ex ...
Excel·VBA自动生成日记账的对方科目
如图:根据日记账/序时账的日期.凭证号为一组,按借贷方向生成相反的科目,并写入H列.可能存在一对一.一对多.多对多等情况的账目目录数组法遍历.判断.写入测试结果多对多问题处理测试结果数组法 ...
excel中提取月份_在Excel中自动添加月份表
excel中提取月份 Set up a Master sheet in your workbook, and add month sheets automatically, based on that ...
Excel VBA: 自动生成巡检报表并通过邮件定时发送
目录环境说明逻辑结构效果说明及截图 ①. 安装SecureCRT ②. 自动巡检脚本 ③. 数据检索并FTP传送 ④. 安装Excel 2013 ⑤. 安装Serv-U ⑥. 自动生成图表并邮件 ...
mysql 自定义序列号_在mysql中怎样设置，才能自动添加序列号
事件发生的线程ID(THREAD_ID) 活动名称(EVENT_NAME) 起止时间戳以及事件的总持续时间(TIMER_START,TIMER_END 和 TIMER_WAIT) 在事件停止之前完成的 ...
Excel VBA自动生成本年度节假日及补假
利用了百度的opendata API接口,接口链接如下: https://sp0.baidu.com/8aQDcjqpAAV3otqbppnN2DJv/api.php?query=2019&r ...
Excel VBA开发自动发送邮件
一..设置Outlook邮箱帐(略不是本文章的重点) 二..设置Outlook信任中心如下步骤若没有做如下操作设置,则Excel VBA调用Outlook自动发送邮件时提示如下 2.1 Outloo ...
第二个excel VBA demo —— 根据规则生成加班申报数据
前言第一个demo在这里,走过路过不要错过,嗨起来: 第一个excel VBA demo -- 添加信号并生成一段Verilog代码第二个demo要解决快速生成加班数据的问题,具体情况在于某公司的 ...

Excel VBA | 自动添加序列号

文章目录

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

二、程序代码

程序代码（一）

程序代码（二）

Excel VBA | 自动添加序列号相关推荐

最新文章

热门文章

Excel VBA | 自动添加序列号

文章目录

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

二、程序代码

程序代码（一）

程序代码（二）

Excel VBA | 自动添加序列号相关推荐

最新文章

热门文章

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