Excel에서 배경색에 따라 행을 삭제하려면 어떻게 해야 하나요?

특정 배경색에 따라 전체 행을 삭제하려면 어떻게 해야 할까요? 이 예에서는 아래 스크린샷과 같이 파란색 배경으로 채워진 모든 행을 삭제해야 합니다. 이 문서를 통해 Excel에서 이 작업을 수행할 수 있는 코드를 얻게 될 것입니다.

각 셀에 기반하여 특정 배경색이 있는 행 삭제

한 열에 기반하여 특정 배경색이 있는 행 삭제

각 셀에 기반하여 특정 배경색이 있는 행 삭제

일부 셀 색상이 무작위로 채워진 데이터 범위가 있고, 아래 스크린샷과 같이 셀 색상이 파란색인 행을 삭제해야 하는 경우:

이러한 유형의 행을 삭제하려면 다음 VBA 코드를 사용하세요. 아래 단계를 따르세요:

1. ALT + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. 삽입 > 모듈을 클릭하고 모듈 창에 다음 코드를 붙여넣습니다.

VBA 코드: 특정 채우기 색상을 포함하는 셀이 있는 행 삭제:

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. 그런 다음 이 코드를 실행하기 위해 F5 키를 누르면, 삭제하려는 채우기 색상이 있는 셀을 선택하라는 메시지 상자가 나타납니다. 스크린샷 참조:

4. 확인을 클릭하면 특정 채우기 색상을 가진 셀이 있는 모든 행이 삭제됩니다.

한 열에 기반하여 특정 배경색이 있는 행 삭제

특정 열에 기반하여 특정 색상이 있는 행을 삭제하려는 경우, 예를 들어 A열에서 파란색이 있는 행을 삭제하고 아래 스크린샷과 같은 결과를 얻으려면 여기에 도움이 되는 VBA 코드가 있습니다.

1. ALT + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. 삽입 > 모듈을 클릭하고 모듈 창에 다음 코드를 붙여넣습니다.

VBA 코드: 특정 채우기 색상이 있는 셀이 포함된 열에 기반하여 행 삭제:

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

참고: 위의 코드에서 A2:A21은 행을 삭제할 기준이 되는 특정 채우기 색상이 포함된 열입니다. ColorIndex = 20 스크립트의 숫자 20은 행을 삭제할 기준이 되는 색상 인덱스입니다. 필요에 따라 변경할 수 있습니다.

3. 그런 다음 이 코드를 실행하기 위해 F5 키를 누르면 A열에서 파란색을 포함하는 모든 행이 즉시 삭제됩니다.