【办公自动化】1. 如何在Word表格中自动插入序号 | 您所在的位置:网站首页 › word表格加序号怎么自动排序呀 › 【办公自动化】1. 如何在Word表格中自动插入序号 |
pexels-mateusz-dach-450035.jpg
很多时候Word中的表格操作没有Excel中方便,例如以下这种情况: 表格中的第一列是序号,需要填入依次递增的数字,但是Word中又没有填充功能,难道这种情况下只能一个个手动输入吗? 当然不可能。 本鹕虽然懂些办公自动化的皮毛,但也忍不了这种低效的操作,这里提供三种常用的方法,大家可以按需选用。 01 插入项目编号最简单的一种方法,直接在序号列插入项目编号,缺点是无法完全居中,不美观。 如果对居中没有要求,这种方式应该是最简单方便的。 但这种不完美对于强迫症来说,例如本鹕:smile:,简直是眼中钉肉中刺,绝对忍不了。 强迫症们可以看看后面两种方法。 项目符号.gif 🔺 插入项目编号 02 Word域代码 { SEQ list }Word中的域代码类似于公式,域代码的结果类似于公式生成的值。本例中SEQ域的作用是自动生成序列号。 在需要输入序列号的位置【插入】...【文档部件】...【域】,选择SEQ域,在SEQ后面输入list(也可以是其他字符),点击确定。 按Alt+F9切换域代码显示,可以看到生成了{ SEQ list }的域代码,这里可以将其理解成定义了一个名字为list的SEQ变量。 也可以按Ctrl+F9出现一对花括号,在花括号中输入SEQ list。 将SQE域代码复制到所有要输入序列号的单元格,全部选中,按F9更新即可看到已生成序列号。 域代码插入序号方法.gif🔺 插入SEQ域 这种方式会有一个问题,就是当存在多个表格时,后面表格中序列号的起始值时接着上一表格的,并不是从1开始, 这时就需要加上开关指令\r。 序列号紧接着上一表格.gif 🔺 序列号紧接着上一表格 { SEQ list\r1 }为了使每个表格的序列号都单独从起始序号1开始,需要加上开关指令,这里/r的意思是r后面的编号重设序列号,这里输入1,表示后面的编号从1开始。 加上开关指令\r1后编号从1开始.gif 🔺 加上开关指令\r1后编号从1开始虽然SEQ域代码的方法能够解决序列号无法水平居中的问题,但是该方法还是不够智能化—— 插入域后还需要复制粘贴,多个表格情况还要修改域代码,操作略显繁琐。 那有没有只需设置好后就能一键操作的方式呢? 那看来只能是用到VBA了。 03 VBA代码这里直接附上VBA代码,将代码粘贴到Word的VB编辑器中,保存,从宏命令中调用即可。也可以添加到自定义工具栏上,方便调用。 Sub 自动插入序号() Dim i As Integer i = 1 '遍历选中的单元格 With Selection For Each aCell In .Cells aCell.Range.Delete '删除原有内容 aCell.Range.InsertAfter i '输入序号 i = i + 1 '序号递增 Next aCell End With End Sub VBA插入序号.gif 🔺 VBA生成序列号可以看到,只需要选择需要输入序列号的单元格,运行VBA代码即可自动生成序列号,比起前两种方法,这种方法解决了序列号水平居中的问题,同时操作相对简洁,可以称得上真正的“一键操作”。 |
CopyRight 2018-2019 实验室设备网 版权所有 |