返回列表 上一主題 發帖

[發問] 如何取特定符號右邊的字或數字

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1447 
主題
40 
精華
0 
積分
1471 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2025-2-11 
1# 跳轉到 »
發表於 2023-3-27 16:40 | 顯示全部帖子
謝謝前輩
後學藉此主題練習如何分割字串防錯

Option Explicit
Sub TEST()
Dim T$
[A1] = "12345特定符號6789"
T = "特定符號"
[B2] = Split([A1] & T, T)(1)
MsgBox [B2]
[C2] = Split([B2] & T, T)(1)
MsgBox [C2]
[C2] = Split([B2], T)(1)
MsgBox [C2]
End Sub
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1447 
主題
40 
精華
0 
積分
1471 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2025-2-11 
2#
發表於 2023-3-29 16:01 | 顯示全部帖子
回復 4# Andy2483


    回復自己的粗心大意
情境需求有多種,另想到不同情境需求

Option Explicit
Sub TEST_2()
Dim T$
[A1] = "12345特定符號6789特定符號ABCDE"
T = "特定符號"
[B2] = [A1]
[B2].Replace "*" & T, "", 2
MsgBox [B2]
End Sub

Sub TEST_3()
Dim T$
[A1] = "12345特定符號6789特定符號ABCDE"
T = "特定符號"
[B2] = Mid([A1], InStr([A1], T) + Len(T))
MsgBox [B2]
End Sub
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

        靜思自在 : 並非有錢魷是快樂，問心無愧心最安。
返回列表 上一主題