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

205

    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. YLE Äänekosken kaupunginjohtaja saa ankaraa arvostelua

      Kaupungin johtaja saa ankaraa kritiikkiä äkkiväärästä henkilöstöjohtamisestaan. Uusin häirintäilmoitus päivätty 15 kesä
      Äänekoski
      74
      1359
    2. Euroopan lämpöennätys, 48,8, astetta, on mitattu Italian Sisiliassa

      Joko hitaampikin ymmärtää. Se on aivan liikaa. Ilmastonmuutos on totta Euroopassakin.
      Maailman menoa
      243
      1249
    3. Martina lähdössä Ibizalle

      Eikä Eskokaan tiennyt matkasta. Nyt ollaan jännän äärellä.
      Kotimaiset julkkisjuorut
      151
      1061
    4. Asiakas iski kaupassa varastelua tehneen kanveesiin.

      https://www.iltalehti.fi/kotimaa/a/33a85463-e4d5-45ed-8014-db51fe8079ec Oikein. Näin sitä pitää. Kyllä kaupoissa valtava
      Maailman menoa
      254
      1032
    5. Avustikset peruttu.

      Aettokosken ampuraan rahat otettu poekkeen valtiolle.
      Suomussalmi
      51
      755
    6. 64
      714
    7. Jos ei tiedä mitä toisesta haluaa

      Älä missään nimessä anna mitään merkkejä kiinnostuksesta. Ole haluamatta mitään. Täytyy ajatella toistakin. Ei kukaan em
      Ikävä
      62
      707
    8. Miksi mies tuntee näin?

      Eli olen mies ja ihastuin naiseen. Tykkään hänestä ja koskaan hän ei ole ollut minulle ilkeä. Silti ajoittain tunnen kui
      Ikävä
      39
      688
    9. Se nainen näyttää hyvältä vaikka painaisi 150kg

      parempi vaan jos on vähän muhkeammassa kunnossa 🤤
      Ikävä
      44
      651
    10. Määpä tiijän että rakastat

      Minua nimittäin. Samoin hei! Olet mun vastakappaleeni.
      Ikävä
      30
      607
    Aihe