如果检查时如何复制条件格式时复制值?

我有一个像这样的支票

=IF(A1="","",Sheet2!A1) 

其中Sheet2!A1包含一个条件格式的单元格(着色一个特定的颜色)

我想保留我的新表上的颜色

如何复制单元格,其值和格式?

这可以在一个公式内完成,或者是在VBA中有什么我可以写,这将做到这一点

 Can this be accomplished within a formula? 

AFAIK,我不认为你可以使用Excel公式做到这一点

VBA代码:

select您有公式的单元格并运行macros

 Sub ColorCopyCell() If (IsEmpty(ActiveCell)) Then 'If empty Worksheets(2).Range(ActiveCell.Address).Copy Selection.PasteSpecial Paste:=xlPasteAll End If End Sub