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.
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
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:
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:
4. Ezután kattintson OK, és az összes sor törölve lett, ha egy adott kitöltési színű cella volt.
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.
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
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...
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!