Cum se creează un cod macro pentru a găsi și înlocui text în Excel?
În mod normal, folosim funcția Căutare și înlocuire integrată pentru a căuta și înlocui valori în Excel. De fapt, puteți găsi și înlocui textul în Excel direct cu codul macro. În acest articol, veți afla cum să creați un cod macro pentru a găsi și înlocui textul în Excel.
Creați un cod macro pentru a găsi și înlocui textul în Excel
Creați un cod macro pentru a găsi și înlocui textul în Excel
Vă rugăm să procedați după cum urmează pentru a crea un cod macro pentru a găsi și înlocui textul în Excel.
1. apasă pe Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. În Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe Insera > Module. Apoi copiați mai jos codul VBA în fereastra codului.
Cod VBA: creați un cod macro pentru a găsi și înlocui textul în 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. apasă pe F5 tasta pentru a rula codul.
4. În prima Kutools pentru Excel caseta de dialog, introduceți textul sau valoarea pe care o veți căuta și apoi faceți clic pe OK buton. Vedeți captura de ecran:
5. În al doilea Kutools pentru Excel caseta de dialog, introduceți textul sau valoarea pe care o veți înlocui și faceți clic pe OK butonul.
Apoi, toate textele specificate sunt înlocuite imediat cu textul dorit.
notițe: Acest cod este aplicat foii de lucru active.
Legate de articole:
- Cum să găsiți și să înlocuiți toate celulele goale cu un anumit număr sau text în Excel?
- Cum se înlocuiesc virgulele cu linii noi (Alt + Enter) în celulele din Excel?
- Cum să găsiți și să înlocuiți numele filelor de foi în Excel?
- Cum se găsește valoarea într-o celulă cu listă separată prin virgule în Excel?
- Cum se găsește intersecția a două liste de coloane în Excel?
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!