Hjælp til Excel, sortering af data + konvertering til binært

en makro:

Når du højreklikker på fanen af et ark og vælg vis programkode
Kan du i venstre side se dine arknavne.

Oppe i menulinien vælger du
Insert > module

Nu kan du se ovre under arkene til venstre står Module1.

Se nu er Module1 makeret med grå baggrund, det er her den koden skal være

***** kode

Sub SorteringOgBin()
Dim Temp() As Variant, RankArray As Variant, N As Long, i As Integer, j As Integer
Dim swap As Boolean, Col As Integer, T As Integer
RankArray = Selection ' makeringen på regnearket
N = UBound(RankArray)
Col = Selection.Columns.Count
ReDim Temp(Col)
swap = True
If Col > 1 Then
SortKolonne = 1
A = Val(SortKolonne)
Else
A = 1
End If
' sortering
Do While swap
  swap = False
  For i = 1 To N - 1
      For j = i To N
        If RankArray(i, A) > RankArray(j, A) Then
          For T = 1 To Col
            Temp(T) = RankArray(i, T)
            RankArray(i, T) = RankArray(j, T)
            RankArray(j, T) = Temp(T)
          Next
            swap = True
        End If
    Next
  Next
Loop
' bin 0 og 1
  For i = 1 To N
      For T = 2 To Col
            If RankArray(i, T) > 0 Then
                RankArray(i, T) = 1
              Else
                RankArray(i, T) = 0
            End If
    Next
  Next
Worksheets("ark2").Activate ' arket det skal over i
Range(Cells(1, 1), Cells(N, Col)) = RankArray
End Sub


*** kode slut

Hvis jeg er dig vil jeg lade den sætte resultatet, over i et andet ark,

Her i koden gør den det til Ark2 , så ret ark2 til det ark du vil have det over i.

Du skal makere alle data inden koden køres

Hej Kabbak.
Jeg har lige prøvet koden, men der må vist være en fejl for den laver det kun om til binært uden at sortere først? Håber at det kan løses.

Jeg misforstod din sortering, men det kan så gøres med en formel i stedet.

Kopier den første kolonne over i et andet ark, i A kolonnen.

sæt denne formel ind i celle B1

= TÆL.HVIS(Ark1!B:B;$A1)

Ret Ark1 i formlen, til navnet på arket, som dine data er i.

Træk formlen til venstre over lige så mange kolonner som der er data i.
Træk derefter formlen til nedad lige så mange rækker som der er data i.

Træk formlen til højre over lige så mange kolonner som der er data i.

selvfølgelig

Super. Nu virker det tak. smider du lige et svar!
Men det virker kun hvis alle tal står i øverste række, så der er ikke plads til en overskrift i hver kolonne, ellers bliver det hele en forskudt, kan man gøre formlen mere fleksibel eller må jeg bare sørge for at de altid står overst.
Tak

Det virker selv om du har overskrifter begge steder, så ser formlen sådan ud i B2:
= TÆL.HVIS(Ark1!B:B;$A2)