iMaxRow& = Cells(65536, 1).End(xlUp).Row: iTempRow& = iMaxRow&
For iRow& = iMaxRow& To 1 Step -1
If Cells(iRow&, 1).Interior.Color = vbBlue Then
Cells(iRow&, 1).Copy Range(Cells(iRow& + 1, 2), Cells(iTempRow&, 2))
iTempRow& = iRow& - 1
End If
Next
как найти ячейки с определенным цветом?
Необходимо в excel найти в столбце 1 ячейку синего цвета и скопировать ее в столбец 2 во все строки до нахождения следующей синей ячейки в столбце 1. Далее опять копируется синяя ячейка до нахожденя следующей синей. Заранее спасибо!
гы-гы )))
а что тут смешного?
Cybereyg, Впервые возможность поиска ячейки, исходя из параметров форматирования, появилась только в MS Excel XP. Если у Вас наличествует более ранняя версия, то Вам, по всей видимости, придётся использовать перебор ячеек.
в приложени прикрепелено что есть и что должно получиться
у меня как раз Excel XP
а в чем смысл этих переставлений? если не секрет...
имеется структура, а нужна другая, вот и все, а в связи с большим кол-вом ячеек, в ручную переставить не представляется возможным.
Решение Вашего вопроса может выглядеть следующим образом, конечно при условии, что цвет заливки всех заголовков - именно синий.
P.S. Если же Вы хотите использовать именно поиск подобных ячеек, то см. справку касательно Find + FindFormat
Код:
P.S. Если же Вы хотите использовать именно поиск подобных ячеек, то см. справку касательно Find + FindFormat
Большое спасибо! Помогло. А как можно потом удалить строчку с синей ячейкой, с которой началась вставка?
Если Вы действительно хотите удалить только ячейку, то :
Если же Вам нужно удалить строку, которой принадлежит эта ячейка, то :
Код:
Cells(iRow&, 1).Delete
Если же Вам нужно удалить строку, которой принадлежит эта ячейка, то :
Код:
Cells(iRow&, 1).EntireRow.Delete
Rem Или
Rows(iRow&).Delete
Rem Или
Rows(iRow&).Delete