Необходимо написать макрос который, после каждого уникального значения ячейки, вставляет первую (1:1) строку листа.
Следующий макрос ищет уникальные значения, но вставляет пустую строку, а мне нужно что б вставлялась именно первая.
Следующий макрос ищет уникальные значения, но вставляет пустую строку, а мне нужно что б вставлялась именно первая.
Код |
---|
Sub InsertRow() Dim i As Long, rCell As Range For Each rCell In Selection 'Цикл по выделенным ячейкам If rCell <> "" Then 'Если текущая ячейка не пуста, то If rCell.Offset(1, 0) <> rCell Then rCell.Offset(1, 0).EntireRow.Insert 'Если значение в ячейке "ниже" не равно значению в текущей ячейке, то вставляем строку End If Next End Sub |