Connie는 B 열의 각 셀에 회사 이름이있는 워크 시트를 가지고 있습니다.

A 열의 지역 표제 (동북, 서부 등) 아래에 그룹화됩니다. 회사 이름에 조건부 서식을 적용하여 이름이 둘 이상의 지역에 표시되는 경우 배경이나 텍스트를 사용하여 표시하려고합니다. 일치하는 회사를 쉽게 찾을 수있는 색상입니다. 즉, 한 회사가 빨간색으로 포맷 된 경우 다른 회사는 빨간색으로 표시되지 않아야합니다 (파란색 또는 녹색과 같은 다른 색상으로 표시되어야 함). Connie는이를 설정하는 방법이나 조건부 서식으로 수행 할 수 있는지도 잘 모릅니다.

조건부 서식을 사용하여 중복을 표시하는 방법이 있습니다. 다음 일반적인 단계를 따르십시오.

  1. 회사 이름이 포함 된 셀을 선택하십시오.

  2. 리본의 홈 탭을 표시하고 스타일 그룹에서 조건부 서식 도구를 클릭합니다.

  3. 새 규칙을 선택하십시오. Excel에 새 서식 규칙 대화 상자가 표시됩니다.

  4. 대화 상자 맨 위에있는 고유 또는 중복 값만 포맷 옵션을 클릭합니다.

  5. 대화 상자 하단의 드롭 다운 목록에서 복제가 선택되어 있는지 확인합니다. (그림 1 참조)

  6. 형식 버튼을 클릭하고 중복 된 회사 이름이 표시되는 방식을 반영하도록 형식을 변경합니다.

  7. 확인을 클릭하여 새 서식 규칙 대화 상자를 닫습니다.

이 시점에서 모든 중복 항목은 6 단계에서 선택한 서식과 일치해야합니다. 유일한 문제는 모든 중복 항목이 동일한 방식으로 서식이 지정된다는 것입니다. 즉, 두 회사 (ABC Company 및 DEF Company)가 있고 해당 회사에 대한 중복이있는 경우 모두 동일한 방식으로 형식이 지정됩니다. 두 회사에 대해 다른 형식이 표시되지 않습니다.

물론 Excel의 필터링 기능을 사용하여 중복 회사, 중복되지 않은 회사 또는 개별 회사 이름을 쉽게 구분할 수 있습니다. 이것은 찾고자하는 회사를 “제로인”하는 가장 쉬운 방법 일 수 있습니다.

조건부 서식을 사용하여 서로 다른 중복 회사 이름 그룹에 서로 다른 색상을 적용하는 유일한 방법은 실제 중복을 미리 식별하는 것입니다. 이 목록을 사용하면 다음과 유사한 수식을 사용하는 일련의 조건부 서식 규칙을 만들 수 있습니다.

=AND(ISNUMBER(FIND("ABC Company",B1)),COUNTIF($B$1:$B$99,"ABC Company")>1)

이 수식에서 “ABC Company”는 회사 이름이고 B1은 범위의 첫 번째 셀이며 B1 : B99는 전체 셀 범위입니다. 각 서식 규칙에 대해 특정 회사에 적합한 다른 서식을 적용 할 수 있습니다. 즉, 중복 된 24 개의 서로 다른 회사 이름이 있다는 것을 미리 알고 있다면 24 개의 이름을 처리하기 위해 24 개의 조건부 서식 규칙을 설정해야합니다.

실제로 복잡합니다. 불행히도 조건부 서식을 사용하는 더 쉬운 방법은 없습니다. 그러나 조건부 서식을 무시하고 매크로를 사용하여 복제본을 돋보이게 만들 수 있습니다. 우리가 생각 해낼 수있는 가장 간단한 “자동”매크로 (중복 된 이름을 미리 알 필요가없는 경우)는 셀 범위를 검사하고 중복 된 회사 이름을 기반으로 내부 셀 색상을 설정하는 매크로입니다.

Sub ColorCompanyDuplicates()

Dim x As Integer     Dim y As Integer     Dim lRows As Long     Dim lColNum As Long     Dim iColor As Integer     Dim iDupes As Integer     Dim bFlag As Boolean

lRows = Selection.Rows.Count     lColNum = Selection.Column     iColor = 2

For x = 2 To lRows         bFlag = False         For y = 2 To x - 1             If Cells(y, lColNum) = Cells(x, lColNum) Then                 bFlag = True                 Exit For             End If         Next y         If Not bFlag Then             iDupes = 0             For y = x + 1 To lRows                 If Cells(y, lColNum) = Cells(x, lColNum) Then                     iDupes = iDupes + 1                 End If             Next y             If iDupes > 0 Then                 iColor = iColor + 1                 If iColor > 56 Then                     MsgBox "Too many duplicate companies!", vbCritical                     Exit Sub                 End If                 Cells(x, lColNum).Interior.ColorIndex = iColor                 For y = x + 1 To lRows                     If Cells(y, lColNum) = Cells(x, lColNum) Then                         Cells(y, lColNum).Interior.ColorIndex = iColor                     End If                 Next y             End If         End If     Next x End Sub

매크로를 사용하려면 회사 이름이 포함 된 셀을 선택한 다음 실행하면됩니다. 매크로는 셀을 세 번 통과합니다. 첫 번째 패스는 현재 검사중인 셀의 셀을 거꾸로 살펴 봅니다. “뒤로”가 있는지 확인하는 데 사용됩니다

중복되는 경우 특정 셀에 대한 추가 처리가 필요하지 않기 때문입니다. 두 번째 단계에서는 셀을 통해 현재 회사 이름에 중복 된 항목이 있는지 확인합니다. 있는 경우 세 번째 패스는 셀 색상 값을 증가시킨 다음 복제에 적용합니다.

매크로는 찾은 모든 중복 항목의 ColorIndex 속성을 설정하고 새 중복 회사 이름 집합을 찾을 때 속성을 설정하는 데 사용되는 변수를 증가시킵니다. 중복이없는 모든 회사 이름의 경우 셀의 ColorIndex 속성이 변경되지 않습니다. 이는 표시 할 수있는 회사 수에 제한이 있음을 의미합니다. ColorIndex는 0에서 56 사이의 범위 만 가능합니다. 매크로에 의해 실제로 할당 된 값의 범위는 3에서 56까지이므로 54 개의 회사 그룹 만 포맷 할 수 있습니다. .

_ 참고 : _

이 페이지 (또는 ExcelTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶으면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.

link : / excelribbon-ExcelTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요].

_ExcelTips_는 비용 효율적인 Microsoft Excel 교육을위한 소스입니다.

이 팁 (12673)은 Office 365의 Microsoft Excel 2007, 2010, 2013, 2016, 2019 및 Excel에 적용됩니다.