Ugrás a tartalomra

Hogyan lehet törölni a sorokat az Excel háttérszíne alapján?

Hogyan törölhetett teljes sorokat a háttér színe alapján? Ebben a példában törölnöm kell az összes sort, amely kék háttér színű cellákat tölt be, az alábbi képernyőkép szerint. Ezzel a cikkel néhány kódot kap, amellyel elérheti ezt a feladatot az Excel programban.

doc törli a sorokat az 1. szín szerint

Törölje az egyes cellák alapján meghatározott háttérszínnel rendelkező sorokat

Egy oszlop alapján törölje a meghatározott háttérszínnel rendelkező sorokat


nyíl kék jobb buborék Törölje az egyes cellák alapján meghatározott háttérszínnel rendelkező sorokat

Ha van olyan adattartománya, amely véletlenszerűen töltött néhány cellaszínt, és törölnie kell azokat a sorokat, amelyekben a cellaszín kék, az alábbi képernyőkép szerint:

doc törli a sorokat az 2. szín szerint

Az ilyen típusú sorok törléséhez használja a következő VBA kódot, kérjük, tegye a következőket:

1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.

VBA-kód: Törölje azokat a sorokat, amelyek cellák tartalmaznak meghatározott kitöltési színt:

Sub DeleteRows()
'Updateby Extendoffice
    Dim rngCl As Range
    Dim xRows As Long
    Dim xCol As Long
    Dim colorLg As Long
    On Error Resume Next
    Set rngCl = Application.InputBox _
        (Prompt:="Select a cell with the background color to be deleted", _
        Title:="Kutools for Excel", Type:=8)
    On Error GoTo 0
    If rngCl Is Nothing Then
        MsgBox "User cancelled operation." & vbCrLf & _
        "Processing terminated", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    colorLg = rngCl.Interior.Color
    Application.ScreenUpdating = False
    With ActiveSheet.UsedRange
        For xRows = .Rows.Count To 1 Step -1
            For xCol = 1 To .Columns.Count
                           If .Cells(xRows, xCol).Interior.Color = colorLg Then
                    .Rows(xRows).Delete
                    Exit For
                End If
            Next xCol
        Next xRows
    End With
    Application.ScreenUpdating = True
End Sub

3. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, és megjelenik egy felszólító mező, amely emlékeztet arra, hogy a törölni kívánt kitöltési színű cellát választja, lásd a képernyőképet:

doc törli a sorokat az 3. szín szerint

4. Ezután kattintson OK, és az összes sor törölve lett, ha egy adott kitöltési színű cella volt.


nyíl kék jobb buborék Egy oszlop alapján törölje a meghatározott háttérszínnel rendelkező sorokat

Ha például csak egy oszlop alapján szeretné törölni a meghatározott színű sorokat, törölje például az A oszlop kék színű sorait és kapja meg az alábbi képernyőképet, itt egy VBA-kód is szívességet tehet Önnek.

doc törli a sorokat az 4. szín szerint

1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.

VBA-kód: A sorok törlése egy olyan oszlop alapján, amely cellák meghatározott kitöltési színnel rendelkeznek:

Sub deleterow()
'UpdateBY Extendoffice
   Dim xRg As Range, rgDel As Range
    For Each xRg In ThisWorkbook.ActiveSheet.Range("A2:A21")
        If xRg.Interior.ColorIndex = 20 Then
            If rgDel Is Nothing Then
                Set rgDel = xRg
            Else
                Set rgDel = Union(rgDel, xRg)
            End If
        End If
    Next xRg
    If Not rgDel Is Nothing Then rgDel.EntireRow.Delete
End Sub

Megjegyzések: A fenti kódban A2: A21 az az oszlop, amely tartalmazza azt a kitöltési színt, amely alapján törölni kívánja a sorokat, a szám alapján 20 in Színindex = 20 a script az a színindex, amely alapján törölni akarja a sorokat. Igény szerint megváltoztathatja őket.

3. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, és az összes sor, amely az A oszlop kék színét tartalmazza, egyszerre törölve lett.

A legjobb irodai hatékonyságnövelő eszközök

Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

kte lap 201905


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Удаление строк с определенным цветом фона на основе одного столбца, удаляет все без разбора
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations