Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako izbrisati vrstice na podlagi barve ozadja v Excelu?

Kako lahko izbrišete celotne vrstice na podlagi barve ozadja? V tem primeru moram izbrisati vse vrstice, katere celice so napolnjene z barvo modre barve, kot je prikazano na zaslonu. S tem členom boste dobili nekaj kod za doseganje te naloge v Excelu.

doc izbrisati vrstice po barvi 1

Brisanje vrstic s posebno barvo ozadja, ki temelji na vsaki celici

Brisanje vrstic s posebno barvo ozadja na podlagi enega stolpca


puščica modra desno mehurček Brisanje vrstic s posebno barvo ozadja, ki temelji na vsaki celici

Če imate naključno izbrane podatke, ki so naključno napolnili nekaj celičnih barv in morate izbrisati vrstice, katerih barva celice je modra, kot je prikazano spodaj prikazano sliko:

doc izbrisati vrstice po barvi 2

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

1. Drži dol ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduli, in prilepite naslednjo kodo v Moduli Okno.

VBA koda: izbrišite vrstice, ki vsebujejo določene barve polnila:

Sub DeleteRows()
'Updateby Extendoffice 20161116
    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 ključ za zagon te kode in se bo pojavilo potrditveno polje, ki vas opomni, da izberete celico z barvo polnila, ki jo želite izbrisati. Oglejte si posnetek zaslona:

doc izbrisati vrstice po barvi 3

4. Nato kliknite OK, in vse vrstice so izbrisane, če je celica s posebno barvo polnila.


puščica modra desno mehurček Brisanje vrstic s posebno barvo ozadja na podlagi enega stolpca

Če želite vrstice izbrisati s posebno barvo na podlagi samo enega stolpca, na primer izbrišite vrstice z modro barvo v stolpcu A in si oglejte spodnji posnetek zaslona, ​​tukaj je tudi kodo VBA, lahko storite uslugo.

doc izbrisati vrstice po barvi 4

1. Drži dol ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduli, in prilepite naslednjo kodo v Moduli Okno.

VBA koda: Brisanje vrstic na podlagi stolpca, katere celice imajo določeno barvo polnila:

Sub deleterow()
'UpdateBY Extendoffice 20161116
   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 katero želite izbrisati vrstice na podlagi številke 20 in ColorIndex = 20 skript je barvni indeks, na katerega želite izbrisati vrstice na podlagi. Lahko jih spremenite v svoje potrebe.

3. Nato pritisnite F5 ključ za zagon te kode in vse vrstice, ki vsebujejo modre barve v stolpcu A, so bile takoj izbrisane.


Priporočena orodja za produktivnost za Excel

zavihek kte 201905

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.