как найти ячейки с определенным цветом?

[cybereug]

необходимо в excel найти в столбце 1 ячейку синего цвета и скопировать ее в столбец 2 во все строки до нахождения следующей синей ячейки в столбце 1. Далее опять копируется синяя ячейка до нахожденя следующей синей. Заранее спасибо!

[HandKot]

Сервис-Макрос-Начать запись

Потом выбираешь Правка-Найти Формат, указываешь цвет ячейки для поиска

После посмотри полученный код и подгони его под себя

[PooH]

а зачем тут синию искать?  иди по столбцу и как наткнулся на синию, начинай её вставлять во второй столбец для всех "не синих"

[cybereug]

а как это програмно сделать? вопрос в том что синие ячейки имеют разные значения и значение должно меняться после нахождения следующей синей ячейки

[cybereug]

вот в приложении примерно что нужно сделать и что должно получиться

[RomCom]

Код:

Sub Макрос1()
Dim sht As Worksheet, i As Integer
Set sht = Application.ActiveWorkbook.ActiveSheet

'находим первую синию ячейку
For i = 1 To 100 '100 - диапазон
    If sht.Cells(i, 1).Interior.ColorIndex = 5 Then
        Exit For
    End If
Next

'ну и собственно вставка
For i = i To 100 '100 - диапазон
    If sht.Cells(i, 1).Interior.ColorIndex = 5 Then
        sht.Cells(i, 1).Select
        Selection.Copy
    Else
            sht.Cells(i, 2).Select
            sht.Paste
    End If
Next
End Sub

[cybereug]

большое спасибо! а как удалить потом строчки с синими ячейками с кторых начиналась вставка?

[Алексей++]

Offtopic:

нужны ли больше аттачи в посте №4 ?

Поставлю в угол.