Hogyan készítsünk makrókódot a szöveg megkereséséhez és cseréjéhez az Excelben?

Normál esetben a beépített Find and Replace funkciót használjuk az Excel-ben az értékek keresésére és cseréjére. Valójában az Excel szövegét közvetlenül makrókóddal találhatja meg és cserélheti le. Ebben a cikkben megtudhatja, hogyan hozhat létre makrókódot az Excel szövegének megkereséséhez és cseréjéhez.

Hozzon létre egy makrókódot a szöveg megkereséséhez és cseréjéhez az Excelben

Hozzon létre egy makrókódot a szöveg megkereséséhez és cseréjéhez az Excelben

Kérjük, tegye a következőket makrokód létrehozásához, hogy elérje és megtalálja a szöveget az Excel programban.

1. megnyomni a más + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson betétlap > Modulok. Ezután másolja a VBA kód alatt a kód ablakba.

VBA-kód: Hozzon létre egy makrókódot a szöveg megkereséséhez és cseréjéhez az Excelben

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. megnyomni a F5 gombot a kód futtatásához.

4. Az elsőben Kutools az Excel számára párbeszédpanelen adja meg a keresni kívánt szöveget vagy értéket, majd kattintson a gombra OK gomb. Lásd a képernyőképet:

5. A másodikban Kutools az Excel számára párbeszédpanelen írja be a cserélni kívánt szöveget vagy értéket, majd kattintson a gombra OK gombot.

Ezután az összes megadott szöveget azonnal kicseréli a kívánt szövegre.

Megjegyzések: Ezt a kódot alkalmazzák az aktív munkalapra.

Kapcsolódó cikkek:

• Hogyan lehet megtalálni és helyettesíteni az összes üres cellát bizonyos számmal vagy szöveggel az Excelben?
• Hogyan helyettesítsük a vesszőket új sorokkal (Alt + Enter) az Excel celláiban?
• Hogyan lehet megkeresni és lecserélni a lapfülek nevét az Excelben?
• Hogyan lehet értéket találni egy cellában vesszővel elválasztott listával az Excelben?
• Hogyan lehet megtalálni két oszloplista metszéspontját az Excelben?