☰

Excel- 여러(>2) 행에서 공통 텍스트 값을 어떻게 찾나요?

tag-icon • tag-icon microsoft-excel worksheet-function
Excel- 여러(>2) 행에서 공통 텍스트 값을 어떻게 찾나요?

이것은 본질적으로 여기에 묻는 질문의 변형입니다. Excel- 여러(>2) 열에서 공통 텍스트 값을 어떻게 찾나요?

그러나 이 경우에는 여러 열의 데이터 대신 여러 행을 검색해야 합니다. 따라서 각 행에는 반복되지 않는 데이터의 열이 최대 17개까지 있을 수 있으며 행 간에 일치하는 항목을 찾고 싶습니다. 다음은 데이터가 어떻게 보이는지에 대한 작은 샘플입니다(이것은 여러 소스에서 수집된 사이트에 대해 가능한 좌표 목록이며 고유한 위치를 정확히 찾아내기 위한 것입니다).

소스 좌표1 좌표2 좌표3 좌표4 좌표5 좌표6
소스1 (4,0) (5,0)
소스2 (3,0) (4,0) (5,0) (3,1) (4,1) (5,1)
소스3 (4,0) (5,1) (5,0)
소스4 (3,0) (4,0) (5,0) (3,1) (3,2)
소스5 (2,3) (3,2) (4,1) (4,2) (5,0)

참조된 스레드에서 사용자 XOR-LX는 열별 비교에 매우 유용한 방법을 제공했습니다. 실제로 위 데이터를 전치하면 그의 방법이 제대로 작동하여 첫 번째 출력 셀의 고유 위치로 (5,0)을 반환하지만 데이터가 정렬되어 있으므로 행 단위 사용을 위해 수정할 수 없었습니다. 지금까지 나는 그것을 다음과 같은 방법으로 수정하려고 시도했지만 운이 없었습니다.

  • 범위1 =$B$2:$G$6
  • 아리1 =ROW(Range1)-MIN(ROW(Range1))
  • 아리2 =COLUMN(INDEX(Range1,1,))-MIN(COLUMN(INDEX(Range1,1,)))+1
  • 아리3 = MMULT(0+COUNTIF(OFFSET(INDEX(Range1,1,),Arry1,,,),INDEX(Range1,1,))>0),COLUMN(INDIRECT(ROWS(Range1)&":1"))^0)

최종 입력은 다음과 같습니다.
=IFERROR(INDEX(INDEX(Range1,1,),SMALL(IF(FREQUENCY(IF(INDEX(Range1,1,)<>"",IF(Arry3=ROWS(Range1),MATCH(INDEX(Range1,1,),INDEX(Range1,1,),0))),Arry2),Arry2),COLUMNS(A:$A))),"")

위의 수정을 사용하면 출력(또는 오류 메시지)이 없고 빈 셀만 표시됩니다. 나는 본질적으로 ROW를 COLUMN 등으로 교체하여 그의 방법을 "반전"시키려고 시도했지만 특히 Excel 매트릭스 기능에 대한 약점을 고려할 때 솔루션이 약간 더 복잡할 수 있다고 생각합니다.

어떤 도움이라도 대단히 감사하겠습니다.

답변1

워크시트 모듈에서 이 코드를 사용해 볼 수 있습니다. 그다지 강력하지 않고 색상이 반복될 수 있지만 작업에는 적합할 수 있습니다. 여기에 다시 게시하지 않으면. 범위 구성 요소(현재 B1에서 G100)를 적절하게 변경하면 됩니다.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cell As Range, c As Range
Dim MyCI As Long

If Intersect(Target, Range("$B$1:$G$100")) Is Nothing Then Exit Sub

For Each cell In Range("$B$1:$G$100")
    cell.Interior.ColorIndex = 0
Next cell

For Each cell In Range("$B$1:$G$100")
    If WorksheetFunction.CountIf(Range("$B$1:$G$100"), cell.Value) > 1 Then
    If cell.Interior.ColorIndex = -4142 Then
    MyCI = Int((56 - 1 + 1) * Rnd + 1)
        For Each c In Range("$B$1:$G$100")
            If c.Value = cell.Value Then c.Interior.ColorIndex = MyCI
        Next c
   End If
   End If
Next cell

End Sub

관련 정보