Cum se înlocuiesc celulele care nu sunt goale cu valoare specifică în Excel?
În Excel, putem înlocui sau completa rapid și ușor o selecție cu o anumită valoare apăsând Ctrl + Enter , dar, știți cum să înlocuiți doar celulele necompletate cu o anumită valoare în intervalul selectat, care conține atât celule goale, cât și celule de valoare.
Înlocuiți celulele care nu sunt goale cu o valoare specifică utilizând funcția Găsire și înlocuire
Înlocuiți celulele care nu sunt goale cu o valoare specifică utilizând codul VBA
Înlocuiți celulele care nu sunt goale cu o valoare specifică utilizând funcția Găsire și înlocuire
În Excel, caracteristica Găsiți și înlocuiți ne poate ajuta să găsim toate celulele nonblank și apoi să le înlocuim cu o valoare specificată după cum doriți.
1. Selectați intervalul de date pe care doriți să îl înlocuiți numai celulele valorice.
2. Și apoi apăsați Ctrl + H pentru a deschide Găsiți și înlocuiți caseta de dialog, în Găsiți și înlocuiți dialog, sub Înlocui filă, tastați * în Gaseste ce și introduceți valoarea de care aveți nevoie Înlocui cu casetă text, vezi captura de ecran:
3. Apoi apasa Înlocuiește-le pe toate și a apărut un dialog pentru a vă indica numărul de celule care trebuie înlocuite, închideți casetele de dialog, apoi toate valorile din intervalul selectat au fost înlocuite cu datele specificate, vedeți capturi de ecran:
Înlocuiți celulele care nu sunt goale cu o valoare specifică utilizând codul VBA
Utilizând următorul cod VBA, puteți, de asemenea, să înlocuiți toate celulele de date la valorile necesare simultan. Vă rugăm să faceți acest lucru:
1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Fereastra Microsoft Visual Basic pentru aplicații.
2. Clic Insera > Moduleși lipiți următorul cod în Fereastra modulului.
Cod VBA: Înlocuiți celulele care nu sunt goale cu o valoare specifică
Sub ReplaceNumbers()
'Update 20141111
Dim SRg As Range
Dim Rg As Range
Dim Str As Variant
On Error Resume Next
Set SRg = Application.Selection
Set SRg = Application.InputBox("select range:", "Kutools for Excel", SRg.Address, , , , , 8)
If Err <> 0 Then Exit Sub
Str = Application.InputBox("replace with:", "Kutools for Excel", Str)
If Str = False Then Exit Sub
For Each Rg In SRg
If Rg <> "" Then Rg = Str
Next
End Sub
3. Apoi apăsați F5 pentru a rula acest cod și va apărea o casetă de solicitare pentru a vă reaminti să selectați un interval pe care doriți să îl înlocuiți, vedeți captura de ecran:
4. Apoi apasa OKși introduceți valoarea specifică în următoarea casetă de solicitare, consultați captura de ecran:
5. Apoi faceți clic pe OK, toate valorile din intervalul selectat au fost înlocuite cu anumite date simultan.
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!