Preskoči na glavno vsebino

Kako izbrisati vrstice glede na barvo ozadja v Excelu?

Kako lahko izbrišete celotne vrstice glede na barvo ozadja? V tem primeru moram izbrisati vse vrstice, katere celice so napolnjene z modro barvo ozadja, kot je prikazano na sliki spodaj. V tem članku boste dobili nekaj kod za dosego te naloge v Excelu.

doc izbriši vrstice po barvi 1

Izbrišite vrstice z določeno barvo ozadja glede na vsako celico

Izbrišite vrstice z določeno barvo ozadja glede na en stolpec


puščica modri desni mehurček Izbrišite vrstice z določeno barvo ozadja glede na vsako celico

Če imate nabor podatkov, ki so naključno napolnjeni z nekaterimi barvami celic, in morate izbrisati vrstice, katerih barva celice je modra, kot je prikazano na sliki spodaj:

doc izbriši vrstice po barvi 2

Če želite izbrisati to vrsto vrstic, lahko uporabite naslednjo kodo VBA, naredite tako:

1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Moduli Okno.

Koda VBA: Izbrišite vrstice, katere celice vsebujejo določeno barvo polnila:

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. In nato pritisnite F5 tipko za zagon te kode in pojavilo se bo pozivno polje, ki vas bo opozorilo na izbiro celice z barvo polnila, ki jo želite izbrisati, glejte sliko zaslona:

doc izbriši vrstice po barvi 3

4. Nato kliknite OK, in vse vrstice so bile izbrisane, če je celica z določeno barvo polnila.


puščica modri desni mehurček Izbrišite vrstice z določeno barvo ozadja glede na en stolpec

Če želite izbrisati vrstice z določeno barvo, ki temelji na samo enem stolpcu, na primer izbrišite vrstice z modro barvo v stolpcu A in dobite spodnji posnetek zaslona, ​​tukaj je tudi koda VBA vam lahko naklonjena.

doc izbriši vrstice po barvi 4

1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Moduli Okno.

Koda VBA: Izbrišite vrstice na podlagi stolpca, katerega celice imajo določeno barvo polnila:

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

Opombe: V zgornji kodi, A2: A21 je stolpec, ki vsebuje določeno barvo polnila, na podlagi katere želite izbrisati vrstice, število 20 in Barvni indeks = 20 skript je barvni indeks, na podlagi katerega želite izbrisati vrstice. Lahko jih spremenite po svojih potrebah.

3. Nato pritisnite F5 za zagon te kode in vse vrstice, katerih celice vsebujejo modro barvo v stolpcu A, so bile hkrati izbrisane.

Najboljša pisarniška orodja za produktivnost

Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa.  Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...

zavihek kte 201905


Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
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