Kako nadomestiti neprazne celice s posebno vrednostjo v Excelu?
V Excelu lahko s pritiskom hitro in enostavno zamenjamo ali zapolnimo izbor z določeno vrednostjo Ctrl + Enter ključe, toda ali veste, kako nadomestiti samo neprazne celice z določeno vrednostjo v izbranem obsegu, ki vsebuje tako prazne celice kot celice vrednosti.
Neprazne celice zamenjajte s posebno vrednostjo s funkcijo Najdi in zamenjaj
Neprazne celice zamenjajte s posebno vrednostjo s kodo VBA
Neprazne celice zamenjajte s posebno vrednostjo s funkcijo Najdi in zamenjaj
V Excelu nam lahko funkcija Poišči in zamenjaj pomaga najti vse neprazne celice in jih nato nadomestiti z določeno vrednostjo, kot želite.
1. Izberite obseg podatkov, za katerega želite nadomestiti samo celice vrednosti.
2. In nato pritisnite Ctrl + H da odprete Poišči in zamenjaj v pogovornem oknu v Poišči in zamenjaj pogovorno okno, pod Zamenjaj zavihek, vnesite * v Našli kaj in vnesite želeno vrednost Zamenjaj z besedilno polje, glej posnetek zaslona:
3. Nato kliknite Zamenjaj vse in pojavilo se je pogovorno okno s številom celic, ki jih je treba zamenjati, zaprite pogovorna okna, nato so bile vse vrednosti v izbranem obsegu nadomeščene z navedenimi podatki, glejte posnetke zaslona:
 |
 |
 |
Neprazne celice zamenjajte s posebno vrednostjo s kodo VBA
Z uporabo naslednje kode VBA lahko hkrati tudi zamenjate vse podatkovne celice na želene vrednosti. Naredite to:
1. Držite tipko ALT + F11 tipke za odpiranje Okno Microsoft Visual Basic for Applications.
2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Okno modula.
Koda VBA: Neprazne celice zamenjajte z določeno vrednostjo
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. Nato pritisnite F5 tipko za zagon te kode in pojavilo se bo pozivno polje, ki vas bo opomnilo, da izberete obseg, ki ga želite nadomestiti, glejte posnetek zaslona:
4. Nato kliknite OKin vnesite naslednjo vrednost v naslednje pozivno polje, glejte posnetek zaslona:
5. In nato kliknite OK, so vse vrednosti v izbranem obsegu zamenjane z določenimi podatki hkrati.
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
