[發問] 請問如何從一行文字長字串中截取需要的短字串

lone_tiger0303

AO欄位內的字串有統一排列方式，在每一個#字號後面在帶出"職稱"與"姓名"。每一個字串可能同時有二個以上的#字號，如何用VBA方式篩選出我僅需要的"姓名"，並將"姓名"個別抓到BJ、BK、BL…欄位

luhpro

依據你的需求抓取指定字串的癥結在於 :
1. 找到 "#" 與 "$" 的位置,
2. 確定職稱都是只有兩個字, 否則將很難確認到底名字是從哪裡開始抓的
要找到某個字串的位置 Excel VBA 有個指令 instr 可以達成此目的.

值得一題的是,
不論 instr 還是 mid(left、right、len 皆同) 對於中文字都是視為 1 個字的長度,
這在抓取報表形式的文字時是非常不適合用的指令.
例如 :

2011/06/25 張三       16:33:18
2011/06/25 李四娘     16:55:21

若用 mid(sstr,21,8) 抓第一行可以正常抓到時間 16:33:18,
但第二行卻會抓成 6:55:21 ,
所以比較好的區隔方式會是在要抓的字串右方放上用特定符號,
用 instr 抓取該符號再往前推一定長度.

然而在 c 語言中一個中文字則是視為 2 個字的長度,
在此類需求的使用上真的是比 Excel VBA 方便多了.

底下是我想到的程式 :

1. Sub nn()
   
2.   Dim sStr$, sColumn$
   
3.   Dim iI%, iBegin%, iMark%, iEnd%, iRows%, iRow%
   
4.   Dim iCol%, iCol1%, iNext%
   
5.   
   
6.   sColumn = "BJ"
   
7.   iCol1 = 0
   
8.   For iI = Len(sColumn) - 1 To 0 Step -1
   
9.     iMark = Asc(Mid(sColumn, iI + 1, 1)) - 64
   
10.     iCol1 = iCol1 + iMark * 26 ^ -(iI = 0)
    
11.   Next iI
    
12.   iRows = Cells(Rows.Count, "AO").End(xlUp).Row
    
13.   For iRow = 2 To iRows
    
14.     sStr = CStr(Cells(iRow, "AO").Value)
    
15.     iBegin = InStr(1, sStr, "#") + 1
    
16.     iNext = InStr(iBegin + 1, sStr, "#") + 1
    
17.     If iNext < iBegin Then iNext = iBegin
    
18.     iCol = iCol1
    
19.     Do Until iBegin > iNext
    
20.       iEnd = InStr(iBegin, sStr, "$") - 1
    
21.       Do Until iBegin > iEnd
    
22.         iMark = InStr(iBegin, sStr, "#") - 1
    
23.         If iMark > iBegin + 6 Then iMark = iEnd
    
24.         If iMark < iBegin Then iMark = iEnd
    
25.         Cells(iRow, iCol).Value = Trim(Mid(sStr, iBegin + 2, iMark - iBegin - 1))
    
26.         iBegin = iMark + 2
    
27.         iCol = iCol + 1
    
28.       Loop
    
29.       iNext = InStr(iBegin + 1, sStr, "#") + 1
    
30.       If iNext > iBegin Then iBegin = iNext
    
31.     Loop
    
32.   Next iRow
    
33. End Sub

複製代碼

diabo

1. Sub 資料剖析()
   
2. 
   
3.    '取得資料最後一列
   
4.     last_row = Sheet1.[AO65536].End(xlUp).Row   
   
5.    '取得填入姓名之欄數
   
6.     col_bgn = Sheet1.Range("BJ1").Column
   
7.    
   
8.     For r = 2 To last_row         
   
9.        '欲解析之原始資料內容
   
10.         raw_data = Sheet1.Range("AO" & r).Value               
    
11.        '以#分割字串為陣列(Array)
    
12.         arr_Name = Split(raw_data, "#")
    
13.         For n = 1 To UBound(arr_Name)
    
14.            '第n個姓名回填資料欄數
    
15.             c = col_bgn + n
    
16.            '取出職稱+姓名+....
    
17.             raw_name = Trim(arr_Name(n))            
    
18.            '取的$位置
    
19.             pos = InStr(1, raw_name, "$")
    
20.            '取出姓名--假設職稱皆為兩個字(請自行將AD2的「接帶待」改為「接待」)
    
21.             Sheet1.Cells(r, c).Value = Mid(raw_name, 3, IIf(pos = 0, 255, pos - 3))
    
22.         Next
    
23.     Next
    
24. 
    
25. End Sub

複製代碼

lone_tiger0303

感謝luhpro與diabo幫忙