如何在同一单元格内的项目列表前批量加上序号?Admin7天前更新关注私信02914 大家好,我是徐老师,坚持分享,坚持提升。 小小表格,变化无穷。 今天,有朋友在微信上提了这么一个问题: 工作事项列表在一个单元格里(B3),现在想在列表前面统一加上带圈的数字序号,如D3单元格所示,有什么好的方法? 首先,你得知道怎么输入带圈的数字。 用UNICHAR函数生成1-6的带圈数字,如下图: 怎么把这些数字加到事项列表中呢?最简单的方法,当然是一个一个复制粘贴。没开玩笑,这是最快的——当然,前提是工作事项列表只有6行!如果有几十行上百行,那就要来点有技术含量的方法了。 下面介绍两种方法——常规办法、VBA。 1、常规方法:分列+函数 首先,对B3单元格进行分列操作(数据-分列),按照换行符进行分列,换行符的输入:Ctrl+j。 目标结果,存放在F3单元格处: 分列后的结果: 接着,对分列的结果进行转置,粘贴到D6单元格处: 接下来,用函数进行连接: 将结果复制粘贴为值,最后用Phonetic函数进行连接: 连接后的结果并没有如我们预期显示为多行,很简单!在单元格格式-对齐中勾选自动对齐,再调整列宽 但是,你会发现当列宽变化时,假如事项列表每行的长度不一样,即使自动换行+调整列宽也达不到想要的效果,所以建议在上一步写合并公式的时候就加上换行符: 现在,再进行Phonetic操作就可以得到想要的效果了: 最后,由于最后一行也加了换行符,如果不要的话,可以再用函数去掉: 2、VBA方法:Split函数 Split是VBA中的一个函数,简单说,就是可以根据符号,对字符串进行拆分,类似于Excel中的分列。 并且,拆分后的结果是一个数组,可以通过循环调用每一个拆分的元素: vbLf是VBA中的换行符,按照换行进行拆分。定义的变量a用来循环提取拆分后的元素,变量b则用来返回最终将元素连接后的字符串,并将b的结果存放到原单元格内。 由于按换行拆分后,拆分的每一个元素中已经没有换行符了,所以不能直接连接,连接的时候还要加上换行符vbLf。 最后的Left函数的含义,同方法1,目的是删除多余的最后一个换行。 编写完后,直接运行程序,序号秒添加。 Excel学到最后,会发现虽然函数是核心,但VBA才是灵魂。 好了,今天的案例就分享到这里。想系统学习Excel,欢迎你报名SVIP终身会员,我来教你用最快的速度掌握Excel,让 Excel成为你高效办公、创造价值的超级工具! Excel同学会VIP会员 8套Excel核心课程+专属VIP答疑+定制插件,只要499元! 一次开通,长期有效 © 版权声明文章版权归作者所有,未经允许请勿转载。THE ENDExcel常用技巧# Excel自学# Excel教程# Excel入门学习# Excel自学教程# Excel零基础# Excel小白 喜欢就支持一下吧点赞14 分享QQ空间微博QQ好友海报分享复制链接收藏
暂无评论内容