Sut i gymharu dwy golofn ac amlygu'r data heb ei gyfateb yn Excel?
Fel isod llun a ddangosir, ar gyfer cymharu dwy golofn o gelloedd cyfagos ac amlygu'r data heb ei gyfateb, gallwch roi cynnig ar y dulliau yn yr erthygl.
Cymharwch ddwy golofn ac amlygwch y data heb ei gyfateb â chod VBA
Cymharwch ddwy golofn ac amlygwch y data heb ei gyfateb â Kutools ar gyfer Excel
Cymharwch ddwy golofn ac amlygwch y data heb ei gyfateb â chod VBA
Fel y screenshot uchod, rydych chi'n cymharu'r data yng Ngholofn A a Cholofn B. Os gwelwch yn dda rhedeg y cod VBA canlynol i dynnu sylw at y data heb ei gyfateb.
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 ddwy golofn ac amlygwch y data heb ei gyfateb
Sub Dyeware()
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 ranges must have the same numbers of cells ", vbInformation, "Kutools for Excel"
GoTo lTwo
End If
xDiffs = (MsgBox("Click Yes to highlight matched data, click No to highlight unmatched data ", vbYesNo + vbQuestion, "Kutools for Excel") = vbNo)
Application.ScreenUpdating = False
xRg2.Interior.ColorIndex = xlNo
xRg1.Interior.ColorIndex = xlNo
For I = 1 To xRg1.Count
Set xCell1 = xRg1.Cells(I)
Set xCell2 = xRg2.Cells(I)
If xCell1.Value = xCell2.Value Then
If Not xDiffs Then
xCell1.Interior.Color = vbRed
xCell2.Interior.Color = vbRed
End If
Else
If xDiffs Then
xCell1.Interior.Color = vbRed
xCell2.Interior.Color = vbRed
End If
End If
Next
Application.ScreenUpdating = True
End Sub
3. Gwasgwch y F5 allwedd i redeg y cod. Yn y popping up Kutools ar gyfer Excel blwch deialog, dewiswch y golofn gyntaf y mae angen i chi ei chymharu, yna cliciwch ar y OK botwm. Gweler y screenshot.
4. Yna dewiswch yr ail golofn o'i chymharu yn y popping nesaf Kutools ar gyfer Excel blwch deialog.
5. Yn y blwch deialog fel y dangosir isod y llun, er mwyn tynnu sylw at y data heb ei gyfateb, cliciwch y Na botwm.
Yna amlygir yr holl ddata heb ei gyfateb rhwng dwy golofn ar unwaith. Gweler y screenshot:
Cymharwch ddwy golofn ac amlygwch y data heb ei gyfateb â Kutools ar gyfer Excel
Os ydych chi eisiau darganfod ac amlygu a yw'r gwerthoedd celloedd mewn colofn yn bodoli mewn colofn arall ai peidio, er enghraifft fel isod llun a ddangosir, nid yw rhif 2 yng ngholofn A yn bodoli yng ngholofn B. gallwch roi cynnig ar y Cymharwch y Meysydd cyfleustodau Kutools ar gyfer Excel.
1. Cliciwch Kutools > Mewnosod > Dewiswch Yr Un Celloedd a Gwahanol. Gweler y screenshot:
2. Yn y Dewiswch Yr Un Celloedd a Gwahanol blwch deialog, mae angen i chi ffurfweddu fel a ganlyn:
3. Yna mae blwch deialog yn ymddangos i ddweud wrthych faint o gelloedd sydd ddim ond yng ngholofn A ond nid yng ngholofn B, cliciwch y botwm OK, a dewisir yr holl gelloedd sy'n cyfateb yng ngholofn A.
Os ydych chi am gael treial am ddim (30 diwrnod) o'r cyfleustodau hwn, cliciwch i'w lawrlwytho, ac yna ewch i gymhwyso'r llawdriniaeth yn ôl y camau uchod.
Erthyglau cysylltiedig:
- Sut i gymharu dau dant ar gyfer tebygrwydd neu dynnu sylw at wahaniaethau 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!