[發問] 請教關於將資料統一之處理

我有數筆資料,每個儲存格中的資料若有多個字串是以分號區隔,有以下情況:
1)若字串中含有USA,則統一改為USA
1.1)字串為由--二個字母+空一格+五位數字+空一格+USA--組成,例

A 15213 USA
1.2)字串為由--二個字母+空一格+USA--組成,例:WI USA
2)字串中未含USA,但由--二個字母+空一格+五位數字--組成,例:FL 32816,亦統一改為USA

原資料　　　　　　　　　　　　　　　　　　　　　　修改後資料
CA 94720 USA　　　　　　　　　　　　　　　　　　　USA
CA 94305 USA; MA 02139 USA　　　　　　　　　　 USA; USA
IL 61801 USA; France　　　　　　　　　　　　　　　USA; France
CA 93106 USA; Japan; Japan　　　　　　　　　　　USA; Japan; Japan
FL 32816 　　　　　　　　　　　　　　　　　　　　　USA
CA USA 　　　　　　　　　　　　　　　　　　　　　USA
IN USA; MS USA; MS USA 　　　　　　　　　　USA; USA; USA
JAPAN; PA 19104; CANADA 　　　　　　　　　　Japan; USA; Canada

雖然已透過Word及人工方式解決了,但仍想知道有沒有辦法在Excel中透過函數或其他方式解決,謝謝!

990820-2.rar (4.42 KB)

樓主熱帖

偉婕電子書,歡迎免費下載參考
http://www.twbts.com/ebook/?subject=office
http://www.twbts.com/ebook/?subject=soft
偉婕藏書庫---https://www.facebook.com/groups/669579416484096/
有一家柑仔店---https://www.facebook.com/sadodona

ivanyung

中學生 Rank: 2

帖子: 49
主題: 5
精華: 0
積分: 92
點名: 0
作業系統: Windows 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2010-7-31
最後登錄: 2011-10-19

2^#

發表於 2010-8-21 09:47 | 只看該作者

Option Explicit

Function MyX(MyStr As String)
Dim Myarr() As String
Myarr() = Split(MyStr, ";")

Dim i As Integer
For i = 0 To UBound(Myarr)
If InStr(1, Myarr(i), "USA") > 0 Then Myarr(i) = "USA"
If Val(Right(Myarr(i), 5)) > 0 Then Myarr(i) = "USA"
Next

MyX = Join(Myarr(), ";")
End Function

TOP

偉婕

　暱稱: 偉婕

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 376
主題: 84
精華: 0
積分: 419
點名: 0
作業系統: Win 8
軟體版本: Office 2007
閱讀權限: 100
性別: 女
註冊時間: 2010-4-30
最後登錄: 2022-6-2

論壇貢獻勳章美女勳章熱烈參與勳章

3^#

發表於 2010-8-21 23:27 | 只看該作者

回復 2# ivanyung

謝謝[ivanyung],可以解決我的問題!

偉婕電子書,歡迎免費下載參考
http://www.twbts.com/ebook/?subject=office
http://www.twbts.com/ebook/?subject=soft
偉婕藏書庫---https://www.facebook.com/groups/669579416484096/
有一家柑仔店---https://www.facebook.com/sadodona

TOP