Horex
Advanced Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
vask
Вот только не вспомнил/придумал я, как автоматом перебирать колонки по три, только с листами получилось. Придется пока руками писать ячейки.
Код:
Sub Макрос1()
For cnt = 1 To Worksheets.Count
Set curWS = Worksheets(cnt)
curWS.Range("A1:C1000").Select
Selection.Sort Key1:=Range("C1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
curWS.Range("D1:F1000").Select
Selection.Sort Key1:=Range("F1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
'и так далее
curWS.Cells(1, 1).Select
If cnt < Worksheets.Count Then
ActiveSheet.Next.Select
End If
Next cnt
End Sub
|
|
