Kako ustvariti makro kodo za iskanje in zamenjavo besedila v Excelu?
Običajno za iskanje in zamenjavo vrednosti v Excelu uporabljamo vgrajeno funkcijo Najdi in zamenjaj. Pravzaprav lahko besedilo v Excelu poiščete in zamenjate neposredno s kodo makra. V tem članku boste izvedeli, kako ustvariti makro kodo za iskanje in zamenjavo besedila v Excelu.
Ustvarite makro kodo za iskanje in zamenjavo besedila v Excelu
Ustvarite makro kodo za iskanje in zamenjavo besedila v Excelu
Naredite naslednje, če želite ustvariti makro kodo za iskanje in zamenjavo besedila v Excelu.
1. Pritisnite druga + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.
2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kliknite Vstavi > Moduli. Nato kopirajte spodnjo kodo VBA v okno s kodo.
Koda VBA: ustvarite kodo makra za iskanje in zamenjavo besedila v Excelu
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. Pritisnite F5 tipko za zagon kode.
4. V prvem Kutools za Excel v pogovorno okno vnesite besedilo ali vrednost, ki jo boste iskali, in nato kliknite OK . Oglejte si posnetek zaslona:
5. V drugem Kutools za Excel v pogovorno okno vnesite besedilo ali vrednost, ki jo boste zamenjali, in kliknite OK gumb.
Nato se vsa določena besedila takoj nadomestijo z želenim besedilom.
Opombe: Ta koda se uporablja za aktivni delovni list.
Sorodni članki:
- Kako najti in nadomestiti vse prazne celice z določeno številko ali besedilom v Excelu?
- Kako v celicah v Excelu zamenjati vejice z novimi vrsticami (Alt + Enter)?
- Kako najti in zamenjati imena zavihkov listov v Excelu?
- Kako najti vrednost v celici s seznamom, ločenim z vejico v Excelu?
- Kako najti presečišče dveh seznamov stolpcev v Excelu?
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!