opdeling af store tal

Hvis jeg må foreslå at du skriver alle tallene i cellerne A1:A167 er der en ret let måde at tælle det op på.
I celle B1 skrives =MID($A1;COLUMN()-1;1)
Eller på dansk =MIDT($A1;KOLONNE()-1;1).
Formelen kopieres til alle cellerne B1:F167
Og så skal der blot laves en sammentælling
I G1:G10 skrives tallene 0 til 9 og i H1 skrives =COUNTIF(B:F;G1)
eller på dansk =TÆL.HVIS(B:F;G1). Formelen kopieres til H1:H10

her er en funktion til 5 sifrede numre

Public Function CountNumbers(Start As Integer, Slut As Integer) As Variant
    Dim Antal(9), I As Integer, X As Integer
    For I = Start To Slut
        For X = 1 To 5
            Antal(Mid(I, X, 1)) = Antal(Mid(I, X, 1)) + 1
        Next
    Next
    CountNumbers = Antal
End Function

Marker 10 celler til højre og skriv
=countnumbers(A1;A2), tryk så CTRL+SHIFT+ENTER

så den kommer til at se sådan ud
{=countnumbers(A1;A2)}

Første celle er 0 anden 1 tal tredie 2 tal o.s.v.

Tak til Jens48, meget "enkelt" og lige til og den virker

Selvfølgelig skal jens48, have sine point
Men Kabbak jeg ville også gerne have din til at fungere men kan ikke få makroen til at virke.

Du får et svar