Step 1) 在 Windows 記事本或 WordPad 裡輸入 "要被取代的字串翻譯社要用來代替的字串"，例如要把"2330"取代成"台積電"，要把"2337"代替成"旺宏"，就輸入： 2330,台積電 2337,旺宏 像這樣每組一行翻譯記事本可編纂的資料巨細受限在 64KB，若是資料非常多，建議利用 WordPad。
"若何用find replace做大量分歧字串的代替?" 這篇文章是示範在 Word 裡做大量字串取代的方式，如果在 Excel 裡有大量分歧的字串要取代，可以用底下的方式：
Function ReplaceText(Src As String, Rpl As String)
'這個函式會在全部工作表裡搜尋 Src 字串, 將它代替為 Rpl 字串
Cells.Replace What:=Src, Replacement:=Rpl翻譯社 LookAt:=xlPart, _
End Function
'ReplaceFormat 選擇性的參數翻譯是不是代替花樣。True/False布林值翻譯(Mac版無此參數)
'MatchCase 選擇性的參數。若指定為 True，則搜索時巨細寫視為相異翻譯 'SearchFormat 選擇性的參數。是否依據 "花式" 搜尋。True/False布林值。(Mac版無此參數)
ReplaceFormat:=False
'底下是 Replace 的參數說明： 'What 必選的參數。要尋覓的字串。
'Replacement 必選的參數。要置換的字串。
Step 4) 回到 Excel 工作表視窗，切換到要做庖代的工作表，然後按 Alt+F8，選擇 MassReplace 這個巨集按「履行」令它執行。
End If
Call ReplaceText(arrStr(0)翻譯社 arrStr(1)) '執行庖代
Step 2) 把輸入好的資料存入 C:\ 定名為 Replace.txt Step 3) 開啟要做庖代的活頁簿，按 Alt+F11 進入 VBA 編纂環境，插入一個模組，複製底下的程式碼，貼入模組裡面翻譯
Dim arrStr() As String, InputStr As String
If Len(InputStr) > 0 Then '略過無字串的空行
Line Input #Fn翻譯社 InputStr '從檔案讀出一列,
Open "C:\Replace.txt" For Input As #Fn '開啟 Replace.txt 檔 Application.ScreenUpdating = False '畫面暫停更新
While Not EOF(Fn)
arrStr = Split(InputStr翻譯社 ",") '把讀入的文字列依逗號分成兩個字串, 置於 arrStr 陣列裡
Wend
Close #Fn
End Sub
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False翻譯社 _
Option Base 0 Sub MassReplace()
Fn = FreeFile
註:
'SearchOrder 選擇性的參數翻譯搜尋的按次。可為下列 XlSearchOrder 常數之一：xlByRows 或 xlByColumns。
1. "C:\Replace.txt" 可以依所需點竄成翻譯公司想寄存的磁碟目次及檔名。
2. 因為程式裡用 Cells.Replace 是沒有指定工作表，就是針對 Active 的工作表，而沒有指定 Cell 的 Row, Column，所所以針對整張工作表所有的儲存格做取代。
3. (2017/7/21增註) 在 Machintosh 麥金塔電腦版的 Excel 裡面履行，需刪除程式碼裡的「, SearchFormat:=False, _ ReplaceFormat:=False」否則履行會産生錯誤而出現 "找不到指定的引數" (感激李先生來函扣問)
'LookAt 選擇性的參數。是不是需全字溝通翻譯可為以下 XlLookAt 常數之一：xlWhole 或 xlPart。
Application.ScreenUpdating = True '畫面恢復更新
文章來自: http://blog.udn.com/WayCheng/2808290有關各國語文翻譯公證的問題歡迎諮詢天成翻譯公司02-77260931
