[發問] 資料處理

ELINA

我需要處理地址資料
但來源檔案中的地址資料格式不一
例:
981花蓮縣玉里鎮中正路２６號
97321花蓮縣吉安鄉吉興路一段１９０號
花蓮縣花蓮市國福里福光街347巷19號

有以上三種情況
我想將郵遞區號去除，保留地址的部份
不知有何快速的方式呢
麻煩囉

Hsieh

A1陣列公式
=MID(A1,MATCH(1,1*ISERROR(--MID(A1,ROW($1:$255),1)),0),LEN(A1))
向下複製
要用VBA可參考

1. Sub nn()
   
2. For Each a In Range([A1], [A65536].End(xlUp))
   
3.    i = 1
   
4.    Do Until Asc(Mid(a, i, 1)) < 48 Or Asc(Mid(a, i, 1)) > 57
   
5.    i = i + 1
   
6.    Loop
   
7.    a.Value = Mid(a, i)
   
8. Next
   
9.    
   
10. End Sub

複製代碼

oobird

也提供一個
Sub yy()
For Each a In [a:a].SpecialCells(2)
a.Replace Val(a), ""
Next
End Sub

ELINA

謝謝兩位，迅速的提供解答
但可以解說一下嗎