標題: [發問] 請問,要選取指定字與字中間的文字?? [打印本頁]

---

作者: gctsai    時間: 2014-10-18 10:57     標題: 請問,要選取指定字與字中間的文字??

請問大大:
我想要選取指定字與字中間的文字,如下:
儲存格B1="民國壹零叁年歲次甲午伍月拾柒日"
我要取得月與日, 如"伍"和 "拾柒"兩個
ps.因為月與日有時候會有一個字與兩個字甚至於會有三個字"貳拾伍"

---

作者: GBKEE    時間: 2014-10-18 17:04

回復 1# gctsai

1. Option Explicit
   
2. Sub EX()
   
3.     Dim S As String
   
4.     S = InStr([B1], "歲次")
   
5.     S = Mid([B1], S + 4)
   
6.     S = Replace(S, "月", ",")
   
7.     S = Replace(S, "日", "")
   
8.     MsgBox Split(S, ",")(0)
   
9.     MsgBox Split(S, ",")(1)
   
10. End Sub

複製代碼

---

作者: gctsai    時間: 2014-10-18 17:25

謝謝GBKEE大大的指導

---

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