Hoppa till huvudinnehåll

Hur rensar man cellinnehåll baserat på tillstånd i Excel?

Ibland kan du behöva rensa cellinnehåll baserat på villkor i Excel, som att rensa cellinnehållet om cellen innehåller ett specifikt värde, rensa cellinnehållet om det finns tomma celler i en annan kolumn, eller rensa cellinnehåll med specifik bakgrundsfärg, etc. Den här artikeln kommer att introducera några knep för att lösa dessa uppgifter snabbt och enkelt.

Rensa cellinnehåll Baserat på cellvärde med VBA-kod

Rensa hela rader om värdet är större eller mindre än ett specifikt värde med VBA-kod

Rensa cell- eller radinnehåll baserat på cellvärde med en praktisk funktion

Rensa hela rader om en annan cell är tom med VBA-kod

Rensa cellinnehåll baserat på bakgrundsfärg med VBA-kod


Rensa cellinnehåll Baserat på cellvärde med VBA-kod

Till exempel har du följande dataintervall, nu vill du rensa cellinnehållet som är "Hoodie", nedanstående VBA-kod kan göra dig en tjänst.

1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulernaoch klistra in följande kod i modulfönstret.

VBA-kod: Rensa cellinnehåll om cellen är lika med ett specifikt värde

Sub ClearContents()
'Updateby ExtendOffice
 Dim xRng As Range
 Dim xCell As Range
 Dim xText As String
 Set xRng = Application.Range("A2:A12")
 xText = "Hoodie" 'Change this text to your own
 For Each xCell In xRng
 If xCell.Value = xText Then
 xCell.clearContents
 End If
 Next xCell
End Sub
Anmärkningar: I ovanstående kod, A2: A12 är dataintervallet som du vill rensa cellinnehåll från, texten "Luvtröja” är det specifika värde som du vill rensa. Ändra dem till dina egna.

3. Tryck sedan på F5 för att köra den här koden, och alla celler med texten "Hoodie" rensas på en gång, se skärmdump:


Rensa hela rader om värdet är större eller mindre än ett specifikt värde med VBA-kod

Anta att du har dataintervallet nedan för att rensa hela radinnehållet om värdet i kolumn D är större eller mindre än 300. Här kommer jag att skapa en VBA-kod för att slutföra den.

1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulernaoch klistra in följande kod i modulfönstret.

VBA-kod: Rensa hela rader om cellvärdet är större eller mindre än ett specifikt värde

Sub ClearRowInValue()
'Updateby ExtendOffice
Dim xRg As Range
Dim xStrAddress As String
Dim xStrValue As Integer
Dim xCell As Range
Dim xRowRg As Range
Dim xF As Integer
Dim xBol As Boolean
xStrAddress = "D2:D12" 'Change cell range
xStrValue = 300 'change the value
Set xRg = Range(xStrAddress)
For xF = xRg.Rows.Count To 1 Step -1
    Set xRowRg = xRg.Rows.Item(xF)
    xBol = False
    For Each xCell In xRowRg.Cells
        If Application.IsNumber(xCell.Value) Then
        If xCell.Value > xStrValue Then
        xBol = True
        Exit For
        End If
        End If
    Next
    If xBol Then
        xRowRg.EntireRow.clearContents
    End If
Next
End Sub
Anmärkningar: I ovanstående kod, D2: D12 är dataintervallet innehåller det specifika värde du vill rensa rader baserat på; 300 är det specifika värdet; de > tecken i skriptet Om xCell.Value > xStrValue Då betyder större än, använd mindre än, ändra det till < karaktär som du behöver.

3. Tryck sedan på F5 för att köra den här koden, och allt radinnehåll rensas om värdet i kolumn D är större än 300, se skärmdump:


Rensa cell- eller radinnehåll baserat på cellvärde med en praktisk funktion

Om du har Kutools för Excel, med dess Välj specifika celler funktionen kan du välja celler eller rader baserat på det specifika värdet och sedan ta bort cellinnehållet på en gång.

När du har installerat Kutools för Excel, gör så här:

1. Välj dataintervallet med värden som du vill rensa cell- eller radinnehåll baserat på och klicka sedan Kutools > Välja > Välj specifika celler, se skärmdump:

2. I det öppnade Välj specifika celler dialogrutan, gör följande:

  • Klicka Cell or Hela raden som du vill välja;
  • Ange kriterierna under Specifik typ avsnitt som du behöver. Här vill jag välja de rader vars värde i kolumn D är större än 300.

3. Klicka sedan Ok knappen, och alla rader med ett värde större än 300 väljs. Nu behöver du bara trycka på Delete-tangenten på tangentbordet för att radera cellinnehållet, se skärmdump:

tips: Det finns många andra kriterier som du kan använda, vänligen ange ditt eget tillstånd från dialogrutan enligt skärmbilden nedan:

Rensa raddata i ett intervall om den innehåller tom cell med VBA-kod

I det här fallet, om cellen i dataintervallet innehåller någon tom, vill jag rensa raddata från intervallet enligt skärmbilden nedan.

För att slutföra denna uppgift, använd följande VBA-kod:

1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulerna, och klistra sedan in följande kod i Modulerna Fönster.

VBA-kod: Rensa raddata om den innehåller tom cell

Sub ClearContents()
'Updateby ExtendOffice
Dim xcell As Range
Set xrng = Application.Range("A2:D12")
For Each xcell In xrng
If xcell.Value = "" Then
Intersect(xcell.EntireRow, xrng).ClearContents
End If
Next
End Sub
Anmärkningar: I ovanstående kod, A2: D12 är dataintervallet innehåller tomma celler som du vill rensa cellinnehåll från.

3. Tryck sedan på F5 för att köra den här koden, och raddata med tomma celler rensas på en gång i det specifika intervallet som du behöver.


Rensa cellinnehåll baserat på bakgrundsfärg med VBA-kod

För att rensa cellerna som är fyllda med en specifik bakgrundsfärg kan du använda följande VBA-kod.

1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulerna, och klistra sedan in följande kod i Modulerna Fönster.

VBA-kod: Rensa cellinnehåll baserat på bakgrundsfärg

Sub Clearcontents()
'Updateby ExtendOffice
Dim xcell As Range
Dim xrng As Range
Set xrng = Application.Range("A2:D12")
    For Each xcell In xrng
        If xcell.Interior.Color = RGB(252, 228, 214) Then
            xcell.Clearcontents
        End If
    Next
End Sub
Anmärkningar: I ovanstående kod, A2: D12 är det dataområde som du vill använda, RGB (252, 228, 214) är den specifika färg du vill rensa celler baserat på, kan du extrahera RGB-läget för bakgrundsfärgen genom att använda måla program på din dator.

3. Och tryck sedan på F5 för att köra den här koden, och cellinnehållet med den angivna bakgrundsfärgen rensas omedelbart. Se skärmdump:


  • Super Formula Bar (enkelt redigera flera rader med text och formel); Läslayout (enkelt läsa och redigera ett stort antal celler); Klistra in i filtrerat intervall...
  • Sammanfoga celler / rader / kolumner och förvaring av data; Delat cellinnehåll; Kombinera duplicerade rader och summa / genomsnitt... Förhindra duplicerade celler; Jämför intervall...
  • Välj Duplicera eller Unikt Rader; Välj tomma rader (alla celler är tomma); Super Find och Fuzzy Find i många arbetsböcker; Slumpmässigt val ...
  • Exakt kopia Flera celler utan att ändra formelreferens; Skapa referenser automatiskt till flera ark; Sätt in kulor, Kryssrutor och mer ...
  • Favorit och sätt snabbt in formler, Intervall, diagram och bilder; Kryptera celler med lösenord; Skapa e-postlista och skicka e-post ...
  • Extrahera text, Lägg till text, ta bort efter position, Ta bort mellanslag; Skapa och skriva ut personsökningstalsatser; Konvertera mellan celler innehåll och kommentarer...
  • Superfilter (spara och tillämpa filterscheman på andra ark); Avancerad sortering efter månad / vecka / dag, frekvens och mer; Specialfilter av fet, kursiv ...
  • Kombinera arbetsböcker och arbetsblad; Sammanfoga tabeller baserat på nyckelkolumner; Dela data i flera ark; Batchkonvertera xls, xlsx och PDF...
  • Gruppering av pivottabell efter veckonummer, veckodagen och mer ... Visa olåsta, låsta celler av olika färger; Markera celler som har formel / namn...
kte-flik 201905
  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
officetab botten
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations