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
- Athúsáid Rud ar bith: Cuir na foirmlí, na cairteacha agus aon rud eile is úsáidí nó is casta le do rogha Favorites, agus athúsáid go tapa iad sa todhchaí.
- Níos mó ná 20 gné téacs: Uimhir Sliocht as Teaghrán Téacs; Sliocht nó Bain Cuid de Théacsanna; Tiontaigh Uimhreacha agus Airgeadraí go Focail Bhéarla.
- Cumaisc Uirlisí: Illeabhair Oibre agus Bileoga ina hAon; Cumaisc Ilchealla / Sraitheanna / Colúin Gan Sonraí a Chailleadh; Cumaisc Sraithe Dúblacha agus Suim.
- Uirlisí Scoilt: Roinn Sonraí i Ilbhileoga Bunaithe ar Luach; Leabhar Oibre amháin le Ilchomhaid Excel, PDF nó CSV; Colún amháin go Colúin Iolracha.
- Greamaigh gan bacadh Sraitheanna Hidden / Scagtha; Líon agus Suim de réir Dath Cúlra; Seol Ríomhphoist Phearsantaithe chuig Il-Faighteoirí i mBulc.
- Scagaire Sármhaith: Ardscéimeanna scagaire a chruthú agus a chur i bhfeidhm ar aon bhileoga; Sórtáil de réir seachtaine, lae, minicíochta agus níos mó; scagairí le cló trom, foirmlí, trácht ...
- Níos mó ná 300 gné chumhachtach; Oibríonn sé le hOifig 2007-2021 agus 365; Tacaíonn sé le gach teanga; Imscaradh éasca i d'fhiontar nó d'eagraíocht.
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
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:
Na hUirlisí Táirgiúlachta Oifige is Fearr
Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%
- Athúsáid: Cuir isteach go tapa foirmlí casta, cairteacha agus aon rud a d'úsáid tú roimhe seo; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
- Barra Foirmle Super (cuir línte iolracha téacs agus foirmle in eagar go héasca); Leagan Amach Léitheoireachta (líon mór cealla a léamh agus a chur in eagar go héasca); Greamaigh go dtí an Raon Scagtha...
- Cumaisc Cealla / Sraitheanna / Colúin gan Sonraí a chailleadh; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna / Colúin Dúblacha... Cill Dúblach a Chosc; Déan comparáid idir Ranganna...
- Roghnaigh Dúblach nó Uathúil Sraitheanna; Roghnaigh Blank Rows (tá na cealla uile folamh); Aimsigh Super agus Fuzzy Aimsigh i go leor Leabhar Oibre; Roghnaigh go randamach ...
- Cóip Díreach Cealla Il gan tagairt fhoirmle a athrú; Tagairtí Cruthaigh Auto chuig Bileoga Il; Cuir Urchair isteach, Boscaí Seiceála agus go leor eile ...
- Sliocht Téacs, Cuir Téacs leis, Bain de réir Poist, Bain Spás; Subtotals Paging a chruthú agus a phriontáil; Tiontaigh Idir Ábhar Cealla agus Tráchtanna...
- Scagaire Super (scéimeanna scagaire a shábháil agus a chur i bhfeidhm ar bhileoga eile); Ard-Sórtáil de réir míosa / seachtaine / lae, minicíocht agus níos mó; Scagaire Speisialta le cló trom, iodálach ...
- Comhcheangail Leabhair Oibre agus Bileoga Oibre; Cumaisc Táblaí bunaithe ar eochaircholúin; Roinn Sonraí i Ilbhileoga; Baisc Tiontaigh xls, xlsx agus PDF...
- Níos mó ná 300 gné chumhachtach. Tacaíonn Office / Excel 2007-2021 agus 365. Tacaíonn sé le gach teanga. Imscaradh éasca i d'fhiontar nó d'eagraíocht. Gnéithe iomlána triail saor in aisce 30-lá. Ráthaíocht airgid ar ais 60-lá.
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á!
