Cum să găsiți și să înlocuiți mai multe valori simultan în Excel?
După cum știm cu toții, putem folosi funcția Găsiți și înlocuiți pentru a găsi mai multe aceleași celule și a le înlocui cu o valoare de care aveți nevoie. Dar, uneori, trebuie să aplicați înlocuirea multor la mulți simultan. De exemplu, am o serie de date, iar acum vreau să înlocuiesc toate Merele la Merele Roșii, Portocalele la Portocalele Verzi, Bananele la Bananele Galbene și așa mai departe, după cum se arată în capturile de ecran următoare, aveți idei bune pentru a rezolva această sarcină în Excela?
Găsiți și înlocuiți mai multe valori simultan cu codul VBA
Dacă v-ați săturat să găsiți și să înlocuiți valorile de mai multe ori, următorul cod VBA vă poate ajuta să înlocuiți mai multe valori cu textele necesare simultan.
1. Vă rugăm să creați condițiile pe care doriți să le utilizați, care conțin valorile originale și valorile noi. Vedeți captura de ecran:
2. Apoi țineți apăsat butonul ALT + F11 tastele pentru a deschide Fereastra Microsoft Visual Basic pentru aplicații.
3. Clic Insera > Moduleși lipiți următorul cod în fereastra Module.
Cod VBA: găsiți și înlocuiți mai multe valori simultan
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. Apoi apăsați F5 tasta pentru a rula acest cod, în caseta de prompt popped out, vă rugăm să specificați intervalul de date pentru care doriți să fie înlocuite valorile cu valori noi.
5. Clic OK, și se afișează o altă casetă de prompt pentru a vă reaminti să selectați criteriile pe care le-ați creat la pasul 1. Vedeți captura de ecran:
6. Apoi apasa OK, toate valorile specifice au fost înlocuite cu valorile noi, deoarece aveți nevoie imediat.
Legate de articole:
Cum să găsiți și să înlocuiți textul specific în casetele de text?
Cum să găsiți și să înlocuiți textul din titlurile diagramei în Excel?
Cum să găsiți și să înlocuiți textul din comentarii în Excel?
Cum se schimbă mai multe căi de hyperlink simultan î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!