Друзья, имеется выгрузка как представлена на скрине. Она довольно большая. Подскажите, как запилить макрос, который бы определил размер таблицы и заполнил данные, которых мне не хватает (выделил желтым). В данном случае, в третью строку колонок A-С нужно взять и перенести из первой ячейки, содержащие "100 Редисон Сочи", в пятую и шестую "101 Торговый Центр Сочи" и т.д.
Ручками переносить устанешь, да еще и накосячишь. Спасибо.
Вот тебе соорудил макрос на нажатие кнопки, он очень простой:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Private Sub CommandButton1_Click()
totalRows = ActiveSheet.UsedRange.Rows.Count
For i = 2 To totalRows 'начинаем со второй строки, исключаем заголовок
If i = totalRows Then
Exit Sub
Else
If Cells(i + 1, 1) = "" Then
Cells(i + 1, 1) = Cells(i, 1) 'номер
Cells(i + 1, 2) = Cells(i, 2) 'имя
Cells(i + 1, 3) = Cells(i, 3) 'адрес
End If
End If
Next
End Sub
Также приложил рабочее решение в экселе
