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

偉婕

我有數筆資料,每個儲存格中的資料若有多個字串是以分號區隔,有以下情況:
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中透過函數或其他方式解決,謝謝!

ivanyung

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

偉婕

回復 2# ivanyung

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