求助：提取字符串

cqzxpx

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

tmtony

用VBA的話，
簡單的可以用instr 找到 套的位置，再用 instr 或 InStrRev  加開始位置 取前后空格的位置

用函數公式的話，等小妖或R大師回復了

roych

如果是一個“套”，公式還是可以的。多個“套”的時候，因為沒法find到最后一個套附近的空格位置，只能VBA。代碼供參考。附件中已經創(chuàng)建了自定義函數。請啟用宏后運行。

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

學習