Hvordan oprettes en makro kode for at opnå find og erstat tekst i Excel?
Normalt bruger vi den indbyggede Find og erstat-funktion til at søge og erstatte værdier i Excel. Faktisk kan du finde og erstatte tekst i Excel direkte med makrokode. I denne artikel lærer du, hvordan du opretter en makrokode for at opnå find og erstat tekst i Excel.
Opret en makro kode for at opnå find og erstat tekst i Excel
Opret en makro kode for at opnå find og erstat tekst i Excel
Gør som følger for at oprette en makrokode for at opnå find og erstat tekst i Excel.
1. Tryk på andre + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. i Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Moduler. Kopier derefter under VBA-koden i kodevinduet.
VBA-kode: Opret en makro-kode for at opnå find og erstat tekst i 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. Tryk på F5 nøgle for at køre koden.
4. I den første Kutools til Excel i dialogboksen, skal du indtaste den tekst eller værdi, du vil søge efter, og derefter klikke på OK knap. Se skærmbillede:
5. I det andet Kutools til Excel i dialogboksen, skal du indtaste den tekst eller værdi, du skal erstatte, og klikke på OK .
Derefter erstattes alle angivne tekster med det samme med din ønskede tekst.
Bemærk: Denne kode anvendes på det aktive regneark.
Relaterede artikler:
- Hvordan finder jeg og erstatter alle tomme celler med bestemt antal eller tekst i Excel?
- Hvordan udskiftes kommaer med nye linjer (Alt + Enter) i celler i Excel?
- Hvordan finder jeg og erstatter arknavne i Excel?
- Hvordan finder man værdi i en celle med kommaadskilt liste i Excel?
- Hvordan finder jeg skæringspunktet mellem to kolonnelister i Excel?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!