Appendix Thread 2. ( Codes for other Threads, HTML Tables, etc.)

[DocAElstein]

Further Examples using the routines from the previous post
The sorted array is displayed in the spreadsheet along side the original range used as test data for the inputted array. ( The yellow highlighted range is that produced by the array sort routine, Sub SimpleArraySort() , and the green highlighted range is that produced by the VBA Range.Sort method routine, Sub Range_Sort()

_____ ( Using Excel 2007 32 bit )

Row\Col	A	B	C	D	E	F	G
1
2	c	WasB2	32	WasB8	6	WasB7
3	AB	WasB3	6	WasB7	32	WasB8
4	Aa	WasB4	A	WasB5	A	WasB5
5	A	WasB5	Aa	WasB4	Aa	WasB4
6	C	WasB6	AB	WasB3	AB	WasB3
7	6	WasB7	bcde	WasB9	bcde	WasB9
8	32	WasB8	C	WasB6	c	WasB2
9	bcde	WasB9	c	WasB2	C	WasB6
10

Worksheet: Sorting

To reverse this to descending so that things “get smaller as you go down the rows”, you simply need to change
the > to a < in the array routine
and
the Order1:=xlAscending to Order1:=xlDescending in the VBA Range.Sort routine
_____ ( Using Excel 2007 32 bit )

Row\Col	A	B	C	D	E	F	G
1
2	c	WasB2	c	WasB2	c	WasB2
3	AB	WasB3	C	WasB6	C	WasB6
4	Aa	WasB4	bcde	WasB9	bcde	WasB9
5	A	WasB5	AB	WasB3	AB	WasB3
6	C	WasB6	Aa	WasB4	Aa	WasB4
7	6	WasB7	A	WasB5	A	WasB5
8	32	WasB8	6	WasB7	32	WasB8
9	bcde	WasB9	32	WasB8	6	WasB7
10

Worksheet: Sorting


I intended developing the solution into a function, so as a start to this, the routine will be modified to take an Optional argument of 0 or 1 , with the default of 0 being the case for an Ascending list. I am not being particularly efficient with the coding, and will duplicate sections.

A full routine is posted in the next post