[發問] 取字串疑問

Michelle-W

請問我想要取特定符號中間的字串
除了把資料剖析得到以外
程式碼應該要如何撰寫? 邏輯是什麼QQ
資料大概150~200筆，之後可能會再增加


感恩


舉例↓
取字串.rar (6.26 KB)

下載次數: 9

2016-8-18 09:32

准提部林

TT$ = [A2]
T = Split(Split(TT & "//", "//")(1) & "/", "/")(0)
MsgBox T

分解動作
TT$ = [A2]
T = Split(TT & "//", "//")(1)  以"//"分隔, 取右方文字
T = Split(T & "/", "/")(0)   以"/"分隔,  取左方文字
MsgBox T

Michelle-W

回復 2# 准提部林


謝謝准大
請問如果我要將字串依序放入B欄裡面，應該要怎麼寫?

自己改了一下，好像有錯誤Q"Q
lastrow = Sheet1.[A65536].End(xlUp).Row
TT = Range("A2:A" & lastrow)
T = Split(Split(TT & "//", "//")(1) & "/", "/")(0)
Cells(lastrow, 2) = T

准提部林

方法一：
Sub test0818_1()
Dim xR As Range, T$
For Each xR In Range([A2], [A65536].End(xlUp))
　　T = Split(xR & "//", "//")(1)
　　T = Split(T & "/", "/")(0)
　　If T <> "" Then xR(1, 2) = T
Next
End Sub

方法二：
Sub test0818_2()
[A:A].Copy [B:B]
[B:B].Replace "*//", "", Lookat:=xlPart
[B:B].Replace "/*", "", Lookat:=xlPart
End Sub

c_c_lai

回復 3# Michelle-W
試試看！

1. Sub Ex()
   
2.     Dim rng As Range
   
3. 
   
4.     For Each rng In Range([A2], [A2].End(xlDown))
   
5.         rng.Offset(, 5) = Split(Split(rng.Value & "//", "//")(1) & "/", "/")(0)
   
6.     Next
   
7. End Sub

複製代碼

Michelle-W

回復 4# 准提部林
回復 5# c_c_lai

我真的還要多加強一下撰寫邏輯
前輩們這麼即時的指導
真的非常感謝!!!・ω・