锵锵~ 大家好哇！我是爱用 Excel 解决工作问题的卫星酱~
有关数据分析的内容，卫某我分享过很多回啦，关于提取数据的技巧，更是涉及到两次！
没办法，毕竟经常要用到~
鉴于前两次的文章只是提及，而没有详细讲解过数据提取在工作中的实际运用；
今天我就来一期专题解答，给大家介绍 Excel 实战之 ——提取指定字符！
看完本篇，相信大家下次再碰见这类问题，都能更高效快捷地完成~
我有个朋友小 B，她开了一家网店，平时用 Excel 统计商品售卖情况。
这是她从网页导出的部分数据：
为了方便分析哪种款式最受欢迎，需要对上述数据进行清洗，也就是提取出「三层 70」这一部分的有效内容。
使用公式定位「漆」字之后到「c」之前的位置：
=TEXTBEFORE(TEXTAFTER(B2,"漆"),"c")
公式简单又好理解。
但只有 Office 365 和新版 WPS 才能使用……
=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 之前」的思路~
记不住旧函数的公式也没事，这里另有出路~
按下 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 IfEnd FunctionFunction 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 IfEnd Function
关闭 VBA 编辑器，回到 Excel 界面。
然后咱们就能用方法一中的公式了
=TB(TA(B2"漆")"c")
好了，今天分享了三种字符提取的实战运用~
技巧学得再多，能在工作中投入使用才是有效技巧哦！
本文来自微信公众号：秋叶 Excel （ID：excel100），作者：卫星酱
广告声明：文内含有的对外跳转链接（包括不限于超链接、二维码、口令等形式），用于传递更多信息，节省甄选时间，结果仅供参考，IT之家所有文章均包含本声明。