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

Question

На одном листе у меня есть данные, которые имеют цвет условного форматирования.

Я хочу скопировать и вставить это в другой файл, я смог вставить значение, ширину столбца и т.д., Но я не мог вставить цвет из условного форматирования.

Я исследовал, и было предложено вставить его в слово, а затем обратно в Excel, но это испортило мое форматирование строк и столбцов в Excel.

Как это сделать? Является ли это возможным?

Answer 1

Я хотел бы предложить вам два возможных метода. Один из них - не программирование, а второй - программирование (VBA Macro).

Непрограммируемый метод:

1. Откройте обе рабочие книги.
2. Скопируйте ячейку из листа оригинальной рабочей книги (откуда вы хотите скопировать условное форматирование) в неиспользуемую позицию на листе целевой книги.
3. Откройте опцию « Управление правилами» условного форматирования.
4. Выберите Показать правила форматирования для этого листа.
5. Для каждого правила настройте Applies так, чтобы они соответствовали требуемому диапазону.
6. Нажмите кнопку Range справа от Applies to.
7. Нажмите-перетащите-выберите из верхней левой ячейки в нижнюю правую ячейку.
8. Нажмите кнопку « Диапазон», чтобы вернуться в Менеджер условных правил.
9. Нажмите OK или Применить, чтобы получить результат.

Метод программирования:

1. В Source File нажмите Alt+F11 чтобы открыть VB Editor.

2. Скопируйте и вставьте этот код как стандартный модуль.

   Sub CopyFormat()
   Application.DisplayAlerts = False
   Dim wbSource As Workbook
   Set wbSource = Workbooks.Open(Filename:="source.xlsm", UpdateLinks:=3)
   wbSource.Sheets(1).Range("A1:H100").Copy
   Selection.PasteSpecial _ 
   Paste:=xlPasteValues
   Selection.PasteSpecial _ 
   xlPasteFormats
   
   wbSource.Close
   Application.DisplayAlerts = True
   End Sub
   

Замечания:

1. Вы можете редактировать название Worbook & Sheet в соответствии с вашими потребностями.
2. При необходимости измените ссылки на ячейки для Скопированного диапазона.