Just testing. Testing some sort routines. No reply needed

[DocAElstein]

Array Sort

_____ Workbook: ProAktuellex8600x2SortTime.xlsm ( Using Excel 2007 32 bit )

Row\Col	H	I	J	K	W	X
824	351		0.1
825	342		0.1			0
826	342		0
827	341		0.1			0
828	339		0.1			0
829	338		1			0
830	338		1			0
831	338		0.1			0.1
832	338		0.1			0.1
833	338		0.1			0
834	338		0.1			0
835	337		0.5			0.1
836	337		0.1			0.1
837	337		0.1			0
838	337		0			0.1
839	336		0.2			0
840	335		0.1			0
841	334		0			0.1
842	333		0.2			0
843	332		0.2			0
844	332		0.1			0.1
845	332		0.1			0
846	331		0.1			0.1
847	331		0.1			0.1
848	329		0.2			0
849	329		0.1			0
850	326		0.3			0
851	326		0.3			0
852	326		0.2			0
853	326		0.1			0
854	324		0.1			0.1
855	324		0.1			0
856	319		0.2			0.1
857	318		0.5			0.1
858	316		0.2			0.1
859	279		0.5			0.1
860	232		0.1			0
861	230		0.2			0
862	215		0			0

Worksheet: Sheet1

Time 1.25secs

Immediate Window output

 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 
First procedure Call
 Running Copy 1 of routine.
  Sorted rows  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42  based on values in column 8
   Checking now for Dups in that last sorted list

Found dups in last list column 8,  2 3  , so now Rec Call 1
 Running Copy 2 of routine.
  Sorted rows  2 3  based on values in column 10
   Checking now for Dups in that last sorted list

Found dups in last list column 8,  6 7 8 9 10 11  , so now Rec Call 1
 Running Copy 2 of routine.
  Sorted rows  6 7 8 9 10 11  based on values in column 10
   Checking now for Dups in that last sorted list

Found dups in last list column 10,  6 7  , so now Rec Call 1
 Running Copy 3 of routine.
  Sorted rows  6 7  based on values in column 24
   Checking now for Dups in that last sorted list

Found dups in last list column 8,  12 13 14 15  , so now Rec Call 1
 Running Copy 2 of routine.
  Sorted rows  12 13 14 15  based on values in column 10
   Checking now for Dups in that last sorted list

Found dups in last list column 10,  13 14  , so now Rec Call 1
 Running Copy 3 of routine.
  Sorted rows  13 14  based on values in column 24
   Checking now for Dups in that last sorted list

Found dups in last list column 8,  20 21 22  , so now Rec Call 1
 Running Copy 2 of routine.
  Sorted rows  20 21 22  based on values in column 10
   Checking now for Dups in that last sorted list

Found dups in last list column 8,  23 24  , so now Rec Call 1
 Running Copy 2 of routine.
  Sorted rows  23 24  based on values in column 10
   Checking now for Dups in that last sorted list

Found dups in last list column 8,  25 26  , so now Rec Call 1
 Running Copy 2 of routine.
  Sorted rows  25 26  based on values in column 10
   Checking now for Dups in that last sorted list

Found dups in last list column 8,  27 28 29 30  , so now Rec Call 1
 Running Copy 2 of routine.
  Sorted rows  27 28 29 30  based on values in column 10
   Checking now for Dups in that last sorted list

Found dups in last list column 10,  27 28  , so now Rec Call 1
 Running Copy 3 of routine.
  Sorted rows  27 28  based on values in column 24
   Checking now for Dups in that last sorted list

Found dups in last list column 8,  31 32  , so now Rec Call 1
 Running Copy 2 of routine.
  Sorted rows  31 32  based on values in column 10
   Checking now for Dups in that last sorted list

Found dups in last list, so now Rec Call 2 (Dups at list end case)
 Running Copy 2 of routine.
  Sorted rows  40 41 42  based on values in column 10
   Checking now for Dups in that last sorted list

Found dups in last list, so now Rec Call 2 (Dups at list end case)
 Running Copy 3 of routine.
  Sorted rows  40 41 42  based on values in column 24
   Checking now for Dups in that last sorted list

Found dups in last list, so now Rec Call 2 (Dups at list end case)
You need more than 3 keys to complete sort

---

See further tests from here
http://www.excelfox.com/forum/showth...ll=1#post11055