Hvordan udskiftes ikke tomme celler med en bestemt værdi i Excel?
I Excel kan vi hurtigt og nemt erstatte eller udfylde et valg med en bestemt værdi ved at trykke på Ctrl + Enter nøgler, men ved du, hvordan du bare erstatter ikke tomme celler med en bestemt værdi i dit valgte område, der indeholder både tomme celler og værdiceller.
Udskift ikke tomme celler med en bestemt værdi ved hjælp af funktionen Find og erstat
Udskift ikke tomme celler med en bestemt værdi ved hjælp af VBA-kode
Udskift ikke tomme celler med en bestemt værdi ved hjælp af funktionen Find og erstat
I Excel kan funktionen Find og erstat hjælpe os med at finde alle de ikke-tomme celler og derefter erstatte dem med en bestemt værdi, som du vil.
1. Vælg det dataområde, som du kun vil erstatte værdicellerne.
2. Og tryk derefter på Ctrl + H at åbne Søg og erstat dialogboksen i Søg og erstat dialog under udskifte fane, skriv * i Find hvad felt, og indtast den værdi, du har brug for i Erstat med tekstboks, se skærmbillede:
3. Klik derefter på Erstat alle knap, og en dialog dukkede ud for at fortælle dig antallet af celler, der skal udskiftes, luk dialogerne, så er alle værdierne i det valgte område erstattet med dine angivne data, se skærmbilleder:
Udskift ikke tomme celler med en bestemt værdi ved hjælp af VBA-kode
Ved at bruge følgende VBA-kode kan du også erstatte alle datacellerne til dine nødvendige værdier på én gang. Gør som dette:
1. Hold nede ALT + F11 nøgler til at åbne Vinduet Microsoft Visual Basic til applikationer.
2. Klik indsatte > Moduler, og indsæt følgende kode i Modul vindue.
VBA-kode: Erstat ikke tomme celler med en bestemt værdi
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. Tryk derefter på F5 nøgle til at køre denne kode, og der vises et promptfelt for at minde dig om at vælge et område, som du vil erstatte dataene, se skærmbillede:
4. Klik derefter på OK, og indtast din specifikke værdi i næste promptboks, se skærmbillede:
5. Og klik derefter på OK, alle værdierne i dit valgte område er blevet erstattet med bestemte data på én gang.
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!