勒姜文翻譯

ReplaceFormat:=False

'Replacement 必選的參數翻譯要置換的字串。

Cells.Replace What:=Src翻譯社 Replacement:=Rpl, LookAt:=xlPart, _

Function ReplaceText(Src As String, Rpl As String)

"若何用find replace做大量不同字串的代替?" 這篇文章是示範在 Word 裡做大量字串庖代的方式，假如在 Excel 裡有大量不同的字串要代替，可以用底下的方法：

Fn = FreeFile

arrStr = Split(InputStr, "翻譯社") '把讀入的文字列依逗號分成兩個字串, 置於 arrStr 陣列裡

While Not EOF(Fn)

Open "C:\Replace.txt" For Input As #Fn '開啟 Replace.txt 檔 Application.ScreenUpdating = False '畫面暫停更新

Dim arrStr() As String, InputStr As String

'這個函式會在整個工作表裡搜索 Src 字串, 將它庖代為 Rpl 字串

SearchOrder:=xlByRows, MatchCase:=False翻譯社 SearchFormat:=False, _

'底下是 Replace 的參數說明： 'What 必選的參數。要尋找的字串翻譯

End Function

'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」不然履行會産生毛病而呈現 "找不到指定的引數" (感謝李先生來函詢問)