Друзья, привет. Прошу подсказать как сделать быстро группировку или структуру на весь календарный год с 1 января по 31 декабря 2019 включительно. Структура таблицы следующая. Создается дата, в дате 12 строк (поддат), в каждой и них еще по 20 строк. И так до конца года. Пример во вложении - даты с 1 по 3 апреля. Можно ли как-то ускорить процесс, чтобы вручную не группировать?
Sub Рыба()
Dim k&, i&, n&
n = 3
ActiveSheet.Cells.ClearOutline
For k = 2 To n * 254 - 2 Step 254
For i = k + 2 To k + 250 Step 21
Rows(i).Resize(20).Group
Next
Rows(k + 1).Resize(253).Group
Next
End Sub
RAN написал: Код ? 1234567891011Sub Рыба() Dim k&, i&, n& n = 3 ActiveSheet.Cells.ClearOutline For k = 2 To n * 254 - 2 Step 254 For i = k + 2 To k + 250 Step 21 Rows(i).Resize(20).Group Next Rows(k + 1).Resize(253).Group NextEnd SuСпасибо
Для того, чтобы обратиться по имени, создана специальная кнопка: она так и называется - "Имя". Если же есть необходимость процитировать, то не нужно цитировать всё сообщение. Это уже не цитата, а копия сообщения. Посмотрите на свой #14 - зачем там процитировали код? Какой в этом смысл?