如何在同一单元格内的项目列表前批量加上序号?

大家好,我是徐老师,坚持分享,坚持提升。

小小表格,变化无穷。

今天,有朋友在微信上提了这么一个问题:
图片[1]-如何在同一单元格内的项目列表前批量加上序号?-Excel表格学院,系统一站式学Excel!
工作事项列表在一个单元格里(B3),现在想在列表前面统一加上带圈的数字序号,如D3单元格所示,有什么好的方法?
首先,你得知道怎么输入带圈的数字。
用UNICHAR函数生成1-6的带圈数字,如下图:
图片[2]-如何在同一单元格内的项目列表前批量加上序号?-Excel表格学院,系统一站式学Excel!
怎么把这些数字加到事项列表中呢?最简单的方法,当然是一个一个复制粘贴。没开玩笑,这是最快的——当然,前提是工作事项列表只有6行!如果有几十行上百行,那就要来点有技术含量的方法了。
下面介绍两种方法——常规办法、VBA。
1、常规方法:分列+函数
首先,对B3单元格进行分列操作(数据-分列),按照换行符进行分列,换行符的输入:Ctrl+j。
图片[3]-如何在同一单元格内的项目列表前批量加上序号?-Excel表格学院,系统一站式学Excel!
目标结果,存放在F3单元格处:
图片[4]-如何在同一单元格内的项目列表前批量加上序号?-Excel表格学院,系统一站式学Excel!
分列后的结果:
图片[5]-如何在同一单元格内的项目列表前批量加上序号?-Excel表格学院,系统一站式学Excel!
接着,对分列的结果进行转置,粘贴到D6单元格处:
图片[6]-如何在同一单元格内的项目列表前批量加上序号?-Excel表格学院,系统一站式学Excel!
接下来,用函数进行连接:
图片[7]-如何在同一单元格内的项目列表前批量加上序号?-Excel表格学院,系统一站式学Excel!
将结果复制粘贴为值,最后用Phonetic函数进行连接:
图片[8]-如何在同一单元格内的项目列表前批量加上序号?-Excel表格学院,系统一站式学Excel!
连接后的结果并没有如我们预期显示为多行,很简单!在单元格格式-对齐中勾选自动对齐,再调整列宽
图片[9]-如何在同一单元格内的项目列表前批量加上序号?-Excel表格学院,系统一站式学Excel!
但是,你会发现当列宽变化时,假如事项列表每行的长度不一样,即使自动换行+调整列宽也达不到想要的效果,所以建议在上一步写合并公式的时候就加上换行符:
图片[10]-如何在同一单元格内的项目列表前批量加上序号?-Excel表格学院,系统一站式学Excel!
现在,再进行Phonetic操作就可以得到想要的效果了:
图片[11]-如何在同一单元格内的项目列表前批量加上序号?-Excel表格学院,系统一站式学Excel!
最后,由于最后一行也加了换行符,如果不要的话,可以再用函数去掉:
图片[12]-如何在同一单元格内的项目列表前批量加上序号?-Excel表格学院,系统一站式学Excel!
2、VBA方法:Split函数
Split是VBA中的一个函数,简单说,就是可以根据符号,对字符串进行拆分,类似于Excel中的分列。
并且,拆分后的结果是一个数组,可以通过循环调用每一个拆分的元素:
图片[13]-如何在同一单元格内的项目列表前批量加上序号?-Excel表格学院,系统一站式学Excel!
vbLf是VBA中的换行符,按照换行进行拆分。定义的变量a用来循环提取拆分后的元素,变量b则用来返回最终将元素连接后的字符串,并将b的结果存放到原单元格内。
由于按换行拆分后,拆分的每一个元素中已经没有换行符了,所以不能直接连接,连接的时候还要加上换行符vbLf。
最后的Left函数的含义,同方法1,目的是删除多余的最后一个换行。
编写完后,直接运行程序,序号秒添加。
图片[14]-如何在同一单元格内的项目列表前批量加上序号?-Excel表格学院,系统一站式学Excel!
Excel学到最后,会发现虽然函数是核心,但VBA才是灵魂。
好了,今天的案例就分享到这里。想系统学习Excel,欢迎你报名SVIP终身会员,我来教你用最快的速度掌握Excel,让 Excel成为你高效办公、创造价值的超级工具!

Excel同学会VIP会员

8套Excel核心课程+专属VIP答疑+定制插件,只要499元!

一次开通,长期有效

图片[15]-如何在同一单元格内的项目列表前批量加上序号?-Excel表格学院,系统一站式学Excel!

© 版权声明
THE END
喜欢就支持一下吧
点赞14 分享
评论 抢沙发
头像
欢迎您留下宝贵的见解!
提交
头像

昵称

取消
昵称表情代码图片快捷回复

    暂无评论内容