Hvordan finder og erstatter flere værdier på én gang i Excel?
Som vi alle ved, kan funktionen Find og erstat bruges til at lokalisere flere identiske celler og erstatte dem med en specificeret værdi. Men nogle gange skal du udføre mange-til-mange udskiftninger samtidigt. For eksempel har jeg en række data, og nu vil jeg erstatte alle æbler til røde æbler, appelsiner til grønne appelsiner, bananer til gule bananer og så videre, som det viste skærmbillede til venstre, har du nogen effektive metoder til at udføre denne opgave i Excel?
Find og erstat flere værdier på én gang med VBA-kode
Hvis du er træt af at finde og udskifte værdierne igen og igen, kan følgende VBA-kode hjælpe dig med at erstatte flere værdier med dine nødvendige tekster på én gang.
1. Opret venligst dine betingelser, som du vil bruge, og som indeholder de originale værdier og nye værdier. Se skærmbillede:
2. Hold derefter nede ALT + F11 nøgler til at åbne Vinduet Microsoft Visual Basic til applikationer.
3. Klik indsatte > Moduler, og indsæt følgende kode i modulvinduet.
VBA-kode: Find og erstat flere værdier på én gang
Sub MultiFindNReplace()
'Updateby Extendoffice
Dim Rng As Range
Dim InputRng As Range, ReplaceRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Original Range ", xTitleId, InputRng.Address, Type:=8)
Set ReplaceRng = Application.InputBox("Replace Range :", xTitleId, Type:=8)
Application.ScreenUpdating = False
For Each Rng In ReplaceRng.Columns(1).Cells
InputRng.Replace what:=Rng.Value, replacement:=Rng.Offset(0, 1).Value
Next
Application.ScreenUpdating = True
End Sub
4. Tryk derefter på F5 tasten for at køre denne kode, i den sprettede promptboks, angiv venligst det dataområde, hvor du vil erstatte værdierne med nye.
5. Klik OK, og en anden promptboks vises for at minde dig om at vælge de kriterier, som du oprettede i trin 1. Se skærmbillede:
6. Klik derefter på OK, er alle de angivne værdier blevet erstattet med de nye efter behov.
Relaterede artikler:
Hvordan finder man og erstatter specifik tekst i tekstfelter?
Hvordan finder og erstatter jeg tekst i diagramtitler i Excel?
Hvordan finder og erstatter jeg tekst i kommentarer i Excel?
Hvordan ændres flere hyperlinkstier på én gang 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!