PDA

View Full Version : [SOLVED] Sorting Columns into Tables



paulked
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!

Thanks

Paul Ked

paulked
03-08-2017, 09:25 AM
Update:

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!

paulked
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.