Sut i gymharu dau dant ar gyfer tebygrwydd neu dynnu sylw at wahaniaethau yn Excel?

Mewn rhai achosion, efallai mai dim ond dwy gell llinynnau gyfagos y bydd angen i chi eu cymharu a marcio eu tebygrwydd neu wahaniaethau yn Excel. Mae'r erthygl hon yn darparu dau ddull i chi ei gyflawni.

Cymharwch ddau dant â fformiwla
Cymharwch ddau dant ar gyfer tebygrwydd neu amlygwch wahaniaethau â chod VBA

Cymharwch ddau dant â fformiwla

Fel y dangosir isod y screenshot a ddangosir, os ydych chi eisiau gwybod a yw'r llinynnau o'u cymharu yn cyfateb ai peidio, gallwch gymhwyso'r fformiwla ganlynol.

1. Dewiswch gell wag C2, nodwch y fformiwla = EXACT (A2, B2) i mewn i'r Bar Fformiwla, ac yna pwyswch y fysell Enter. Gweler y screenshot:

Nodyn: Yn y fformiwla, A2 a B2 yw'r celloedd sy'n cynnwys y tannau cymharu.

2. Daliwch i ddewis y gell canlyniad, yna llusgwch y Llenwi Trin i'r celloedd nes cael yr holl ganlyniadau cymhariaethol.

Mae'r canlyniad ANWIR yn golygu bod y llinynnau o'u cymharu yn wahanol, ac mae'r canlyniad GWIR yn nodi bod y ddau dant o'u cymharu yn cyfateb. Gweler y screenshot:

Datgloi Excel Magic gyda Kutools AI

• Cyflawni Smart: Perfformio gweithrediadau celloedd, dadansoddi data, a chreu siartiau - i gyd wedi'u gyrru gan orchmynion syml.
• Fformiwlâu Custom: Cynhyrchu fformiwlâu wedi'u teilwra i symleiddio'ch llifoedd gwaith.
• Codio VBA: Ysgrifennu a gweithredu cod VBA yn ddiymdrech.
• Dehongli Fformiwla: Deall fformiwlâu cymhleth yn rhwydd.
• Cyfieithiad Testun: Torri rhwystrau iaith o fewn eich taenlenni.

Gwella'ch galluoedd Excel gydag offer wedi'u pweru gan AI. Lawrlwytho Nawr a phrofi effeithlonrwydd fel erioed o'r blaen!

Cymharwch ddau dant ar gyfer tebygrwydd neu amlygwch wahaniaethau â chod VBA

Os ydych chi am gymharu dau dant ac amlygu'r tebygrwydd neu'r gwahaniaethau rhyngddynt. Gall y cod VBA canlynol eich helpu chi.

1. Gwasgwch Alt + F11 allweddi ar yr un pryd i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Modiwlau. Yna copïwch a gludwch y cod canlynol i mewn i ffenestr y Cod.

Cod VBA: Cymharwch ddau dant colofn ar gyfer tebygrwydd neu amlygwch wahaniaethau

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. Gwasgwch y F5 allwedd i redeg y cod. Yn y cyntaf Kutools ar gyfer Excel blwch deialog, dewiswch y golofn gyntaf o dannau testun y mae angen i chi eu cymharu, ac yna cliciwch ar y OK botwm.

4. Yna'r ail Kutools ar gyfer Excel blwch deialog yn ymddangos, dewiswch dannau'r ail golofn, a chliciwch ar y OK botwm.

5. Yn yr olaf Kutools ar gyfer Excel blwch deialog, os ydych chi am gymharu llinynnau am debygrwydd, cliciwch y Ydy botwm. Ac i dynnu sylw at wahaniaethau'r tannau o'u cymharu, cliciwch y Na botwm. Gweler y screenshot:

Yna gallwch weld y canlyniadau cymhariaethol fel isod llun a ddangosir.

Erthyglau cysylltiedig:

• Sut i gymharu dwy golofn ac amlygu'r data heb ei gyfateb yn Excel?
• Sut i gymharu dau dant (sensitif i achos) yn Excel yn union?