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

av8d

已知函數可以達成 B2=RIGHT(A1,LEN(A1)-SEARCH("特定符號",A1))

請問前輩，如何在模組改寫，謝謝。

av8d

回復 1# av8d


    解開了，只有Seatch需要用到Application.WorksheetFunction.Search

函數Len和Right可以直接使用，已解答。

hcm19522

https://blog.xuite.net/hcm19522/twblog/590769685

Andy2483

謝謝前輩
後學藉此主題練習如何分割字串防錯

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

Andy2483

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