메인 컨텐츠로 가기

Excel에서 배경색을 기반으로 행을 삭제하는 방법은 무엇입니까?

배경색을 기반으로 전체 행을 어떻게 삭제할 수 있습니까? 이 예에서는 다음 스크린 샷과 같이 파란색 배경색으로 채워진 셀이있는 모든 행을 삭제해야합니다. 이 기사에서는 Excel에서이 작업을 수행하는 몇 가지 코드를 얻을 수 있습니다.

문서는 색상으로 행 삭제 1

각 셀을 기반으로 특정 배경색이있는 행 삭제

한 열을 기준으로 특정 배경색이있는 행 삭제


화살표 블루 오른쪽 거품 각 셀을 기반으로 특정 배경색이있는 행 삭제

임의의 셀 색상으로 채워진 데이터 범위가 있고 다음 스크린 샷과 같이 셀 색상이 파란색 인 행을 삭제해야하는 경우 :

문서는 색상으로 행 삭제 2

이 유형의 행을 삭제하려면 다음 VBA 코드를 사용할 수 있습니다.

1. 누르고 ALT + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.

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 키를 눌러이 코드를 실행하면 삭제할 채우기 색상이있는 셀을 선택하라는 메시지 상자가 나타납니다. 스크린 샷을 참조하십시오.

문서는 색상으로 행 삭제 3

4. 그런 다음 OK, 특정 채우기 색상을 가진 셀의 경우 모든 행이 삭제되었습니다.


화살표 블루 오른쪽 거품 한 열을 기준으로 특정 배경색이있는 행 삭제

예를 들어, 하나의 열만을 기준으로 특정 색상의 행을 삭제하려면 A 열에서 파란색으로 된 행을 삭제하고 아래 스크린 샷을 얻으려면 여기에 VBA 코드가 도움이 될 수 있습니다.

문서는 색상으로 행 삭제 4

1. 누르고 ALT + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.

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 행을 삭제하려는 특정 채우기 색상이 포함 된 열입니다. 20 in 색상 인덱스 = 20 스크립트는 행을 삭제하려는 색상 인덱스입니다. 필요에 따라 변경할 수 있습니다.

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

최고의 사무 생산성 도구

인기 기능: 중복 항목 찾기, 강조 표시 또는 식별   |  빈 행 삭제   |  데이터 손실 없이 열이나 셀 결합   |   수식없이 반올림 ...
슈퍼 조회: 다중 기준 VLookup    다중 값 VLookup  |   여러 시트에 걸친 VLookup   |   퍼지 조회 ....
고급 드롭다운 목록: 드롭다운 목록을 빠르게 생성   |  종속 드롭다운 목록   |  다중 선택 드롭 다운 목록 ....
열 관리자: 특정 개수의 열 추가  |  열 이동  |  Toggle 숨겨진 열의 가시성 상태  |  범위 및 열 비교 ...
특색 지어진 특징: 그리드 포커스   |  디자인보기   |   큰 수식 바    통합 문서 및 시트 관리자   |  리소스 라이브러리 (자동 텍스트)   |  날짜 선택기   |  워크 시트 결합   |  셀 암호화/해독    목록으로 이메일 보내기   |  슈퍼 필터   |   특수 필터 (굵게/기울임꼴/취소선 필터링...) ...
상위 15개 도구 세트12 본문 도구 (텍스트 추가, 문자 제거,...)   |   50+ 거래차트 유형 (Gantt 차트,...)   |   40+ 실용 방식 (생일을 기준으로 나이 계산,...)   |   19 삽입 도구 (QR 코드 삽입, 경로에서 그림 삽입,...)   |   12 매출 상승 도구 (숫자를 단어로, 환율,...)   |   7 병합 및 분할 도구 (고급 결합 행, 셀 분할,...)   |   ... 그리고 더

Excel용 Kutools로 Excel 기술을 강화하고 이전과는 전혀 다른 효율성을 경험해 보세요. Excel용 Kutools는 생산성을 높이고 시간을 절약하기 위해 300개 이상의 고급 기능을 제공합니다.  가장 필요한 기능을 얻으려면 여기를 클릭하십시오...

kte 탭 201905


Office Tab은 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게 만듭니다.

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
  • 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
  • 생산성을 50% 높이고 매일 수백 번의 마우스 클릭을 줄입니다!
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