Organizing Data with many categories

Hello - I hope someone can help.

I have a large amount of data. The format is simple. I have a name column, a score column, a category column. This is just an example.

All i want to do is put each category (and corresponding score and name) into new columns. That's it. Please see attachment of exactly what I am looking for.

Thank you very much!

Attachment 12313

Run the A2Z macro.

Thanks ranman. When I change the category to a string of letters - a word- rather than a letter, it doesn't seem to work. Also, note that my category names are not in alphabetical order. Lastly, is it possible to a put a blank column after "Name Score Category" before the macro moves on to the next category. Thanks.

nope, the loop is based on letters. Youd have to change the FOR 65 TO 90 loop to allow strings.

try this:

Code:

---

Sub blah()
Dim Uniques As New Collection
If Not ActiveSheet.AutoFilter Is Nothing Then ActiveSheet.AutoFilter.Range.AutoFilter
Set SourceData = Range("A1").CurrentRegion
SourceData.AutoFilter
On Error Resume Next
For Each cll In SourceData.Columns(3).Offset(1).Resize(SourceData.Rows.Count - 1).Cells
  Uniques.Add cll.Value, cll.Value
Next cll
On Error GoTo here
With SourceData
  DestColm = 6
  Application.ScreenUpdating = False
  For Each itm In Uniques
    .AutoFilter Field:=3, Criteria1:=itm
    SourceData.Copy Cells(1, DestColm)
    DestColm = DestColm + 3
  Next itm
End With
SourceData.AutoFilter
here:
Application.ScreenUpdating = True
End Sub

---

The above code is in the attached. On sheet2 there is a button, click it to run the above code to satisfy yourself that it works then adapt it for your needs.