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
TOP10 Duplicates
3
205
Vastaukset
- subtotals
Voisiko lähteä ratkomaan subtotalilla?
https://www.extendoffice.com/documents/excel/4086-excel-sort-after-subtotal.html - 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
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ä741359Euroopan lämpöennätys, 48,8, astetta, on mitattu Italian Sisiliassa
Joko hitaampikin ymmärtää. Se on aivan liikaa. Ilmastonmuutos on totta Euroopassakin.2431249Martina lähdössä Ibizalle
Eikä Eskokaan tiennyt matkasta. Nyt ollaan jännän äärellä.1511061Asiakas iski kaupassa varastelua tehneen kanveesiin.
https://www.iltalehti.fi/kotimaa/a/33a85463-e4d5-45ed-8014-db51fe8079ec Oikein. Näin sitä pitää. Kyllä kaupoissa valtava2541032- 51755
- 64714
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 em62707Miksi 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 kui39688Se nainen näyttää hyvältä vaikka painaisi 150kg
parempi vaan jos on vähän muhkeammassa kunnossa 🤤44651- 30607