Вставить в Excel без потери условного форматирования с использованием VBA

Question

Я хочу сначала извиниться, если этот вопрос существует, но я потратил бесчисленное количество часов, занимаясь исследованиями и пытаясь применить некоторые коды VBA, которые некоторые уже выпустили там.Ничего не сработало.

У меня есть файл Excel, к которому я применил условное форматирование.Я хочу иметь возможность скопировать текст из программы или файла и вставить в файл Excel.Однако при вставке цвет условного форматирования, размер шрифта, шрифт теряется.

Я знаю, один из способов - просто вставить значения.Я хочу упростить это для конечного пользователя, а также сделать фиктивное доказательство и сделать это там, где всякий раз, когда они вставляют либо с помощью CTRL-V, либо щелчком правой кнопкой мыши и вставкой, он автоматически делает это для них.Можно ли это сделать в VBA?

Answer 1

Для этого вопроса я использую:

Sheet1.Range ("A1: A5") => Этот диапазон включает данные, подлежащие копированию.

Sheet1.Range ("B1: B5") => Где будут копироваться данные.

Попробуйте:

Option Explicit

Sub Macro1()

     Sheet1.Range("A1:A5").Copy Sheet1.Range("B1:B5")

End Sub