返回列表 上一主題 發帖

[發問] 資料處理

ELINA

帖子
12 
主題
3 
精華
0 
積分
53 
點名
0  
作業系統
win2000 
軟體版本
Office 2003 
閱讀權限
20 
性別
女 
註冊時間
2011-4-15 
最後登錄
2013-2-25 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-4-27 15:28 | 只看該作者

[發問] 資料處理

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

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

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
103  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-5-4 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 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
複製代碼
學海無涯_不恥下問

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
3#
發表於 2011-4-27 16:41 | 只看該作者
也提供一個
Sub yy()
For Each a In [a:a].SpecialCells(2)
a.Replace Val(a), ""
Next
End Sub

TOP

ELINA

帖子
12 
主題
3 
精華
0 
積分
53 
點名
0  
作業系統
win2000 
軟體版本
Office 2003 
閱讀權限
20 
性別
女 
註冊時間
2011-4-15 
最後登錄
2013-2-25 
4#
發表於 2011-4-27 17:25 | 只看該作者
謝謝兩位，迅速的提供解答
但可以解說一下嗎

TOP

        靜思自在 : 有智慧才能分辨善惡邪正；有謙虛才能建立美滿人生。
返回列表 上一主題