標題: [發問] 取字串疑問 [打印本頁]

---

作者: Michelle-W    時間: 2016-8-18 09:35     標題: 取字串疑問

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


感恩


舉例↓
[attach]24966[/attach]

---

作者: 准提部林    時間: 2016-8-18 09:47

本帖最後由 准提部林 於 2016-8-18 09:49 編輯

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

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

---

作者: Michelle-W    時間: 2016-8-18 10:19

回復 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

---

作者: 准提部林    時間: 2016-8-18 10:30

方法一：
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    時間: 2016-8-18 10:30

回復 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    時間: 2016-8-18 11:09

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

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)