Taulukon sarakkeessa E on vuosilukuja.
Nyt pitäissi saada samat vuosiluvut laskettua, eli kuinka monta kertaa sarakkeessa E esiintyy kukin vuosiluku.
millainen onkaan kaava.
Käytännössä menis jotenkin näin.
Jos Luku on 1980 lisää summaan 1,
Mutta juu kun tosiaan pitäisi saada nämä kaikki 1980 vuosiluvut poimittua 150 muun vuosiluvun joukosat, ja vuosilukuja tulee lisää aina satunnaisesti.
ja nhyt pitää tietää montako näitä 1980 vuosia taulukossa kaikkiaan on
ja sama pätee jokaiseen muuhunkin vuosilukuun.
erilaisia on periaatteessa no tällä hetkellä välille 1994 - 1956
ja tuossahan mulla on nyt yhteenvedossa loketoituna jokainen vuosi erikseen.
Jonnekka syöttäisin tuon kaavan.
Näistä teen sitten madiaanin, mutta se on hanllussa.
JOS sama luku, lisää 1
3
443
Vastaukset
vanhoja yhdistäen ;-)
moduuliin...
Sub lajittele()
Dim solu As Range
Dim vika As Long
Dim i As Long
Dim EiTupla As New Collection
Dim Löydetty As Range
On Error GoTo virhe
Vika = Range("E65536").End(xlUp).Row
For Each solu In Range("E1:E" & Vika)
If Not IsEmpty(solu) Then
EiTupla.Add solu.Value, CStr(solu.Value)
End If
Next solu
Range("F:G") = ""
Range("F1").Select
For i = 1 To EiTupla.Count
ActiveCell = EiTupla(i)
ActiveCell.Offset(1, 0).Select
Next
Columns("F:F").Sort Key1:=Range("F1"), Order1:=xlAscending
Vika = Range("F65536").End(xlUp).Row
For Each solu In Range("F1:F" & Vika)
Set Löydetty = EtsiJaSiirrä(solu)
solu.Offset(0, 1) = Löydetty.Cells.Count
Next
Exit Sub
virhe:
Resume Next
End Sub
Function EtsiJaSiirrä(Hakuehto As Variant) As Range
Dim solu As Range
Dim EkaOsoite As String
Worksheets("Sheet1").Activate
With Range("E:E")
Set solu = .Find( _
What:=Hakuehto, _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False, _
SearchFormat:=False)
If Not solu Is Nothing Then
Set EtsiJaSiirrä = solu
EkaOsoite = solu.Address
Do
Set EtsiJaSiirrä = Union(EtsiJaSiirrä, solu)
Set solu = .FindNext(solu)
Loop While Not solu Is Nothing And solu.Address EkaOsoite
End If
End With
End Function
Keep Excelling
@Kunde- muuan mies
Kunde esittää erinomaisia VBA-pätkiä (kiitos niiitä!), mutta minusta tämä olisi Pivot taulukolla ratkaistava ongelma. Mikäli oikein käsitin, olisi vain saatava tietää eri vuosilukujen lukumäärät ja ne saa helpoimmin Pivotilla.
Jos pelkillä kaavoilla mennään, siin silloin jokaiselle vuosiluvulle olisi varattava oma solu, johon =LASKE.JOS(E:E);1980) tyyppinen kaava.- mää itte
=LASKE.JOS(E:E);1980)
ja vielä ekan E:n eteen 1 kpl sulku.
jeps tää on juurikin loistava
olipas simppeli Kun sen osaa) ;)
KIITOS.
nyt oon tähän asti laskenut jokaisen käsipelillä, ja alka aolemaan hankalaa ja ei välttämättä 500 joukosta kaikkea saa ihan oikein.
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
- 1592366
Kun viimeksi kohtasitte/näitte
Mitä olitte tekemässä? Millainen ympäristö oli? Löydetään toisemme...1361895Olet kyllä vaarallisen himokas
Luova, kaunis, määrätietoinen, pervo, mielenkiintoinen, kovanaama, naisellinen ja erikoinen.1061725- 741364
Anna vielä vähän vihreää valoa
Teen sitten siirtoni, nainen. Tiedän, että olet jo varovaisesti yrittänyt lähestyä, mutta siitä on jo aikaa. Jos tunnet211337- 721322
- 2281086
- 71874
Miksi homous puhuttaa konservatiiveja vuodesta toiseen?
Kysymykseen on vastattukin Kansanlähetyksen osalta: "Miksi sukupuoleen ja seksuaalisuuteen liittyvät asiat ovat konserv213830- 46800