Conas dhá shraith a chur i gcomparáid lena chéile nó chun difríochtaí in Excel a aibhsiú?
I roinnt cásanna, b’fhéidir nach mbeidh ort ach dhá chealla téada cóngaracha a chur i gcomparáid lena chéile agus a gcosúlachtaí nó difríochtaí in Excel a mharcáil. Soláthraíonn an t-alt seo dhá mhodh chun tú a bhaint amach.
Déan comparáid idir dhá shraith leis an bhfoirmle
Déan comparáid idir dhá shraith le haghaidh cosúlachta nó aibhsigh difríochtaí le cód VBA
Déan comparáid idir dhá shraith leis an bhfoirmle
Mar a thaispeántar thíos an pictiúr, mura dteastaíonn uait ach a fháil amach an bhfuil na teaghráin chomparáideacha comhoiriúnaithe nó nach bhfuil, is féidir leat an fhoirmle seo a leanas a chur i bhfeidhm.
1. Roghnaigh cill bán C2, cuir isteach an fhoirmle = EXACT (A2, B2) isteach sa Bharra Foirmle, agus ansin brúigh an eochair Iontráil. Féach an pictiúr:
nótaí: San fhoirmle, is iad A2 agus B2 na cealla ina bhfuil na sreangáin chomparáideacha.
2. Coinnigh ort an chill toradh a roghnú, ansin tarraing an Láimhseáil Líon isteach chuig na cealla go dtí go bhfaighidh tú na torthaí comparáideacha go léir.
Ciallaíonn toradh FALSE go bhfuil na teaghráin chomparáideacha difriúil, agus léiríonn an toradh TRUE go bhfuil an dá shreang chomparáideach comhoiriúnaithe. Féach an pictiúr:
Déan comparáid idir dhá shraith le haghaidh cosúlachta nó aibhsigh difríochtaí le cód VBA
Más mian leat dhá shraith a chur i gcomparáid agus aird a tharraingt ar na cosúlachtaí nó na difríochtaí eatarthu. Is féidir leis an gcód VBA seo a leanas cabhrú leat.
1. Brúigh Eile + F11 eochracha ag an am céanna chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. Sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil Ionsáigh > Modúil. Ansin cóipeáil agus greamaigh an cód seo a leanas i bhfuinneog an Chóid.
Cód VBA: Déan comparáid idir dhá shraith cholún le haghaidh cosúlachta nó aibhsigh difríochtaí
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. Brúigh an F5 eochair chun an cód a rith. Sa chéad cheann Kutools le haghaidh Excel bosca dialóige, roghnaigh an chéad cholún de teaghráin téacs a chaithfidh tú a chur i gcomparáid, agus ansin cliceáil ar an OK cnaipe.
4. Ansin an dara ceann Kutools le haghaidh Excel tagann bosca dialóige aníos, roghnaigh teaghráin an dara colún, agus cliceáil an OK cnaipe.
5. Sa cheann deireanach Kutools le haghaidh Excel bosca dialóige, más mian leat teaghráin a chur i gcomparáid lena chéile, cliceáil an Is ea cnaipe. Agus chun aird a tharraingt ar dhifríochtaí na dtéad i gcomparáid, cliceáil ar an Uimh cnaipe. Féach an pictiúr:
Ansin is féidir leat na torthaí comparáideacha a fheiceáil mar atá thíos an pictiúr a thaispeántar.
Earraí gaolmhara:
- Conas dhá cholún a chur i gcomparáid agus aird a tharraingt ar na sonraí gan chomhoiriúnú in Excel?
- Conas dhá shraith (cás-íogair) a chur i gcomparáid go díreach in Excel?
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca
- Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
- Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
- Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!