Hvordan slettes hurtigt alt indhold af ulåste / ubeskyttede celler i Excel?
Hvis du har et regneark, der indeholder en del af ulåste celler, og nu, vil du gerne slette alt det ulåste celleindhold på én gang. Har du nogen løsninger til at håndtere denne opgave?
Slet alt indhold i ulåste celler med funktionen Find og erstat
Slet alt indhold i ulåste celler med VBA-kode
Slet alt indhold af ulåste celler med Kutools til Excel
Slet alt indhold i ulåste celler med funktionen Find og erstat
For at rydde alle værdierne for ubeskyttede celler kan du bruge funktionen Find og erstat til at vælge de ulåste celler først og derefter slette dem med det samme.
1. Åbn dit regneark, som du vil slette de ulåste celler, og klik på Home > Find og vælg > Finde eller tryk på genveje - Ctrl + F nøgler til at åbne Søg og erstat dialog, se skærmbillede:
2. I Søg og erstat dialogboksen, klik Indstillinger knap for at udvide dialogen, se skærmbillede:
3. Klik derefter på dannet knappen og a Find format dialogboksen vises, derefter under Beskyttelse Fanen, fjern markeringen Låst , Skjult kasser, se skærmbillede:
4. Klik OK at vende tilbage til Søg og erstat dialogboksen, og klik derefter på Find alle knappen vises alle de ubeskyttede celler i nedenstående listefelt, og tryk derefter på Ctrl + A for at vælge dem alle, se skærmbillede:
5. Og luk derefter dette Søg og erstat dialog, alle ulåste celler er valgt i det aktuelle regneark, se skærmbillede:
6. Så skal du bare trykke Slette tasten på tastaturet, og det valgte ulåste celleindhold fjernes med det samme.
Slet alt indhold i ulåste celler med VBA-kode
Følgende VBA-kode kan også hjælpe dig med at rydde indholdet af de ulåste celler, 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: Slet alt indhold i ulåste celler
Sub ClearUnlockedCells()
'Updateby20140724
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
For Each Rng In WorkRng
If Rng.Locked = False Then Rng.ClearContents
Next
Application.ScreenUpdating = True
End Sub
3. Tryk derefter på F5 nøgle til at køre denne kode, og angiv et område, som du vil fjerne indholdet af de ulåste celler i det poppede felt, se skærmbillede:
4. Klik OK, og indholdet i ulåste intervalceller er blevet ryddet.
Slet alt indhold af ulåste celler med Kutools til Excel
Hvis du har installeret Kutools til Excel, dens Vælg Ulåste celler funktion kan hjælpe dig med at vælge de ubeskyttede celler først, og derefter kan du slette dem med det samme.
Kutools til Excel indeholder mere end 300 praktiske Excel-værktøjer. Gratis at prøve uden begrænsning på 30 dage. Få det nu
Efter installation af Kutools til Excel skal du gøre følgende:
1. Vælg det dataområde, som du vil rydde det ulåste celleindhold.
2. Klik Kutools > Vælg Værktøjer > Vælg Ulåste celler, se skærmbillede:
3. Og alle de ulåste celler er valgt i dit valg.
4. Trykke Slette tast på tastaturet for straks at slette det valgte celleindhold.
Hvis du vil vide mere om denne funktion, skal du klikke Vælg Ulåste celler.
Relateret artikel:
Hvordan vælges alle ulåste celler i Excel?
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!
