Note: The other languages of the website are Google-translated. Back to English
Logáil isteach  \/ 
x
or
x
Cláraigh  \/ 
x

or

Conas luachanna uathúla a bhaint as ilcholúin in Excel?

Má ghlactar leis go bhfuil roinnt colún agat a bhfuil luachanna iolracha acu, déantar roinnt luachanna arís sa cholún céanna nó sa cholún difriúil sin. Agus anois níl uait ach na luachanna atá i gceachtar colún a fháil ach uair amháin. An bhfuil aon chleasanna gasta ann chun luachanna uathúla a bhaint as ilcholúin in Excel?


Sliocht luachanna uathúla ó ilcholúin le foirmle eagar

Seo foirmle eagar is féidir cabhrú leat na luachanna uathúla a bhaint as iliomad colúin.

1. Ag glacadh le do luachanna i raon A2: C9, cuir isteach an fhoirmle seo a leanas i gcill E2:

=INDIRECT(TEXT(MIN(IF(($A$2:$C$9<>"")*(COUNTIF($E$1:E1,$A$2:$C$9)=0),ROW($2:$9)*100+COLUMN($A:$C),7^8)),"R0C00"),)&""

nótaí: San fhoirmle thuas, A2: C9 léiríonn sé an raon cealla ar mhaith leat na luachanna uathúla a bhaint astu, E1: E1 an chéad chill den cholún is mian leat an toradh a chur, $ 2: $ 9 i seastáin ó na sraitheanna tá na cealla is mian leat a úsáid, agus $ A: $ C. léiríonn go bhfuil na cealla is mian leat a úsáid sna colúin. Athraigh iad go dtí do cheann féin.

2. Ansin brúigh Shift + Ctrl + Iontráil eochracha le chéile, agus ansin tarraing an láimhseáil líonta chun na luachanna uathúla a bhaint go dtí go mbeidh cealla bána le feiceáil. Féach an pictiúr:


Sliocht luachanna uathúla ó iliomad colúin le Tábla Pivot

Má tá tú eolach ar an tábla pivot, is féidir leat na luachanna uathúla a bhaint as ilcholúin leis na céimeanna seo a leanas:

1. Ar dtús, cuir isteach colún bán nua ar thaobh na láimhe clé de do chuid sonraí, sa sampla seo, cuirfidh mé colún A isteach in aice leis na sonraí bunaidh.

2. Cliceáil cill amháin i do chuid sonraí, agus brúigh Alt + D eochracha, ansin brúigh P eochair láithreach chun an Draoi PivotTable agus PivotChart, roghnaigh Raonta comhdhlúthaithe iolracha sa chéim1 draoi, féach an scáileán:

3. Ansin cliceáil Ar Aghaidh cnaipe, seiceáil Cruthaigh réimse aon leathanaigh dom rogha i draoi step2, féach an scáileán:

4. Téigh ar cliceáil Ar Aghaidh cnaipe, cliceáil chun an raon sonraí a roghnú lena n-áirítear an colún nua cealla ar chlé, ansin cliceáil Cuir cnaipe chun an raon sonraí a chur leis an Gach raon bosca liosta, féach an scáileán:

5. Tar éis duit an raon sonraí a roghnú, lean ar aghaidh le cliceáil Ar Aghaidh, i gcéim 3 an draoi, roghnaigh cá háit ar mhaith leat an tuarascáil PivotTable a chur mar is mian leat.

6. Faoi dheireadh, cliceáil Críochnaigh chun an draoi a chríochnú, agus cruthaíodh tábla pivot sa bhileog oibre reatha, ansin dícheangail na réimsí uile ón Roghnaigh réimsí le cur leis an tuairisc alt, féach an pictiúr:

7. Ansin seiceáil an réimse luach nó tarraing an Luach go dtí an Rónna lipéad, anois gheobhaidh tú na luachanna uathúla ó na colúin iolracha mar seo a leanas:


Sliocht luachanna uathúla ó iliomad colúin le cód VBA

Leis an gcód VBA seo a leanas, is féidir leat na luachanna uathúla a bhaint as iliomad colúin.

1. Coinnigh síos an ALT + F11 eochracha, agus osclaíonn sé an Fuinneog Microsoft Visual Basic for Applications.

2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas i bhFuinneog an Mhodúil.

VBA: Sliocht luachanna uathúla ó iliomad colúin

Sub Uniquedata()
'Updateby Extendoffice
Dim rng As Range
Dim InputRng As Range, OutRng As Range
Set dt = CreateObject("Scripting.Dictionary")
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
For Each rng In InputRng
    If rng.Value <> "" Then
        dt(rng.Value) = ""
    End If
Next
OutRng.Range("A1").Resize(dt.Count) = Application.WorksheetFunction.Transpose(dt.Keys)
End Sub

3. Ansin brúigh F5 chun an cód seo a rith, agus tiocfaidh bosca pras amach le cur i gcuimhne duit an raon sonraí a theastaíonn uait a úsáid a roghnú. Féach an pictiúr:

4. Agus ansin cliceáil OK, beidh bosca pras eile le feiceáil a ligfidh duit áit a roghnú chun an toradh a chur, féach ar an scáileán:

5. cliceáil OK chun an dialóg seo a dhúnadh, agus baineadh na luachanna uathúla uile ag an am céanna.


Sliocht luachanna uathúla ó cholún amháin le gné iontach

Uaireanta, ní mór duit na luachanna uathúla a bhaint as colún amháin, ní chuideoidh na modhanna thuas leat, anseo, is féidir liom uirlis úsáideach a mholadh-Kutools le haghaidh Excel, Lena Sliocht cealla le luachanna uathúla (cuir an chéad dúblach san áireamh) fóntais, is féidir leat na luachanna uathúla a bhaint go tapa.

Nóta:Chun é seo a chur i bhfeidhm Sliocht cealla le luachanna uathúla (cuir an chéad dúblach san áireamh), ar dtús, ba cheart duit an Kutools le haghaidh Excel, agus ansin an ghné a chur i bhfeidhm go tapa agus go héasca.

Tar éis a shuiteáil Kutools le haghaidh Excel, déan mar seo le do thoil:

1. Cliceáil cill inar mian leat an toradh a aschur. (nótaí: Ná cliceáil cill sa chéad ró.)

2. Ansin cliceáil Kutools > Cúntóir Foirmle > Cúntóir Foirmle, féach ar an scáileán:

3. Sa an Cúntóir Foirmlí bosca dialóige, déan na hoibríochtaí seo a leanas le do thoil:

  • Roghnaigh Téacs rogha ón Foirmle cineál liosta anuas;
  • Ansin roghnaigh Sliocht cealla le luachanna uathúla (cuir an chéad dúblach san áireamh) ó na Roghnaigh fromula bosca liosta;
  • Ar dheis Ionchur argóintí roinn, roghnaigh liosta de na cealla ar mhaith leat luachanna uathúla a bhaint astu.

4. Ansin cliceáil Ok cnaipe, agus tarraing an láimhseáil líonta chuig na cealla ar mhaith leat na luachanna uathúla go léir a liostáil go dtí go dtaispeánfar cealla bána, féach an scáileán:

Íoslódáil saor in aisce Kutools le haghaidh Excel Anois!


Earraí níos coibhneasta:

  • Líon na Luachanna Uathúla agus ar Leith ó Liosta
  • Ag ceapadh, tá liosta fada luachanna agat le roinnt míreanna dúblacha, anois, ba mhaith leat líon na luachanna uathúla a chomhaireamh (na luachanna nach bhfuil le feiceáil ar an liosta ach uair amháin) nó luachanna ar leith (gach luach difriúil ar an liosta, ciallaíonn sé uathúil luachanna + 1ú luachanna dúblacha) i gcolún mar a thaispeántar ar chlé. An t-alt seo, labhróidh mé faoi conas déileáil leis an bpost seo in Excel.
  • Sliocht Luachanna Uathúla Bunaithe ar Chritéir in Excel
  • Ag ceapadh, tá an raon sonraí seo a leanas agat nach dteastaíonn uait ach ainmneacha uathúla cholún B a liostáil bunaithe ar chritéar sonrach de cholún A chun an toradh a fháil mar a thaispeántar thíos. Conas a d’fhéadfá déileáil leis an tasc seo in Excel go tapa agus go héasca?
  • Ná lig ach Luachanna Uathúla in Excel
  • Mura dteastaíonn uait ach luachanna uathúla a iontráil ag dul isteach i gcolún de bhileog oibre agus na dúbailtí a chosc, tabharfaidh an t-alt seo roinnt cleasanna gasta isteach duit chun déileáil leis an tasc seo.
  • Suim Luachanna Uathúla Bunaithe ar Chritéir In Excel
  • Mar shampla, tá raon sonraí agam ina bhfuil colúin Ainm agus Ord, anois, chun luachanna uathúla amháin a lua i gcolún Ordaithe bunaithe ar an gcolún Ainm mar a leanas an pictiúr a thaispeántar. Conas an tasc seo a réiteach go tapa agus go héasca in Excel?

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íochtaí Office / Excel 2007-2019 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 ar ais airgid 60 lá.
cluaisín kte 201905

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á!
bun officetab
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    İlhan · 1 months ago
    can we create uniqdata function instead of macro?
    • To post as a guest, your comment is unpublished.
      skyyang · 1 months ago
      Hi, İlhan,
      If you like a User Defined Function to create a formula for solving this problem, the below code may help you:
      After inserting the code, select a list of cells where you want to put the results. 
      Then type this formula:=Uniques(A1:C4)  in the formula bar.
      Press Ctrl+Shift+Enter keys together. 

      Function Uniques(ByVal inputRange As Range)
      Dim inputArray As Variant
      Dim myColl As New Collection
      Dim xVal As Variant
      Dim outArray() As Variant
      On Error Resume Next
      With inputRange
      inputArray = Application.Intersect(.Cells, .Parent.UsedRange).Value
      End With
      On Error GoTo 0
      On Error Resume Next
      For Each xVal In inputArray
      myColl.Add Item:=xVal, Key:=(CStr(xVal) & TypeName(xVal))
      Next xVal
      myColl.Remove "String"
      On Error GoTo 0
      ReDim outArray(1 To Application.Max(myColl.Count, Application.Caller.Cells.Count))
      For xVal = 1 To UBound(outArray)
      outArray(xVal) = vbNullString
      Next xVal
      For xVal = 1 To Application.Min(myColl.Count, Application.Caller.Cells.Count)
      outArray(xVal) = myColl(xVal)
      Next xVal
      If Application.Caller.Columns.Count = 1 Then
      Uniques = Application.Transpose(outArray)
      Else
      Uniques = outArray
      End If
      End Function

  • To post as a guest, your comment is unpublished.
    xxmrxsnowmanxx · 9 months ago
    Thanks for the code. I'm using the VBA code of this page. Is there a way to add a sorting code after the unique values are extracted so it sorts it automatically?
  • To post as a guest, your comment is unpublished.
    Michael · 1 years ago
    Regarding the formula version, could you explain in more detail what this portion is doing? *100+COLUMN($A:$C),7^8)),"R0C00") Specifically, what are the *100, 7^8, and "R0C000" doing? I'm understanding everything else, but I can't figure out what these are for.
  • To post as a guest, your comment is unpublished.
    Cody · 1 years ago
    i've adjusted to my sheet but am only returning the first value in the defined array... what am i missing?
    • To post as a guest, your comment is unpublished.
      skyyang · 1 years ago
      Hello, Cody,
      The above formula works well in my worksheet, could you give a screenshot of your data problem here?
      Thank you!
  • To post as a guest, your comment is unpublished.
    Fernando · 3 years ago
    Muchas gracias por la macro!!! me fue muy util
  • To post as a guest, your comment is unpublished.
    Hannah Li · 3 years ago
    This array formula is CORRECT. Data in columns A to C, first result formula in cell D2... This one is different from other array formula that the later is copy formula down and Ctrl+Shift+Enter all formula. However, this array formula should be done the Ctrl+Shift+Enter in first cell and copy down.
  • To post as a guest, your comment is unpublished.
    mingji · 3 years ago
    does anyone know, for the output, how to make it into several lines but not into one line ? (currently one line result is achieved by worksheetfunction.transpose, but what i want to achieve (as result) is that when select for 3 columns, the returned result are also 3 columns, instead one
  • To post as a guest, your comment is unpublished.
    stephan · 3 years ago
    Can you please submit the correct formula... the VBA function works just fine.
    Just for my project, I rather use the correct formula.


    Thanks
  • To post as a guest, your comment is unpublished.
    cena.30000@gmail.com · 4 years ago
    I love

    Extract Unique Values From Multiple Columns With Pivot Table
  • To post as a guest, your comment is unpublished.
    reza · 4 years ago
    hi
    i have three unequal columns and want to extract unique cells of first column. how can i do it??

    thanks in advance
  • To post as a guest, your comment is unpublished.
    reza · 4 years ago
    hi
    i want to extract unique cells from first column when i compare it with another columns (i have three unequal columns), how can i do it?
  • To post as a guest, your comment is unpublished.
    VRRNOE · 4 years ago
    =INDIRECT(TEXT(MIN(IF(($A$2:$C$9"")*(COUNTIF($E$1:E1,$A$2:$C$9)=0),ROW($2:$9)*100+COLUMN($A:$C),7^8)),"R0C00"),)&""
    It doesn't work
  • To post as a guest, your comment is unpublished.
    Stewart · 5 years ago
    Hey! Does anyone know why this formula seems to lead to an error after row 87? Like, it works perfectly and then at a certain point it just returns me errors for every row.. which is the worst! Because I'm so close to exactly what I need here...
  • To post as a guest, your comment is unpublished.
    Claire · 5 years ago
    I am using your VBA code, but do not want the box to pop up. In stead I want to define exactly what cell range to use every time and exactly what box to put the output in. The input range and output would be on two different sheets. how do I update the VBA to do so? Thank you!!
  • To post as a guest, your comment is unpublished.
    Anders · 6 years ago
    Thank you!!! I have been spending hours trying to do this and to figure out what happened to the Pivot Wizard (other article).
  • To post as a guest, your comment is unpublished.
    Visitor · 7 years ago
    Is this formula complete?

    =INDIRECT(TEXT(MIN(IF(($A$2:$C$9"")*(COUNTIF($E$1:E1,$A$2:$C$9)=0),ROW($2:$9)*100+COLUMN($A:$C),7^8)),"R0C00"),)&"",
    • To post as a guest, your comment is unpublished.
      gg · 4 years ago
      what a waste of time..... formula does NOT work
    • To post as a guest, your comment is unpublished.
      RaakaReiska · 7 years ago
      This is not yet fixed :sad: