標題: [發問] 資料處理 [打印本頁]

---

作者: ELINA    時間: 2011-4-27 15:28     標題: 資料處理

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

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

---

作者: Hsieh    時間: 2011-4-27 16:20

本帖最後由 Hsieh 於 2011-4-27 16:25 編輯

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    時間: 2011-4-27 16:41

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

---

作者: ELINA    時間: 2011-4-27 17:25

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

---

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