Добрый день, подскажите пожалуйста макрос что бы перебирал значения в первом столбце, и при соблюдении определенного условия добавлял новую пустую строку и красил ее в другой цвет. В моем случае когда он натыкается на ячейку с другим значением (если все значения А и следующее B то между ними пустую строку) Приблизительный алгоритм знаю, но с VBA дружу не сильно и сам написать не могу. В примере более наглядно видно что нужно получить. Буду очень благодарен.
Sub qqq()
Dim i&, lstr&
lstr = Cells(Rows.count, 1).End(xlUp).row
For i = 2 To lstr
If Cells(i, 1) <> Cells(i + 1, 1) Then
Rows(i + 1).Insert
Cells(i + 1, 1).Resize(, 3).Interior.Color = RGB(191, 191, 191)
i = i + 1
End If
Next
End Sub
Владимир,прошу прощения, позволил себе немного подправить ваш код, думаю этот будет более корректно работать.
Код
Sub qqq()
Dim i&, lstr&
lstr = Cells(Rows.Count, 1).End(xlUp).Row
For i = lstr To 2 Step -1
If Cells(i, 1) <> Cells(i + 1, 1) Then
Rows(i + 1).Insert
Cells(i + 1, 1).Resize(, 3).Interior.Color = RGB(191, 191, 191)
End If
Next
End Sub
"Все гениальное просто, а все простое гениально!!!"