Conas luachanna uathúla a scriosadh as colún in Excel?
De ghnáth, bíonn an chuid is mó dínn ag iarraidh luachanna dúblacha a bhaint as colún, ach uaireanta, b’fhéidir gur mhaith leat na luachanna uathúla nach bhfeictear ach uair amháin sa cholún a bhaint. Tá an rang teagaisc seo ag caint faoi na cleasanna chun luachanna uathúla a bhaint de cholún in Excel amháin.
Scrios luachanna unqiue le VBA in Excel
Scrios luachanna unqiue le Kutools le haghaidh Excel
Scrios luachanna unqiue le VBA in Excel
Féadann VBA na luachanna uathúla go léir a scriosadh as colún amháin go tapa.
1. Brúigh Alt + F11 chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. Sa fhuinneog, cliceáil Ionsáigh > Modúil chun fuinneog nua modúil a thaispeáint, ansin cóipeáil an cód VBA seo a leanas isteach i bhfuinneog an mhodúil.
VBA: Scrios luachanna uathúla ó cholún.
Sub DeleteUnique()
'Updateby20140617
Dim Rng As Range
Dim WorkRng As Range
Dim Arr As Variant
Dim Dic As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.Columns(1)
Set Dic = CreateObject("Scripting.Dictionary")
Arr = WorkRng.Value
For i = 1 To UBound(Arr, 1)
xValue = Arr(i, 1)
Dic(xValue) = Dic(xValue) + 1
Next
WorkRng.ClearContents
Arr = WorkRng.Value
xIndex = 1
For Each xKey In Dic.keys
xValue = Dic(xKey)
If xValue > 1 Then
For i = 1 To xValue
Arr(xIndex, 1) = xKey
xIndex = xIndex + 1
Next
End If
Next
WorkRng.Value = Arr
End Sub
3. cliceáil Rith cnaipe chun an cód VBA a rith, agus a Kutools le haghaidh Excel tagann dialóg amach chun raon a roghnú le bheith ag obair. Féach an pictiúr:
4. cliceáil OK, agus scriostar na luachanna uathúla uile.
Scrios luachanna unqiue le Kutools le haghaidh Excel
Mura bhfuil tú eolach ar VBA, is féidir leat smaoineamh ar Kutools a úsáid le haghaidh gné Select Duplicate & Unique Cells Excel chun na luachanna uathúla in Excel a bhaint.
Kutools le haghaidh Excel Cuimsíonn sé níos mó ná 300 uirlis áisiúil Excel. Saor chun triail a dhéanamh gan aon teorannú i 30 lá. Faigh é anois
1. Roghnaigh an colún ar mhaith leat na luachanna uathúla a scriosadh as, agus cliceáil Kutools > Roghnaigh Uirlisí > Roghnaigh Cealla Dúblacha & Uathúla. Féach an pictiúr:
2. Sa dialóg pop-out, seiceáil Luachanna uathúla amháin agus cliceáil Ok, agus ansin scoir an dialóg seo. Féach an pictiúr:
3. Ansin is cosúil nach bhfuil na luachanna uile roghnaithe ach uair amháin. Agus deaschliceáil chun cliceáil Scrios sa roghchlár comhthéacs. Féach an pictiúr:
4. Sa Scrios dialóg, seiceáil Iomlán as a chéile, agus cliceáil OK. Féach an pictiúr:
Anois is féidir leat a fheiceáil go mbaintear na luachanna uathúla.
Leid: Mura dteastaíonn uait ach ábhar na cille a bhaint, is féidir leat cliceáil Ábhar Glan ón roghchlár comhthéacs i gcéim 3.
Ailt Choibhneasta:
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á!