粘贴到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