Conas aird a tharraingt ar luachanna dúblacha i ndathanna éagsúla in Excel?
In Excel, is féidir linn na luachanna dúblacha i gcolún le dath amháin a aibhsiú go héasca trí úsáid a bhaint as an Formáidiú Coinníollach, ach, uaireanta, caithfimid aird a tharraingt ar na luachanna dúblacha i ndathanna éagsúla chun na dúblacha a aithint go tapa agus go héasca mar a leanas an pictiúr a thaispeántar. Conas a d’fhéadfá an tasc seo a réiteach in Excel?
Aibhsigh luachanna dúblacha i gcolún le dathanna éagsúla trí chód VBA a úsáid
Aibhsigh luachanna dúblacha i gcolún le dathanna éagsúla trí chód VBA a úsáid
Déanta na fírinne, níl aon bhealach díreach ann dúinn an post seo a chríochnú in Excel, ach, d’fhéadfadh an cód VBA thíos cabhrú leat, déan mar a leanas le do thoil:
1. Roghnaigh an colún luachanna ar mhaith leat dúbailtí le dathanna difríochta a aibhsiú, ansin coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Modúil Fuinneog.
Cód VBA: Aibhsigh luachanna dúblacha i dathanna éagsúla:
Sub ColorCompanyDuplicates()
'Updateby Extendoffice
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim xChar As String
Dim xCellPre As Range
Dim xCIndex As Long
Dim xCol As Collection
Dim I As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
xCIndex = 2
Set xCol = New Collection
For Each xCell In xRg
On Error Resume Next
xCol.Add xCell, xCell.Text
If Err.Number = 457 Then
xCIndex = xCIndex + 1
Set xCellPre = xCol(xCell.Text)
If xCellPre.Interior.ColorIndex = xlNone Then xCellPre.Interior.ColorIndex = xCIndex
xCell.Interior.ColorIndex = xCellPre.Interior.ColorIndex
ElseIf Err.Number = 9 Then
MsgBox "Too many duplicate companies!", vbCritical, "Kutools for Excel"
Exit Sub
End If
On Error GoTo 0
Next
End Sub
3. Agus ansin brúigh F5 eochair chun an cód seo a rith, agus meabhróidh bosca pras duit an raon sonraí a theastaíonn uait a aibhsiú chun na luachanna dúblacha a roghnú, féach an scáileán:
4. Ansin cliceáil OK cnaipe, aibhsíodh na luachanna dúblacha go léir i ndathanna éagsúla, féach an scáileán:
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á!