翻譯價格

Step 2) 把輸入好的資料存入 C:\ 定名為 Replace.txt Step 3) 開啟要做代替的活頁簿，按 Alt+F11 進入 VBA 編纂情況，插入一個模組，複製底下的程式碼，貼入模組裡面翻譯

Wend

'LookAt 選擇性的參數。是不是需全字不異。可為以下 XlLookAt 常數之一：xlWhole 或 xlPart。

Option Base 0 Sub MassReplace()

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

Application.ScreenUpdating = True '畫面恢復更新

'SearchOrder 選擇性的參數。搜索的順序。可為下列 XlSearchOrder 常數之一：xlByRows 或 xlByColumns。

Close #Fn

Dim arrStr() As String, InputStr As String

End If

Step 1) 在 Windows 記事本或 WordPad 裡輸入 "要被取代的字串翻譯社要用來取代的字串"，例如要把"2330"取代成"台積電"，要把"2337"庖代成"旺宏"，就輸入： 2330翻譯社台積電 2337翻譯社旺宏 像如許每組一行翻譯記事本可編輯的資料大小受限在 64KB，如果資料非常多，建議利用 WordPad。

Fn = FreeFile

'ReplaceFormat 選擇性的參數。是否取代格式。True/False布林值。(Mac版無此參數)

End Sub

'MatchCase 選擇性的參數。若指定為 True，則搜尋時巨細寫視為相異。 'SearchFormat 選擇性的參數。是不是根據 "格式" 搜尋。True/False布林值。(Mac版無此參數)

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

End Function

While Not EOF(Fn)

'底下是 Replace 的參數申明： 'What 必選的參數翻譯要尋覓的字串翻譯

Function ReplaceText(Src As String, Rpl As String)

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

Step 4) 回到 Excel 工作表視窗，切換到要做取代的工作表，然後按 Alt+F8，選擇 MassReplace 這個巨集按「執行」令它執行翻譯

Line Input #Fn, InputStr '從檔案讀出一列,

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

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

If Len(InputStr) > 0 Then '略過無字串的空行

註:

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

1. "C:\Replace.txt" 可以依所需修改成翻譯公司想寄存的磁碟目次及檔名。

2. 因為程式裡用 Cells.Replace 是沒有指定工作表，就是針對 Active 的工作表，而沒有指定 Cell 的 Row, Column，所所以針對整張工作表所有的儲存格做取代。

3. (2017/7/21增註) 在 Machintosh 麥金塔電腦版的 Excel 裡面執行，需刪除程式碼裡的「, SearchFormat:=False, _ ReplaceFormat:=False」否則履行會産生毛病而呈現 "找不到指定的引數" (感激李師長教師來函扣問)

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

ReplaceFormat:=False

Call ReplaceText(arrStr(0)翻譯社 arrStr(1)) '履行代替