简化跨多个选项卡并在不同列上sorting的loggingmacros
我已经录制了一个macros，它可以自定义sorting八个工作表，并按四列sorting。 我有一个工作簿共有九个工作表。 打开工作簿后，需要对前八个工作表进行sorting。 第九个工作表是条件格式和错误检查公式的validation页面。
我希望VBA比八个工作表中logging的macros更简单。 每个工作表需要按B，C，D和E列进行sorting。所有数据都从第5行开始，但不会在工作表中的同一行上结束。 我需要sorting整个工作表，而不仅仅是一个范围。
有没有比创build所有八个工作表的macros更简单的VBA？
我确定一个'For'循环可能会关注通过工作表循环，而xldown将会find每个工作表中的所有数据，但是我真的很困难如何使用需要执行的sorting来简化它。 logging的macros的VBA是：
Sub Auto_Open() Sort_All Macro Range("A5").Select Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select ActiveWorkbook.Worksheets("0809 Vehicles").Sort.SortFields.Clear ActiveWorkbook.Worksheets("0809 Vehicles").Sort.SortFields.Add Key:=Range( _ "B5:B217"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal ActiveWorkbook.Worksheets("0809 Vehicles").Sort.SortFields.Add Key:=Range( _ "C5:C217"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal ActiveWorkbook.Worksheets("0809 Vehicles").Sort.SortFields.Add Key:=Range( _ "D5:D217"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal ActiveWorkbook.Worksheets("0809 Vehicles").Sort.SortFields.Add Key:=Range( _ "E5:E217"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("0809 Vehicles").Sort .SetRange Range("A5:Q217") .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Sheets("0910 Vehicles ").Select Range("A5").Select Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select ActiveWorkbook.Worksheets("0910 Vehicles ").Sort.SortFields.Clear ActiveWorkbook.Worksheets("0910 Vehicles ").Sort.SortFields.Add Key:=Range( _ "B5:B217"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal ActiveWorkbook.Worksheets("0910 Vehicles ").Sort.SortFields.Add Key:=Range( _ "C5:C217"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal ActiveWorkbook.Worksheets("0910 Vehicles ").Sort.SortFields.Add Key:=Range( _ "D5:D217"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal ActiveWorkbook.Worksheets("0910 Vehicles ").Sort.SortFields.Add Key:=Range( _ "E5:E217"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("0910 Vehicles ").Sort .SetRange Range("A5:Q217") .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Sheets("1011 Vehicles ").Select Range("A5").Select Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select ActiveWorkbook.Worksheets("1011 Vehicles ").Sort.SortFields.Clear ActiveWorkbook.Worksheets("1011 Vehicles ").Sort.SortFields.Add Key:=Range( _ "B5:B215"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal ActiveWorkbook.Worksheets("1011 Vehicles ").Sort.SortFields.Add Key:=Range( _ "C5:C215"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal ActiveWorkbook.Worksheets("1011 Vehicles ").Sort.SortFields.Add Key:=Range( _ "D5:D215"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal ActiveWorkbook.Worksheets("1011 Vehicles ").Sort.SortFields.Add Key:=Range( _ "E5:E215"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("1011 Vehicles ").Sort .SetRange Range("A5:S215") .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Sheets("11-12 Vehicles").Select Range("A5").Select Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select ActiveWindow.SmallScroll Down:=-234 ActiveWorkbook.Worksheets("11-12 Vehicles").Sort.SortFields.Clear ActiveWorkbook.Worksheets("11-12 Vehicles").Sort.SortFields.Add Key:=Range( _ "B5:B237"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal ActiveWorkbook.Worksheets("11-12 Vehicles").Sort.SortFields.Add Key:=Range( _ "C5:C237"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal ActiveWorkbook.Worksheets("11-12 Vehicles").Sort.SortFields.Add Key:=Range( _ "D5:D237"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal ActiveWorkbook.Worksheets("11-12 Vehicles").Sort.SortFields.Add Key:=Range( _ "E5:E237"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("11-12 Vehicles").Sort .SetRange Range("A5:R237") .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Sheets("12-13 Vehicles").Select Range("A5").Select Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select Range("A5:R259").Select ActiveWorkbook.Worksheets("12-13 Vehicles").Sort.SortFields.Clear ActiveWorkbook.Worksheets("12-13 Vehicles").Sort.SortFields.Add Key:=Range( _ "B5:B259"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal ActiveWorkbook.Worksheets("12-13 Vehicles").Sort.SortFields.Add Key:=Range( _ "C5:C259"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal ActiveWorkbook.Worksheets("12-13 Vehicles").Sort.SortFields.Add Key:=Range( _ "D5:D259"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal ActiveWorkbook.Worksheets("12-13 Vehicles").Sort.SortFields.Add Key:=Range( _ "E5:E259"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("12-13 Vehicles").Sort .SetRange Range("A5:R259") .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Sheets("13-14 Vehicles").Select Range("A5").Select Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select ActiveWorkbook.Worksheets("13-14 Vehicles").Sort.SortFields.Clear ActiveWorkbook.Worksheets("13-14 Vehicles").Sort.SortFields.Add Key:=Range( _ "B5:B245"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal ActiveWorkbook.Worksheets("13-14 Vehicles").Sort.SortFields.Add Key:=Range( _ "C5:C245"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal ActiveWorkbook.Worksheets("13-14 Vehicles").Sort.SortFields.Add Key:=Range( _ "D5:D245"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal ActiveWorkbook.Worksheets("13-14 Vehicles").Sort.SortFields.Add Key:=Range( _ "E5:E245"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("13-14 Vehicles").Sort .SetRange Range("A5:T245") .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Sheets("14-15 Vehicles").Select Range("A5").Select Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select ActiveWorkbook.Worksheets("14-15 Vehicles").Sort.SortFields.Clear ActiveWorkbook.Worksheets("14-15 Vehicles").Sort.SortFields.Add Key:=Range( _ "B5:B249"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal ActiveWorkbook.Worksheets("14-15 Vehicles").Sort.SortFields.Add Key:=Range( _ "C5:C249"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal ActiveWorkbook.Worksheets("14-15 Vehicles").Sort.SortFields.Add Key:=Range( _ "D5:D249"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal ActiveWorkbook.Worksheets("14-15 Vehicles").Sort.SortFields.Add Key:=Range( _ "E5:E249"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("14-15 Vehicles").Sort .SetRange Range("A5:R249") .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Sheets("15-16 Vehicles").Select Range("A5").Select Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select ActiveWorkbook.Worksheets("15-16 Vehicles").Sort.SortFields.Clear ActiveWorkbook.Worksheets("15-16 Vehicles").Sort.SortFields.Add Key:=Range( _ "B5:B234"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal ActiveWorkbook.Worksheets("15-16 Vehicles").Sort.SortFields.Add Key:=Range( _ "C5:C234"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal ActiveWorkbook.Worksheets("15-16 Vehicles").Sort.SortFields.Add Key:=Range( _ "D5:D234"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal ActiveWorkbook.Worksheets("15-16 Vehicles").Sort.SortFields.Add Key:=Range( _ "E5:E234"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("15-16 Vehicles").Sort .SetRange Range("A5:R234") .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub
logging的sorting代码通常不仅仅是一个细节。 把它砍到实际需要的东西当然可以删除大量无用的代码。
Sub Sort_All_Macro() Dim v As Long, wsARR As Variant Dim lr As Long 'make an array of the worksheet names 'some of the ws names seemed to have trailing spaces; the spaces should be removed wsARR = Array("0809 Vehicles", "0910 Vehicles", "1011 Vehicles", "11-12 Vehicles", _ "12-13 Vehicles", "13-14 Vehicles", "14-15 Vehicles", "15-16 Vehicles") 'from the first in the array to the last For v = LBound(wsARR) To UBound(wsARR) 'work on each in turn With Worksheets(wsARR(v)) 'get the last row in column Q lr = .Cells(Rows.Count, "Q").End(xlUp).Row 'work on A5 to the last row in Q With .Range(.Cells(5, 1), .Cells(lr, "Q")) 'sort on columns E first (can only sort on max 3 columns at a time this way .Cells.Sort Key1:=.Columns(5), Order1:=xlAscending, _ Orientation:=xlTopToBottom, Header:=xlYes '<~~ you should know if there is a header or not 'sort on columns B, C, D (finish off the sort) .Cells.Sort Key1:=.Columns(2), Order1:=xlAscending, _ Key2:=.Columns(3), Order2:=xlAscending, _ Key3:=.Columns(4), Order3:=xlAscending, _ Orientation:=xlTopToBottom, Header:=xlYes '<~~ you should know if there is a header or not End With End With Next v End Sub
这种sorting方法只能在三个关键列上工作（即没有key4参数）。 诀窍是先sorting第四个，然后sorting前三个。
使用With … End With语句依次引用每个工作表可以减less重复引用的数量。 Range变成.Range ， Cells变成.Cells ，注意它属于With ... End With引用的工作表。
请参阅如何避免使用Excel中的selectVBAmacros来获取更多的方法来摆脱依靠select和activate来实现您的目标。