Excel에서 두 문자열의 유사성을 비교하거나 차이점을 강조하려면 어떻게 해야 하나요?

경우에 따라 두 개의 인접한 문자열 셀을 비교하고 Excel에서 그들의 유사점이나 차이점을 표시해야 할 수 있습니다. 이 문서에서는 이를 달성하기 위한 두 가지 방법을 제공합니다.

수식을 사용하여 두 문자열 비교하기
VBA 코드를 사용하여 두 문자열의 유사성을 비교하거나 차이점을 강조하기

수식을 사용하여 두 문자열 비교하기

아래 스크린샷과 같이 비교된 문자열이 일치하는지 여부만 알고 싶다면 다음 수식을 적용할 수 있습니다.

1. 빈 셀 C2를 선택하고, 수식 =EXACT(A2, B2)를 수식 표시줄(F)에 입력한 후 Enter 키를 누릅니다. 스크린샷 보기:

참고: 수식에서 A2와 B2는 비교 중인 문자열이 포함된 셀입니다.

2. 결과 셀을 계속 선택한 상태로 채우기 핸들을 드래그하여 모든 비교 결과를 얻을 때까지 셀에 적용합니다.

FALSE 결과는 비교된 문자열이 다르다는 것을 의미하며, TRUE 결과는 비교된 두 문자열이 일치함을 나타냅니다. 스크린샷 보기:

Kutools AI로 엑셀의 마법을 풀다

• 스마트 실행: 셀 작업 수행, 데이터 분석 및 차트 생성 - 간단한 명령어로 모든 것을 처리합니다.
• 사용자 정의 수식: 작업을 간소화하기 위한 맞춤형 수식을 생성합니다.
• VBA 코딩: 손쉽게 VBA 코드를 작성하고 실행합니다.
• 수식 해석: 복잡한 수식도 쉽게 이해할 수 있습니다.
• 텍스트 번역: 스프레드시트 내 언어 장벽을 허물어 보세요.

AI 기반 도구로 엑셀 활용 능력을 강화하세요. 지금 다운로드하여 그 어느 때보다 높은 효율성을 경험해 보세요!

VBA 코드를 사용하여 두 문자열의 유사성을 비교하거나 차이점을 강조하기

두 문자열을 비교하고 그들 간의 유사점이나 차이점을 강조하고자 한다면, 다음 VBA 코드가 도움이 될 수 있습니다.

1. Alt + F11 키를 동시에 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. Microsoft Visual Basic for Applications 창에서 삽입 > 모듈을 클릭합니다. 그런 다음 아래 코드를 코드 창에 복사하여 붙여넣습니다.

VBA 코드: 두 열의 문자열을 비교하거나 차이점을 강조하기

Sub highlight()
    Dim xRg1 As Range
    Dim xRg2 As Range
    Dim xTxt As String
    Dim xCell1 As Range
    Dim xCell2 As Range
    Dim I As Long
    Dim J As Integer
    Dim xLen As Integer
    Dim xDiffs As Boolean
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
lOne:
    Set xRg1 = Application.InputBox("Range A:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg1 Is Nothing Then Exit Sub
    If xRg1.Columns.Count > 1 Or xRg1.Areas.Count > 1 Then
        MsgBox "Multiple ranges or columns have been selected ", vbInformation, "Kutools for Excel"
        GoTo lOne
    End If
lTwo:
    Set xRg2 = Application.InputBox("Range B:", "Kutools for Excel", "", , , , , 8)
    If xRg2 Is Nothing Then Exit Sub
    If xRg2.Columns.Count > 1 Or xRg2.Areas.Count > 1 Then
        MsgBox "Multiple ranges or columns have been selected ", vbInformation, "Kutools for Excel"
        GoTo lTwo
    End If
    If xRg1.CountLarge <> xRg2.CountLarge Then
       MsgBox "Two selected ranges must have the same numbers of cells ", vbInformation, "Kutools for Excel"
       GoTo lTwo
    End If
    xDiffs = (MsgBox("Click Yes to highlight similarities, click No to highlight differences ", vbYesNo + vbQuestion, "Kutools for Excel") = vbNo)
    Application.ScreenUpdating = False
    xRg2.Font.ColorIndex = xlAutomatic
    For I = 1 To xRg1.Count
        Set xCell1 = xRg1.Cells(I)
        Set xCell2 = xRg2.Cells(I)
        If xCell1.Value2 = xCell2.Value2 Then
            If Not xDiffs Then xCell2.Font.Color = vbRed
        Else
            xLen = Len(xCell1.Value2)
            For J = 1 To xLen
                If Not xCell1.Characters(J, 1).Text = xCell2.Characters(J, 1).Text Then Exit For
            Next J
            If Not xDiffs Then
                If J <= Len(xCell2.Value2) And J > 1 Then
                    xCell2.Characters(1, J - 1).Font.Color = vbRed
                End If
            Else
                If J <= Len(xCell2.Value2) Then
                    xCell2.Characters(J, Len(xCell2.Value2) - J + 1).Font.Color = vbRed
                End If
            End If
        End If
    Next
    Application.ScreenUpdating = True
End Sub

3. F5 키를 눌러 코드를 실행합니다. 첫 번째 Kutools for Excel 대화 상자에서 비교해야 할 첫 번째 열의 텍스트 문자열을 선택하고 확인 버튼을 클릭합니다.

4. 그런 다음 두 번째 Kutools for Excel 대화 상자가 나타나며, 두 번째 열의 문자열을 선택하고 확인 버튼을 클릭합니다.

5. 마지막 Kutools for Excel 대화 상자에서 문자열의 유사성을 비교하려면 예 버튼을 클릭하고, 비교된 문자열의 차이점을 강조하려면 아니오 버튼을 클릭합니다. 스크린샷 보기:

그러면 아래 스크린샷과 같이 비교 결과를 확인할 수 있습니다.

관련 기사:

• Excel에서 두 열을 비교하고 일치하지 않는 데이터를 강조하는 방법은 무엇인가요?
• Excel에서 두 문자열을 정확히 비교하는 방법(대소문자 구분)?