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:
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 Sub3. 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?
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
