How to sort data based on multiple columns

[Uumas]

I'll just give an example:

	A	B	C	D	E	F	G	H	I	J	K	L
1	1	a	8	o		1	a
2	8	b	10	p		8	b	8	o
3	11	c	11	q				10	p
4	14	d	13	r		11	c	11	q
5	16	e	14	s				13	r
6	23	f	19	t		14	d	14	s
7			23	u		16	e
8								19	t
9						23	f	23	u
10
11
12

<tbody>
</tbody>

I have data like in columns A-D. I'd like to sort them based on the values of columns A and C so it looks like columns F-I. How should I go about doing this? Thank you!

 

[MickG]

Try this for results starting "G1"

[COLOR="Navy"]Sub[/COLOR] MG13Oct28
[COLOR="Navy"]Dim[/COLOR] Rng [COLOR="Navy"]As[/COLOR] Range, Dn [COLOR="Navy"]As[/COLOR] Range, n [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long,[/COLOR] Dic [COLOR="Navy"]As[/COLOR] Object, Ray [COLOR="Navy"]As[/COLOR] Variant, Ac [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long[/COLOR]
[COLOR="Navy"]Dim[/COLOR] Q [COLOR="Navy"]As[/COLOR] Variant, nRay [COLOR="Navy"]As[/COLOR] Variant, c [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long[/COLOR]
Ray = Cells(1).CurrentRegion
[COLOR="Navy"]Set[/COLOR] Dic = CreateObject("scripting.dictionary")
 Dic.CompareMode = vbTextCompare
    [COLOR="Navy"]With[/COLOR] CreateObject("System.Collections.ArrayList")


[COLOR="Navy"]For[/COLOR] Ac = 1 To 3 [COLOR="Navy"]Step[/COLOR] 2
    [COLOR="Navy"]For[/COLOR] n = 1 To UBound(Ray, 1)
        [COLOR="Navy"]If[/COLOR] Not .Contains(Ray(n, Ac)) [COLOR="Navy"]Then[/COLOR] .Add Ray(n, Ac)
           [COLOR="Navy"]If[/COLOR] Not Dic.Exists(Ray(n, Ac)) [COLOR="Navy"]Then[/COLOR]
               ReDim TRay(1 To 3)
                TRay(Ac) = Ray(n, Ac + 1)
                
                Dic.Add Ray(n, Ac), TRay
           [COLOR="Navy"]Else[/COLOR]
                Q = Dic(Ray(n, Ac))
                Q(Ac) = Ray(n, Ac + 1)
                Dic(Ray(n, Ac)) = Q
          [COLOR="Navy"]End[/COLOR] If
    [COLOR="Navy"]Next[/COLOR] n
[COLOR="Navy"]Next[/COLOR] Ac
     .Sort: nRay = .toarray


ReDim nSort(1 To UBound(Ray, 1) * 2, 1 To UBound(Ray, 2))
[COLOR="Navy"]For[/COLOR] n = 1 To UBound(nRay)
    c = c + 1
    [COLOR="Navy"]If[/COLOR] Dic(nRay(n))(1) <> "" [COLOR="Navy"]Then[/COLOR]
        nSort(c, 1) = nRay(n)
        nSort(c, 2) = Dic(nRay(n))(1)
    [COLOR="Navy"]End[/COLOR] If
    [COLOR="Navy"]If[/COLOR] Dic(nRay(n))(3) <> "" [COLOR="Navy"]Then[/COLOR]
        nSort(c, 3) = nRay(n)
        nSort(c, 4) = Dic(nRay(n))(3)
    [COLOR="Navy"]End[/COLOR] If
[COLOR="Navy"]Next[/COLOR] n
[COLOR="Navy"]End[/COLOR] With


[COLOR="Navy"]With[/COLOR] Range("G1").Resize(c, UBound(Ray, 2))
    .Value = nSort
    .Borders.Weight = 2
    .HorizontalAlignment = xlCenter
[COLOR="Navy"]End[/COLOR] With

[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

Regards Mick