Hur tar jag snabbt bort allt innehåll i olåsta / oskyddade celler i Excel?

Om du har ett kalkylblad som innehåller en del av olåsta celler och nu vill du ta bort allt olåst cellinnehåll på en gång. Har du några lösningar för att hantera denna uppgift?

Ta bort allt innehåll i olåsta celler med funktionen Sök och ersätt

Ta bort allt innehåll i olåsta celler med VBA-kod

Ta bort allt innehåll i olåsta celler med Kutools för Excel

Ta bort allt innehåll i olåsta celler med funktionen Sök och ersätt

För att rensa alla värden för oskyddade celler kan du använda funktionen Sök och ersätt för att välja de olåsta cellerna först och sedan radera dem omedelbart.

1. Öppna kalkylbladet som du vill ta bort de olåsta cellerna och klicka på Home > Hitta och välj > hitta eller tryck på genvägar - Ctrl + F nycklar för att öppna Sök och ersätt dialogruta, se skärmdump:

2. I Sök och ersätt dialogrutan, klicka Tillbehör knappen för att utöka dialogen, se skärmdump:

3. Klicka sedan bildad knappen och a Hitta format dialogrutan dyker upp och sedan under Skydd fliken, avmarkera Låst och dold rutor, se skärmdump:

4. Klicka OK att återvända till Sök och ersätt dialogrutan och klicka sedan på Hitta alla -knappen visas alla oskyddade celler i listrutan nedan och tryck sedan på Ctrl + A för att välja alla, se skärmdump:

5. Och stäng sedan det här Sök och ersätt dialog har alla olåsta celler valts i det aktuella kalkylbladet, se skärmdump:

6. Då behöver du bara trycka på Radera på tangentbordet och det valda olåsta cellinnehållet tas bort på en gång.

Ta bort allt innehåll i olåsta celler med VBA-kod

Följande VBA-kod kan också hjälpa dig att rensa innehållet i de olåsta cellerna, gör så här:

1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic for Applications-fönstret.

2. Klicka Insert > Modulernaoch klistra in följande kod i Modulfönster.

VBA-kod: Ta bort allt innehåll i olåsta celler

Sub ClearUnlockedCells()
'Updateby Extendoffice
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. Tryck sedan på F5 nyckel för att köra den här koden och ange ett intervall som du vill ta bort innehållet i de olåsta cellerna i rutan som visas, se skärmdump:

4. Klicka OK, och innehållet i olåsta intervallceller har rensats.

Ta bort allt innehåll i olåsta celler med Kutools för Excel

Om du har installerat Kutools för Excel, dess Välj Olåsta celler funktionen kan hjälpa dig att välja de oskyddade cellerna först och sedan kan du radera dem på en gång.

Kutools för Excel innehåller mer än 300 praktiska Excel-verktyg. Gratis att prova utan begränsning på 30 dagar. Hämta nu

När du har installerat Kutools för Excel gör du följande steg:

1. Välj det dataområde som du vill ta bort det olåsta cellinnehållet.

2. Klicka Kutools > Välja > Välj olåsta celler.

3. Och alla olåsta celler har valts i ditt val.

4. Tryck Radera på tangentbordet för att radera det valda cellinnehållet omedelbart.

Klicka på om du vill veta mer om den här funktionen Välj Olåsta celler.

Relaterad artikel:

Hur markerar jag alla olåsta celler i Excel?