英文口譯課程

Close #Fn

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

Dim arrStr() As String翻譯社 InputStr As String

Wend

End If

Fn = FreeFile

Call ReplaceText(arrStr(0)翻譯社 arrStr(1)) '執行取代

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

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

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

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

While Not EOF(Fn)

End Sub

Function ReplaceText(Src As String, Rpl As String)

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

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

Option Base 0 Sub MassReplace()

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

Step 1) 在 Windows 記事本或 WordPad 裡輸入 "要被庖代的字串翻譯社要用來代替的字串"，例如要把"2330"庖代成"台積電"，要把"2337"代替成"旺宏"，就輸入： 2330,台積電 2337,旺宏 像如許每組一行翻譯記事本可編纂的資料巨細受限在 64KB，假如資料十分多，建議利用 WordPad翻譯

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

'LookAt 選擇性的參數翻譯是否需全字相同翻譯可為下列 XlLookAt 常數之一：xlWhole 或 xlPart翻譯

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

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