[發問] 取字串疑問

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

感恩

舉例↓

取字串.rar (6.26 KB)

樓主熱帖

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-21

2^#

發表於 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

TOP

Michelle-W

中學生 Rank: 2

帖子: 63
主題: 13
精華: 0
積分: 122
點名: 0
作業系統: Windows
軟體版本: office2007
閱讀權限: 20
性別: 女
註冊時間: 2015-4-22
最後登錄: 2019-7-19

3^#

發表於 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

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-21

4^#

發表於 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

TOP

c_c_lai