剪切和粘贴特殊

Question

我正在尝试创建一个将数据从一个工作表复制到另一个工作表的宏，但问题是当满足某些条件时，有些值已被“有条件地格式化”为不同的字体颜色，所以当我使用我创建的宏复制数据它不包括条件，它只是按原样复制值。这是我的宏代码。请帮忙。

'In this example I am Copying the Data from Sheet1 (Source) to Sheet2 
(Destination)
Sub sbCopyRangeToAnotherSheet()
'Method 1
Sheets("FCI").Range("C37:G57").COPY 
Destination:=Sheets("Sheet1").Range("A2")
'Method 2
'Copy the data
Sheets("FCI").Range("C37:G57").COPY
'Activate the destination worksheet
Sheets("Sheet1").Activate
'Select the target range
Range("A2").Select
'Paste in the target destination
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub