Hoe maak je een macrocode om tekst in Excel te vinden en te vervangen?
Normaal gesproken gebruiken we de ingebouwde functie Zoeken en vervangen om waarden in Excel te zoeken en te vervangen. Eigenlijk kunt u tekst in Excel rechtstreeks zoeken en vervangen door macrocode. In dit artikel leert u hoe u een macrocode maakt om tekst in Excel te zoeken en te vervangen.
Maak een macrocode om tekst in Excel te zoeken en te vervangen
Maak een macrocode om tekst in Excel te zoeken en te vervangen
Ga als volgt te werk om een macrocode te maken om tekst in Excel te zoeken en te vervangen.
1. druk de anders + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. In de Microsoft Visual Basic voor toepassingen venster klikt Invoegen > Module. Kopieer vervolgens onderstaande VBA-code naar het codevenster.
VBA-code: maak een macrocode om tekst in Excel te zoeken en te vervangen
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. druk de F5 sleutel om de code uit te voeren.
4. In de eerste Kutools for Excel dialoogvenster, voer de tekst of waarde in die u wilt zoeken en klik vervolgens op het OK knop. Zie screenshot:
5. In de tweede Kutools for Excel dialoogvenster, voer de tekst of waarde in die u wilt vervangen en klik op het OK knop.
Vervolgens worden alle opgegeven teksten direct vervangen door uw gewenste tekst.
Note: Deze code wordt toegepast op het actieve werkblad.
Gerelateerde artikelen:
- Hoe alle lege cellen te vinden en te vervangen door een bepaald nummer of tekst in Excel?
- Hoe komma's te vervangen door nieuwe regels (Alt + Enter) in cellen in Excel?
- Hoe bladtabnamen in Excel te vinden en te vervangen?
- Hoe vind ik waarde in een cel met een door komma's gescheiden lijst in Excel?
- Hoe vind je een kruising van twee kolomlijsten in Excel?
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!