如何建立一個巨集代碼來實現Excel中的尋找和替換文字？

通常，我們使用內建的尋找和替換功能在Excel中搜尋和替換值。實際上，您可以直接使用巨集代碼在Excel中尋找和替換文字。本文將教您如何建立一個巨集代碼來實現Excel中的尋找和替換文字。

建立一個巨集代碼來實現Excel中的尋找和替換文字

建立一個巨集代碼來實現Excel中的尋找和替換文字

請按照以下步驟建立一個巨集代碼來實現Excel中的尋找和替換文字。

1. 按下 Alt + F11 鍵打開 Microsoft Visual Basic for Applications 視窗。

2. 在 Microsoft Visual Basic for Applications 視窗中，點擊 插入 > 模組。然後將以下VBA代碼複製到代碼視窗中。

VBA代碼：建立一個巨集代碼來實現Excel中的尋找和替換文字

Sub FindandReplaceText()
'Update by Extendoffice 2018/5/24
    Dim xFind As String
    Dim xRep As String
    Dim xRg As Range
    On Error Resume Next
    Set xRg =Cells
    xFind = Application.InputBox("word to search:", "Kutools for Excel", , , , , 2)
    xRep = Application.InputBox("word to replace:", "Kutools for Excel", , , , , 2)
    If xFind = "False" Or xRep = "False" Then Exit Sub
    xRg.Replace xFind, xRep, xlPart, xlByRows, False, False, False, False
End Sub

3. 按下 F5 鍵執行代碼。

4. 在第一個 Kutools for Excel 對話框中，輸入您要搜尋的文字或值，然後點擊 確定 按鈕。請參閱截圖：

5. 在第二個 Kutools for Excel 對話框中，輸入您要替換的文字或值，然後點擊 確定 按鈕。

然後所有指定的文字都會立即被您想要的文字替換。

備註：此代碼適用於活動工作表。

相關文章：

• 如何在Excel中尋找和替換所有空白單元格為特定數字或文字？
• 如何在Excel的單元格中將逗號替換為換行符（Alt + Enter）？
• 如何在Excel中尋找和替換工作表標籤名稱？
• 如何在Excel中包含逗號分隔列表的單元格中尋找值？
• 如何在Excel中尋找兩個列清單的交集？