У меня есть лист с пятью столбцами AE и почти 10000 строк. Мне нужно отсортировать каждые 7 строк до конца рабочего листа, используя данные в столбце C.
Следующий код выполняет работу для диапазона A1:E7. Можно ли изменить этот код, чтобы отсортировать каждые 7 строк, используя соответствующие данные в столбце C в пределах своего диапазона, например C8:C14 для диапазона A8:E14 и C15:C21 для диапазона A15:E21 ... и т.д.?
Sub sort_7_rows()
Range("A1:E7").Select
ActiveWorkbook.Worksheets("sequencing (2)").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("sequencing (2)").Sort.SortFields.Add Key:=Range( _
"C1:C7"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("sequencing (2)").Sort
.SetRange Range("A1:E7")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Любая помощь экспертов в этом вопросе высоко ценится. заранее спасибо