Ordenar várias colunas individualmente

[camilojr]

Tenho uma planilha com mais de 1000 colunas.

Preciso ordenar cada uma em ordem crescente, individualmente (o botão classificar não me ajuda).

Procurei algo na net usando o VBA, mas ainda não encontrei. Alguém pode me ajudar?

[zinhovba]

Boa noite!!

Tente

Sub ClassifcarColunas()
Dim ColCtr
Dim LastCol
Dim Lastrow
LastCol = Cells(1, Columns.Count).End(xlToLeft).Column

For ColCtr = 1 To LastCol
    Lastrow = Cells(Rows.Count, ColCtr).End(xlUp).Row
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Cells(1, ColCtr), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range(Cells(1, ColCtr), Cells(Lastrow, ColCtr))
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
Next ColCtr
End Sub