Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Повтор каждой 8-й ячейки по 8 раз начиная с 5-й строки
 
#1
14.01.2021 11:01:38
Добрый день! Помогите пожалуйста решить задачу: нужно повторить каждую 8-ю ячейку по 8 раз начиная с 5-й строки. Файл во вложении.
 
 
 
#2
14.01.2021 11:14:35
Виктор Иванов,
Код
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
Не бойтесь совершенства. Вам его не достичь.
 
 
 
#3
14.01.2021 11:52:58
Mershik, Огромное спасибо! А по формуле можно сделать подобное? А то для примера создал файл, а в рабочем всё немного по другому) во вложении прикладываю файл с рабочим файлом. Заранее огромное спасибо!
 
 
 
#4
14.01.2021 11:55:33
Виктор Иванов, я не предлагал вам формулу...если хотите формулой то так кка у вас все данные одинаковой стркутуры, то для первой таблицы
в ячейку 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.01.2021 12:04:45
Не бойтесь совершенства. Вам его не достичь.
 
 
 
#5
14.01.2021 12:01:09
зацепился за "Шт (автоматич.)"
Не перестаю удивляться возможностям excel и VBA.
 
 
 
#6
14.01.2021 12:03:51
Mershik, вот это да, до такого гениального простого решения я не додумался, спасибо Вам большое!
 
 
 
#7
14.01.2021 12:16:00
Shama, спасибо большое! Что-то подобное пытался сам смастерить, но как-то не пошло))) Благодарю Вас!
 
 
 
Страницы: 1
Наверх