如何創建宏代碼以實現在Excel中查找和替換文本？

通常，我們會使用內建的尋找和取代功能來搜尋和取代Excel中的值。其實，你可以直接用巨集程式碼來找出和取代Excel中的文字。在本文中，您將學習如何建立巨集程式碼來實現在 Excel 中尋找和取代文字。

創建宏代碼以實現在Excel中查找和替換文本

創建宏代碼以實現在Excel中查找和替換文本

請執行以下操作以創建宏代碼以實現在Excel中查找和替換文本。

1。 按 其他 + 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.在第一 Excel的Kutools 對話框中，輸入要搜索的文本或值，然後單擊 OK 按鈕。 看截圖：

5.在第二 Excel的Kutools 對話框中，輸入要替換的文本或值，然後單擊 OK 按鈕。

然後，所有指定的文本將立即替換為所需的文本。

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

相關文章：

• 如何在Excel中查找並替換所有具有特定編號或文本的空白單元格？
• 如何在Excel單元格中用換行符（Alt + Enter）替換逗號？
• 如何在Excel中查找和替換工作表標籤名稱？
• 如何在Excel中用逗號分隔列表的單元格中查找值？
• 如何在Excel中查找兩列列表的交集？