test post in support of this forum question
http://www.eileenslounge.com/viewtop...245488#p245485


Yellow is effectively the array fed to a sort routine.
Green is how that array looks like after running the sort routine

_____ Workbook: YassBub.xlsm ( Using Excel 2007 32 bit )
2
10
8
2
16
8
1
10
15
2
8
1
10
15
2
19
6
3
14
13
15
15
10
6
13
13
7
6
15
16
2
17
2
8
3
5
9
11
12
8
15
12
15
4
5
2
10
8
2
16
13
13
6
4
11
15
12
15
4
5
19
6
3
14
13
13
13
6
4
11
5
9
11
12
8
15
15
10
6
13
14
18
18
16
20
2
17
2
8
3
13
7
6
15
16
14
18
18
16
20
Worksheet: Sheet1


_____ Workbook: YassBub.xlsm ( Using Excel 2007 32 bit )
14
2
2.9986
17
1
1.9983
15
6
6.9985
19
1
1.9981
16
3
3.9984
20
1
1.998
17
1
1.9983
14
2
2.9986
18
2
2.9982
18
2
2.9982
19
1
1.9981
16
3
3.9984
20
1
1.998
15
6
6.9985
Worksheet: Sheet1

_____ Workbook: YassBub.xlsm ( Using Excel 2007 32 bit )
15
4
5
15
4
5
6
4
11
6
4
11
3
14
13
3
14
13
Worksheet: Sheet1



Test calling routine : ( called routines in next 2 posts )
Code:
Sub TestsStringArray() ' http://www.eileenslounge.com/viewtopic.php?f=30&t=31691&p=245488#p245488
Dim arrSel() As Variant
 Let arrSel() = Selection.Value
Dim DumDom() As String: ReDim DumDom(0 To UBound(arrSel(), 1) - 1, 0 To UBound(arrSel(), 2) - 1)
Dim rCnt As Long, cCnt As Long
    For rCnt = 0 To UBound(arrSel(), 1) - 1
        For cCnt = 0 To UBound(arrSel(), 2) - 1
         Let DumDom(rCnt, cCnt) = CStr(arrSel(rCnt + 1, cCnt + 1))
        Next cCnt
    Next rCnt
 Call subSort2DArrayMultiElements(DumDom(), "1 2")
' Paste reorganised Array next to the selection
Dim OutRange As Range: Set OutRange = Selection.Offset(0, Selection.Columns.Count)
 Let OutRange.Value = DumDom()
End Sub
_____ Workbook: YassBub.xlsm ( Using Excel 2007 32 bit )
Sub
sub
d
Sub
func
h
Sub
func
h
Pub
pub
a
sub
pub
x
func
pub
m
func
pub
m
Pub
pub
p
func
pub
r
func
pub
r
Pub
pub
a
sub
pub
x
Pub
pub
p
Sub
sub
d
Worksheet: Sheet1