Как скопировать информацию из ячеек определенного цвета на другом листе?

Для копирования информации из ячеек определенного цвета на другом листе в Excel, можно воспользоваться следующими шагами:

1. Выберите ячейки с нужным цветом на первом листе.
2. Нажмите правой кнопкой мыши на выделенных ячейках и выберите "Копировать".
3. Перейдите на другой лист, куда хотите вставить скопированную информацию.
4. Нажмите правой кнопкой мыши на нужную ячейку и выберите "Вставить".

Чтобы получить данные с другого листа, используя фильтр по цвету (зеленому и оранжевому), можно применить следующие шаги:

1. Выделите столбец или строки, которые содержат данные с цветными ячейками.
2. Нажмите на вкладку "Данные" в верхней панели меню.
3. Выберите "Расширенный фильтр" из раздела "Фильтры".
4. В открывшемся окне выберите столбец с цветными ячейками в поле "Диапазон".
5. В разделе "Фильтр" выберите нужные цвета (зеленый и оранжевый) в выпадающем списке.
6. Нажмите "ОК".

Теперь на вашем листе будут отображаться только те данные, которые соответствуют выбранным цветам.

Добрый день. <br/> Вариант макроса VBA Excel: <br/> Sub CopyHighlightedCells() <br/> Dim Product As Range <br/> Dim ProductCell As Range <br/> Dim HCsheet As Worksheet ' ëèñò äëÿ êîïèðîâàíèÿ äàííûõ ñ çàëèâêîé <br/> Dim HPsheet As Worksheet  ' ëèñò äëÿ âñòàâêè äàííûõ ñ çàëèâêîé <br/> <br/> Set HCsheet = Worksheets("Ëèñò1-copy") <br/> Set Product = HCsheet.Range("B5", HCsheet.Range("B5").End(xlDown)) <br/> Set HPsheet = Worksheets("Ëèñò2-paste") <br/> <br/> For Each ProductCell In Product <br/> '  åñëè ÿ÷åéêà æåëòîãî èëè çåëåíîãî öâåòà <br/> If ProductCell.Interior.ColorIndex = 43 Or ProductCell.Interior.ColorIndex = 44 Then <br/> ProductCell.Resize(1, 4).Copy Destination:= _ <br/> HPsheet.Range("B1").Offset(HPsheet.Rows.Count - 1, 0).End(xlUp).Offset(1, 0) <br/> End If <br/> Next ProductCell <br/> HPsheet.Columns.AutoFit <br/> End Sub <br/> <br/>