Thread: [Solved] Macro to sort columns
View Single Post
 
Old 08-17-2016, 07:39 AM
c991257 c991257 is offline Windows 10 Office 2016
Advanced Beginner
  
Join Date: Mar 2014
Location: Zambia
Posts: 61
c991257 is on a distinguished road
Default
This will do it, but it is a disgusting Macro.
Start in Cell A1. You'll need to change the book1 part to suit your spreadsheet.
The CrapMacro() runs the TerribleMacro() 400 times.

Sub TerribleMacro()
'
'
ActiveCell.Range("A1:A16").Select
ActiveWorkbook.Worksheets("Sheet1").Sort.SortField s.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortField s.Add Key:=ActiveCell, _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").Sort
.SetRange ActiveCell.Range("A1:A16")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveCell.Offset(0, 1).Range("A1").Select
End Sub

Sub CrapMacro()
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
End Sub
Reply With Quote