DBC中文网

本文作者：卫星酱本文编辑：卫星酱锵锵~大家好哇！我是爱用 Excel 解决工作问题的卫星酱~有关数据分析的内容，卫某我分享过很多回啦，关于提取数据的技巧，更是涉及到两次！没办法，毕竟经常要用到~鉴于前两次的文章只是提及，而没有详细讲解过数据提取在工作中的实际运用；今天我就来一期专题解答，给大家介绍 Excel 实战之——提取指定字符！看完本篇，相信大家下次再碰见这类问题，都能更高效快捷地完成~我有个朋友小 B，她开了一家网店，平时用 Excel 统计商品售卖情况。这是她从网页导出的部分数据：为了方便分析哪种款式最受欢迎，需要对上述数据进行清洗，也就是提取出「三层 70」这一部分的有效内容。▋TEXTBEFORE 和 TEXTAFTER 函数使用公式定位「漆」字之后到「c」之前的位置：=TEXTBEFORE(TEXTAFTER(B2,"漆"),"c")公式简单又好理解。但只有 Office 365 和新版 WPS 才能使用……▋MID 函数=MID(B2,FIND("无漆",B2)+2,SEARCH("cm",B2)-FIND("无漆",B2)-2)公式解析：=MID(B2,❶,❷)❶ FIND("无漆",B2)+2先用 FIND 函数找到「无漆」的位置，并向右偏移 2 个字符，也就是跳过「无漆」这个词本身，所以 MID 函数从❶的位置开始提取；❷ SEARCH("cm",B2)-FIND("无漆",B2)-2这里我们整理一下，就是 SEARCH("cm",B2)-❶，也就是用 SEARCH 找到 cm 的位置，计算出「无漆」之后到「cm」之前的字符数。这个公式虽然比较复杂，但本质上仍然是「提取 X 之后，Y 之前」的思路~▋VBA 自定义函数记不住旧函数的公式也没事，这里另有出路~按下 Alt + F11 打开 VBA 编辑器。在 VBA 编辑器中，右击 VBAProject，选择【 插入 】-【模块】。在新模块窗口中，复制并粘贴以下代码：Function TB(text As String, search As String) As String ' 找到search字符串在text中的位置 Dim pos As Integer pos = InStr(1, text, search, vbTextCompare) ' 如果找到了，返回search之前的所有文本 If pos > 0 Then TB = Left(text, pos - 1) Else ' 如果没有找到search，返回空字符串 TB = "" End If End Function Function TA(text As String, search As String) As String ' 找到search字符串在text中的位置 Dim pos As Integer pos = InStr(1, text, search, vbTextCompare) ' 如果找到了，返回search之后的所有文本 If pos > 0 Then TA = Mid(text, pos + Len(search)) Else ' 如果没有找到search，返回空字符串 TA = "" End If End Function关闭 VBA 编辑器，回到 Excel 界面。然后咱们就能用方法一中的公式了=TB(TA(B2,"漆"),"c")好了，今天分享了三种字符提取的实战运用~技巧学得再多，能在工作中投入使用才是有效技巧哦！如果你想学习更多 Excel 实战技巧，在实例中融会贯通，提高工作效率~今天就是个好时候！秋叶专为职场人打造的《Excel 3 天集训营》，免费报名中~秋叶 Excel 3 天集训营0 门槛，小白也能学加入即送《81 个函数手册》在线学员答疑交流群提升自己就现在马上扫码加入给自己的职场能力充值吧！