替换单元格中的多个单词

Question

I have multiple cells in a spreadsheet which lists two character country ISO codes in a single cell like so:

CA, MX, US

CA, MX, US

CA, CR, MX, US

AD, AE, AR, AT, AU, BD, BE, BG, BO, BR, CH, CI, CL

CA, MX, US

GB, US

I have another sheet which lists the ISO code and full country name.

I'd like to replace the ISO codes with the full country names.

Does anyone have any suggestion of how I can go about this?

Answer 1

you can try with VBA as follows (you should back up your file in case of rasing any issue)
1. Press Alt + F11 to open VBA
2. pass the code as follows

Sub Multi_FindReplace()
Dim sht As Worksheet
Dim fndList As Variant
Dim rplcList As Variant
Dim x As Long

fndList = Array("CA", "MX", "US")
rplcList = Array("canada", "mexico", "usa")

'Loop through each item in Array lists
  For x = LBound(fndList) To UBound(fndList)
    'Loop through each worksheet in ActiveWorkbook
      For Each sht In ActiveWorkbook.Worksheets
        sht.Cells.Replace What:=fndList(x), Replacement:=rplcList(x), _
          LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
          SearchFormat:=False, ReplaceFormat:=False
      Next sht

  Next x

End Sub

3. Save as xlsm
4. Run the command (in VBA, press F5) 5. Done Notes:

fndList = Array("CA", "MX", "US")
rplcList = Array("canada", "mexico", "usa")

You have to add all the ISO and contries here (using Vlooup and "Concatenate" function for quickly process to generate this string) For your reference: http://www.thespreadsheetguru.com/the-code-vault/2014/4/14/find-and-replace-all