TOP10 Duplicates

TOP10_Excel

Onko vinkkiä miten kannattaisi lähteä rakentamaan sellaista Exceliä joka hakee alla olevasta listasta kaksoiskappaleet TOP järjestykseen ja viereen määrät, onko ainoa keino PIVOT?


Excel:
aa
sda
aa
aa
gg
hjj
sda

Tulos:
aa 3
sda 2
gg 1
hij 1
sda 1

3

226

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • subtotals
    • näinminä

      Jos tämä on vain ainutkertainen tapahtuma niin helpoiten käy että kopioit tämän alkuperäisen listan ja liität sen johonkin viereiseen sarakkeeseen ja valitset sitten Tiedot-välilehden "Poista kaksoiskappaleet". Kirjoita ensimmäisen kohdalle kaava (jos tuo alkup. olisi vaikka A-sarakkeella)
      =LASKE.A(A:A) ja kopioi kaava kaikkiin. Lajittele arvot sitten nousevaan järjestykseen.

    • Kundepuu

      Option Explicit
      Dim cl As Range
      Dim cainoa As Collection
      Dim i As Long
      Dim uList() As Variant
      Dim ws As Worksheet
      Dim TäytäLista As Variant

      Sub Uniikit()
      On Error Resume Next
      Set cainoa = New Collection
      'nyt A-sarake muuta tarvittaessa
      For Each cl In Range("A1:A7")
      If cl.Value <> "" Then
      cainoa.Add cl.Value, CStr(cl.Value)
      End If
      Next cl
      TäytäLista = ""
      If cainoa.Count > 0 Then
      ReDim uList(1 To cainoa.Count)
      For i = 1 To cainoa.Count
      uList(i) = cainoa(i)
      Next i
      TäytäLista = Application.WorksheetFunction.Transpose(uList)
      End If
      'nyt C- ja D-sarakkeesen tiedot, muuta sopivaksi
      Range("C:C") = ""
      Range("C1").Resize(cainoa.Count) = TäytäLista
      For Each cl In Range("C1").Resize(cainoa.Count)
      cl.Offset(0, 1) = Application.WorksheetFunction.CountIf(Range("A1:A7"), cl)
      Next
      Range("C1").Select
      End Sub

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Jens Ihlen (ex Kukka) poika todistaa oikeudessa

      10:49 "Välit ovat olemattomat" Minkälainen isäsi ja sinun välinen suhde on tällä hetkellä? "Minulla ei ole minkäännäkö
      Maailman menoa
      260
      9740
    2. K-kaupassa on mukava käydä, kun ei tarvitse katsella köyhiä

      vasemmistolaisia, joista monet myös varastavat. Mielellään maksaa vähän enemmän tuotteista K-kaupassa, jotka ovat paljon
      Maailman menoa
      178
      5493
    3. Suomeen ei kuulu ihmiset jotka ei halua kätellä toisia ihmisiä, koska tämä on vääräuskoinen

      Nainen joka ei halunnut kätellä Stubbia on selvästi ääripään muslimi, eli sitä sakkia josta niitä ongelmia koituu. Ulos
      Maailman menoa
      156
      5109
    4. PS:n Purra teki -JÄTTI-VELAT

      * * PS:n Purra teki -JÄTTI-VELAT - ! ja jätti MaksuHuolet -Kansan Maksettavaksi -! *
      Maailman menoa
      69
      4780
    5. Ootko sä nainen suuttunut

      jostain? Harmi jos tullut väärinkäsityksiä.
      Ikävä
      190
      2304
    6. Nainen, sanotaan että totuus tekee kipeää

      Ehkä mutta se voi olla myös se kaikkein kamalin asia kohdata. Kuplassa on turvallista, kun tietää vähemmän on helpompi.
      Ikävä
      12
      2209
    7. Valtio lopettaa pienituloisten perheiden kylpylälomien tukemisen

      Pienituloiset suomalaiset ovat voineet vuosikymmenten ajan hakea tuettuja lomia terveydellisin, sosiaalisin ja taloudell
      Maailman menoa
      300
      1819
    8. Minkälainen auto

      Kaivatullasi on? Väri/Merkki? :)
      Ikävä
      90
      1537
    9. Menen nyt koisimaan

      Ja en ehkä palaa tänne. Asia on nyt loppuunkäsitelty ja totuus tuli ilmi
      Ikävä
      21
      1461
    10. Kuinka rakastunut olet

      Ja kehen?
      Ikävä
      41
      1103
    Aihe