Sorteeren en rangschikken

[intensityrigging]

Hallo gebruikers.
Ik heb waschijnlijk een makkelijke vraag.
Maar ik weet niet waarop ik moet zoeken.
Ik wil in excel een lijst met X en Y posities sorteren.
En dan de waardes van de X positie die overeen komen met de Y positie naast elkaar hebben.
Ik maak de lijsten in mijn CAD programma.
Maar daar staan ze allemaal onder elkaar.
Kan iemand mij uitleggen hoe ik het voor elkaar kan krijgen?

Mvg. Martijn

 

[rmk75]

Met het filter uit het tabblad gegevens misschien?

 

[sylvester-ponte]

Martijn, wat moet er met de eventuele dubbelen gebeuren?
en is vba een optie ?

 

[snb]

Sub M_snb()
    sn = Sheet1.Cells(1).CurrentRegion
    
    ReDim sp((UBound(sn) - 1) \ 2, 5)
    
    For j = 2 To UBound(sn) Step 2
      For jj = 1 To 5
        If j = 2 Then sp(j \ 2 - 1, jj - 1) = Mid("XXYXX", jj, 1)
        sp(j \ 2, jj - 1) = Choose(jj, sn(j + 1, 1), sn(j, 1), sn(j, 2), sn(j + 1, 3), sn(j, 3))
      Next
    Next
    
    Cells(1, 13).Resize(UBound(sp) + 1, 5) = sp
End Sub

of

Sub M_snb()
  sn = Sheet1.Cells(1).CurrentRegion
    
  With CreateObject("scripting.dictionary")
    For j = 2 To UBound(sn)
      st = Array(, sn(j, 1), sn(j, 2), , sn(j, 3))
      If .exists(sn(j, 2) & "_") Then
        st = .Item(sn(j, 2) & "_")
        st(0) = sn(j, 1)
        st(3) = sn(j, 3)
      End If
      .Item(sn(j, 2) & "_") = st
    Next
    
    Cells(1, 13).Resize(.Count, 5) = Application.Index(.items, 0, 0)
  End With
End Sub