Hur tar jag bort rader baserat på cellvärde i Excel?
För att snabbt ta bort eller ta bort flera rader baserat på cellvärde i Excel kan du behöva markera de hela raderna som innehåller specifikt cellvärde och sedan ta bort dem. Det verkar som om det inte finns ett snabbt sätt att radera rader baserat på cellvärde utan att använda VBA-kod. Här är några snabba knep för att hjälpa dig.
- Ta bort rader baserat på ett cellvärde med funktionen Sök och ersätt
- Ta bort rader baserat på ett cellvärde med VBA-kod
- Ta bort rader baserat på en eller två cellvärden
- Ta bort rader baserat på flera cellvärden
Ta bort rader baserat på cellvärde med funktionen Sök och ersätt
I Excel kan du använda den kraftfulla Sök och ersätt-funktionen för att enkelt ta bort rader baserat på ett visst cellvärde. Gör så här:
1. Välj det område där du vill ta bort rader baserat på ett visst cellvärde och öppna dialogrutan Sök och ersätt genom att trycka på Ctrl + F tangenter samtidigt.
2. I dialogrutan Sök och ersätt, skriv ett visst cellvärde (i vårt fall anger vi varm) in i Find what rutan och klicka på Find All knapp. Se den första skärmdumpen nedan:
3. Markera alla sökresultat längst ner i dialogrutan Sök och ersätt och stäng den här dialogrutan. (Anmärkningar: Du kan välja ett av sökresultaten och sedan Ctrl + A för att välja alla hittade resultat. Se den andra skärmdumpen ovan.)
Och då kan du se att alla celler som innehåller det specifika värdet är valda.
4. Fortsätt till högerklicka på markerade celler och välj Delete från högerklickmenyn. Och kolla sedan Entire row alternativet i dialogrutan Ta bort radera och klicka på OK knapp. Nu ser du att alla celler som innehåller det specifika värdet tas bort. Se skärmdumpar nedan:
Och sedan har hela rader raderats baserat på det vissa värdet redan.
Ta bort rader baserat på cellvärde med VBA-kod
Med följande VBA-kod kan du snabbt radera raderna med visst cellvärde, gör följande steg:
1. tryck på Alt + F11 samtidigt för att öppna Microsoft Visual Basic for applications fönster,
2. Klicka Insert > Moduleoch mata in följande kod i modulen:
VBA: Ta bort hela rader baserat på cellvärde
Sub DeleteRows()
'Updateby20211217
Dim rng As Range
Dim InputRng As Range
Dim DeleteRng As Range
Dim DeleteStr As String
Dim xTitleId As String
Dim xArr
Dim xF As Integer
Dim xWSh As Worksheet
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set rng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, rng.Address, Type:=8)
If InputRng Is Nothing Then Exit Sub
DeleteStr = Application.InputBox("Delete Text", xTitleId, Type:=2)
Set xWSh = InputRng.Worksheet
For Each rng In InputRng
If rng.Value = DeleteStr Then
If DeleteRng Is Nothing Then
Set DeleteRng = rng
Else
Set DeleteRng = Application.Union(DeleteRng, rng)
Set DeleteRng = DeleteRng.EntireRow
End If
End If
Next
xArr = Split(DeleteRng.AddressLocal, ",")
DeleteRng.Select
DeleteRng.Delete
For xF = UBound(xArr) To 0 Step -1
Set DeleteRng = xWSh.Range(xArr(xF))
DeleteRng.Delete
Next
End Sub
3. Klicka sedan på Run för att köra koden.
4. I popup-dialogrutan, välj det intervall där du kommer att ta bort rader baserat på det specifika värdet och klicka på OK knapp.
5. I en annan dialogruta, skriv det specifika värdet du tar bort rader baserat på och klicka på OK knapp. Se skärmdump:
Och då ser du att hela rader har raderats baserat på det angivna värdet redan.
Ta bort rader baserat på en eller två cellvärden med Kutools för Excel
Om du har installerat Kutools for Excel, dess Select Specific Cells funktionen kan hjälpa dig att snabbt radera raderna med specifikt värde. Gör så här:
Kutools för Excel - Superladda Excel med över 300 viktiga verktyg. Njut av en fullfjädrad 30-dagars GRATIS provperiod utan behov av kreditkort! Hämta den nu
1. Välj det intervall som du vill ta bort rader baserat på ett visst värde och klicka på Kutools > Select > Select Specific Cells. Se skärmdump:
2. I dialogrutan Välj specificerade celler, kontrollera Entire row alternativ, välj Contains från Specific type rullgardinsmeny, ange det angivna värdet i höger ruta och klicka på Ok -knappen (se skärmdump ovan).
Efter att ha använt den här funktionen kommer en dialogruta att dyka upp och visa dig hur många celler som har hittats baserat på de angivna kriterierna. Klicka på OK knappen för att stänga den.
3. Nu väljs hela rader med ett visst värde. Högerklicka på de markerade raderna och klicka på Delete från högerklickmenyn. Se skärmdump nedan:
Anmärkningar: Detta Select Specific Cells funktionen stöder att radera rader med ett eller två vissa värden. För att radera rader baserat på två angivna värden, ange ett annat värde i Specific type avsnittet Välj specifika celler dialogrutan som följande skärmdump visas:
Kutools för Excel - Superladda Excel med över 300 viktiga verktyg. Njut av en fullfjädrad 30-dagars GRATIS provperiod utan behov av kreditkort! Hämta den nu
Ta bort rader baserat på flera cellvärden med Kutools för Excel
I vissa fall kan du behöva ta bort rader baserat på flera cellvärden från en annan kolumn / lista i Excel. Här kommer jag att presentera Kutools for Excel's Select Same & Different Cells funktion för att lösa det snabbt med lätthet.
Kutools för Excel - Superladda Excel med över 300 viktiga verktyg. Njut av en fullfjädrad 30-dagars GRATIS provperiod utan behov av kreditkort! Hämta den nu
1. Klicka Kutools > Select > Select Same & Different Cells för att öppna dialogrutan Välj samma och olika celler.
2. I öppningen Select Same & Different Cells dialogrutan, gör så här (se skärmdump):
(1) I Find values in rutan, välj den kolumn där du hittar vissa värden;
(2) I According to välj kolumnen / listan med flera värden som du kommer att ta bort rader baserat på;
(3) I Based on avsnittet, kontrollera Each row alternativ;
(4) I Find avsnittet, kontrollera Same Values alternativ;
(5) Kontrollera Select entire rows alternativ längst ned i dialogrutan som öppnas.
Anmärkningar: Om två angivna kolumner innehåller samma rubrik, kontrollera My data has headers alternativ.
3. Klicka på Ok för att använda detta verktyg. Och sedan kommer en dialogruta ut och visar hur många rader som har valts. Klicka bara på OK knappen för att stänga den.
Och sedan har alla rader som innehåller värden i den angivna listan valts.
4. Klicka Home > Delete > Delete Sheet Rows för att radera alla valda rader.
Demo: ta bort rader baserat på ett eller flera cellvärden i Excel
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- 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!