Excel情报局职场联盟Excel生产挖掘分享Excel基础技能Excel爱好者大本营用1%的Excel基础搞定99%的职场问题做一个超级实用的Excel公众号Excel是门手艺玩转需要勇气数万Excel爱好者聚集地
SUPER EXCEL MAN
1职场实例小伙伴们大家好,今天我们来解决一个Excel在职场中的棘手问题:如何对单元格内强制换行产生的多行内容进行排序?这个问题由于受到Excel基础排序功能的制约,不能够直接进行自定义的排序,所以需要间接的通过几个步骤快速的达成。
如下图所示:A列内容为排序前的内容,每个单元格内分别有三行内容,分别为“姓名”、“性别”、“电话”内容,我们观察到单元格内每行内容之间的分行是由(Alt+回车)强制换行产生的由于输入时的不规范,造成单元格内。
每行内容顺序不太一致,现在想要对单元格内强制换行产生的多行内容进行排序,顺序为“姓名→性别→电话”。
2解题思路想要实现对单元格内强制换行产生的多行内容进行自定义排序,我们需要通过几个步骤进行设置才能够实现,下面我们就来简单的讲解一下原理。
第一步:分列首先我们需要对A列内容进行分列,将“姓名”、“性别”、“电话”内容分别放置到三列中显示我们通过选中A列数据,点击【数据-分列】,使用【分隔符号】进行分列,【分隔符号】应该是强制换行符在微软Office Excel
中强制换行符我们可以通过键盘上的【Ctrl+j】快捷键进行输入(会出现一个闪动的小点,即为强制换行符)【目标区域】选择从B2单元格为起始位置放置分列好的数据最后点击【完成】即可实现分列但是分列出来每行的列数据顺序依然是不一致的。
第二步:VBA代码排序我们选中分列出来的数据区域B2:D4,右击工作表名称标签,点击【查看代码】,在弹出的VBA代码编辑窗口,将下面的代码模板复制粘贴到其内最后点击【运行-运行子过程/用户窗体】,即可实现排序效果。
我们发现分列出来每行的列数据顺序终于一致了,但需要调整一下具体的位置顺序为:“姓名→性别→电话”代码如下:SubSortIndividualR()UpdatebyExcel情报局DimxRg As Range, yRg As Range。
IfTypeName(Selection) <> "Range" Then Exit SubSetxRg = SelectionIfxRg.Count = 1 ThenMsgBox"Select multiple cells!", vbExclamation, "公众号:Excel情报局"
ExitSubEndIfWithApplication.ScreenUpdating = False.EnableEvents = False.Calculation = xlCalculationManual
EndWithApplication.ScreenUpdating = FalseForEach yRg In xRg.RowsyRg.SortKey1:=yRg.Cells(1, 1), _Order1
:=xlAscending, _Header:=xlNo, _Orientation:=xlSortRowsNextyRgWithApplication.ScreenUpdating = True.EnableEvents
= True.Calculation = xlCalculationAutomaticEndWithApplication.ScreenUpdating = TrueEndSub
第三步:调整列顺序为自定义顺序我们可以通过【剪切】列数据,选择对应的列位置后右击【插入剪切的单元格】,快速调整列的位置到自己想要的位置。如下图所示:
第四步:合并数据恢复原样我们在E2单元格输入函数公式:=B2&CHAR(10)&C2&CHAR(10)&D2在Excel的公式中我们用函数CHAR设置参数值10,即CHAR(10)代表强制换行符,通过连接符&
将各个数据与强制换行符进行连接合并。最后在选中E列的结果点击【自动换行】功能,即可恢复到原始数据的单元格内分行显示效果。
回顾关键内容,善用图片表达,学会建立联系,拓展深度广度,浓缩关键概念,应用到行动中,善于归纳总结,尝试进行分享。
〖往期知识点精彩链接点击阅读〗「Excel数据自动分组模板/Excel文件损坏修复工具」「Excel工资条生成模板/157个常用VBA代码模板」「Excel提取数字字母汉字/Excel提取字母数字汉字」
「Excel03~19软件下载/WPS表格19VBA宏功能」「全网文字免费复制技巧/提取Excel表格所有图片」「再不怕忘记电脑开机密码/电脑微信多开的方法」「批量合并所有工作表/材料出入库表格模板分享
」「卡通风格PPT模板分享/梦幻风格PPT模板分享」「微信朋友圈空白说说/Excel电话号导入通讯录」〖更多实用内容请在历史文章搜索〗
亲爱的读者们,感谢您花时间阅读本文。如果您对本文有任何疑问或建议,请随时联系我。我非常乐意与您交流。
发表评论:
◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。