Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Повтор каждой 8-й ячейки по 8 раз начиная с 5-й строки
 
Добрый день! Помогите пожалуйста решить задачу: нужно повторить каждую 8-ю ячейку по 8 раз начиная с 5-й строки. Файл во вложении.
 
Виктор Иванов,
Код
Sub mrshkei()
Dim i As Long
lr = Cells(Rows.Count, 1).End(xlUp).Row
For i = 5 To lr Step 8
    Cells(i, 1).Copy Destination:=Range(Cells(i + 1, 1), Cells(i + 7, 1))
Next
End Sub
Не бойтесь совершенства. Вам его не достичь.
 
Mershik, Огромное спасибо! А по формуле можно сделать подобное? А то для примера создал файл, а в рабочем всё немного по другому) во вложении прикладываю файл с рабочим файлом. Заранее огромное спасибо!
 
Виктор Иванов, я не предлагал вам формулу...если хотите формулой то так кка у вас все данные одинаковой стркутуры, то для первой таблицы
в ячейку M4
Код
=I5
в ячейку М5 и протянуть до М11
Код
=M4
затем выделяете диапазон М4:М11 и тяните за правый нижний уголок вниз.

ну и код :
Код
Sub mrshkei()
Dim i As Long, lr As Long
lr = Cells(Rows.Count, 9).End(xlUp).Row
For i = 5 To lr Step 8
    Range(Cells(i - 1, 15), Cells(i + 6, 15)) = Cells(i, 9)
Next
End Sub
Изменено: Mershik - 14 янв 2021 12:04:45
Не бойтесь совершенства. Вам его не достичь.
 
зацепился за "Шт (автоматич.)"
Не перестаю удивляться возможностям excel и VBA.
 
Mershik, вот это да, до такого гениального простого решения я не додумался, спасибо Вам большое!
 
Shama, спасибо большое! Что-то подобное пытался сам смастерить, но как-то не пошло))) Благодарю Вас!
Страницы: 1
Читают тему (гостей: 1)
Наверх