求助：提取字符串

cqzxpx

提取字符串中包含“套”的字符串

tmtony

用VBA的话，
简单的可以用instr 找到 套的位置，再用 instr 或 InStrRev  加开始位置 取前后空格的位置

用函数公式的话，等小妖或R大师回复了

roych

如果是一个“套”，公式还是可以的。多个“套”的时候，因为没法find到最后一个套附近的空格位置，只能VBA。代码供参考。附件中已经创建了自定义函数。请启用宏后运行。

1. Function getTao(ByVal rng As Range) As String
   
2.     Dim lngStart As Long, lngEnd As Long
   
3.     Dim strGet As String
   
4.     Dim lngFirst As Long, lngLast As Long
   
5.    
   
6.     '第一个套和最后一个套的位置
   
7.     lngFirst = InStr(1, rng, "套")
   
8.     lngLast = InStrRev(rng, "套")
   
9.     '如果没找到，返回空值
   
10.     If lngFirst = 0 Then
    
11.         strGet = ""
    
12.     Else
    
13.     '开始位置和最后位置。
    
14.         lngStart = InStrRev(Left(rng, lngFirst), " ") + 1
    
15.         lngEnd = InStr(1, Mid(rng, lngLast), " ") - 1 + lngLast
    
16.     '返回字符串
    
17.         strGet = Mid(rng, lngStart, lngEnd - lngStart)
    
18.     End If
    
19.     getTao = strGet
    
20. End Function

复制代码

gouweicao78

由于存在字母间的空格，因而可以分2步走。
第1步，复制到word，查找替换如图：

查找：([a-z,A-Z]) ([a-z,A-Z])
替换为：\1※\2
把字母间的空格替换为※

第2步，从word再贴回到Excel，输入公式，用函数分列+VLOOKUP单列模糊查找

1. =SUBSTITUTE(VLOOKUP("*套*",TRIM(MID(SUBSTITUTE(A2," ",REPT(" ",99)),99*{0;1;2;3;4}+1,99)),1,0),"※"," ")

复制代码

【函数分列】+【Vlookup单列查找】的案例，可参考疑难千寻千解丛书《Excel 2013函数与公式》疑难136        如何将一个单元格内多个“字段”与内容进行分离

wuwu20022

学习