View Full Version : [SOLVED] Sorting Columns into Tables

03-08-2017, 07:25 AM
Hi there.

I'm sending myself loopy with loops!

What is the best way to get from this
18575 to this 18576?

Any help would be much appreciated.

PS There are 16 teams with up to 14 players per team!


Paul Ked

03-08-2017, 09:25 AM

I've managed to extract the team names with

Set d = CreateObject("scripting.dictionary")
For Each c In Range("AD:AD")
tmp = Trim(c.Value)
If Len(tmp) > 0 Then d(tmp) = d(tmp) + 1
Next c
i = 0
For Each k In d.Keys
tm(i) = k
i = i + 1
Next k

But it is very slow.

Still struggling on the rest of it!

03-09-2017, 05:05 AM
I sorted it, kind of! I used a separate loop for each team... Very messy but successful :devil2:

Thanks to anyone who looked.