請問大神們如何在不規格字串當中抓取郵遞區號?

星幻 wrote:
=IFERROR(MID...(恕刪)

jafe wrote:
謝謝大大!!!
這邊後來有用定義每個縣市然後抓取前五碼
這個方法等等也來試試看，多學一招了!!!

guiltyboa wrote:
縣市名稱表列之後
直接往前抓就好
基本上程式不難寫

mk2-paul wrote:
=IFERROR(MID...(恕刪)

星幻 wrote:
若是用程式的話，這很簡單，但偏偏它是Excel…
在陣列比對上，Excel一直比較沒辦法有效率的作到。(不運行VBA的情況下)

guiltyboa wrote:
縣市名稱表列之後
直接往前抓就好
基本上程式不難寫

'郵遞區號
Function get_number(S As String)
    Application.Volatile
    Dim Find_Num
    With CreateObject("VBScript.RegExp")
         .Pattern = "\d+(?=\D+[縣市])"
         .Global = True
         Set Find_Num = .Execute(S)
     End With
     If Find_Num.Count = 0 Then get_number = "" Else get_number = Find_Num(0)
End Function

'地址
………
………
………
.Pattern = "\D+[縣市].*[樓號fF]"
………
………
………

heartgame wrote:
一般寫程式，我會用空(恕刪)