標題: [發問] 如何取特定符號右邊的字或數字 [打印本頁]

---

作者: av8d    時間: 2023-3-26 16:13     標題: 如何取特定符號右邊的字或數字

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

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

---

作者: av8d    時間: 2023-3-26 18:31

回復 1# av8d


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

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

---

作者: hcm19522    時間: 2023-3-27 12:26

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

---

作者: Andy2483    時間: 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

---

作者: Andy2483    時間: 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

---

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