VBA字串空格提取

Groove

Sub VBA()
Dim i
arr = [a1].CurrentRegion
For i = 2 To UBound(arr)
    arr(i, 1) = Mid(Cells(i, 1), InStr(Cells(i, 1), "-") + 1)
    Next i
Range("C1").Resize(UBound(arr)) = arr
End Sub

需要提取 "-"后的英文名和第3个空格之间的英文名 = B列

jiminyanyan

。。。。。。。

jiminyanyan

。。。。。

Groove

jiminyanyan 发表于 2019-3-17 20:24
。。。。。。。

老师先谢谢你的方法, 我的数据不足, 匹配度有少少需要修改
因为判断是英文等组合字.

所以如果字串内有出现其他英文字就会出现以下情况
A2 = 00:15 XX-peter Jin SCQl去公园
B2 = peter Jin SCQl 不等于 peter Jin

因为我想固定定位在第3个空格. 会有什么方法修改. 感激老师

wzsy2_mrf

1. Sub VBA()
   
2.     Dim i
   
3.     Dim strTxt As String, strMsg As String, strKey$
   
4.     Dim objRegEx As Object, objMatch As Object, c As Range
   
5.     Dim j As Integer
   
6.     arr = [a1].CurrentRegion
   
7.     Set objRegEx = CreateObject("vbscript.regexp")
   
8.     objRegEx.Pattern = "-[A-Za-z]+ [A-Za-z]+"
   
9.     objRegEx.Global = True
   
10.     objRegEx.MultiLine = True
    
11.    
    
12.     For i = 2 To UBound(arr)
    
13.         strTxt = arr(i, 1)
    
14.         Set objMatch = objRegEx.Execute(strTxt)
    
15.         For Each st In objMatch
    
16.             arr(i, 1) = Replace(st, "-", "")
    
17.         Next st
    
18.     Next
    
19.     [f1].Resize(UBound(arr), 1) = arr
    
20.     Set objMatch = Nothing
    
21.     Set objRegEx = Nothing
    
22. End Sub

复制代码

Groove

研究了regexp 匹配方法成功了, 谢谢两位老师

小花鹿

根本用不着正则
另外，数据少了，体现不出正确的规律                                                                                       

duquancai

Groove 发表于 2019-3-17 21:11
研究了regexp 匹配方法成功了, 谢谢两位老师

1. # -*- coding: utf-8 -*-
   
2. # version: Python 3.7.0
   
3. import re
   
4. 
   
5. A2 = "00:15 XX-peter Jin SCQl去公园"
   
6. 
   
7. res = re.search(r'\A[^\x20]*\x20+[^\x20]*-([a-zA-Z]+\x20+[a-zA-Z]+)(?=\x20+)',A2)
   
8. result = res.group(1) if res else '没有'
   
9. 
   
10. print(result)

复制代码