Excel – 复制条件格式，删除规则，保持格式

我知道你通常会在一个问题中展示你所尝试的，但这更像是“你有一个很好的例程吗？ 问题，我希望你会愿意让它滑过…

我正在处理一个macros，它复制在源工作表中有条件格式化的单元格，并将它们粘贴到输出表中。 基本上，我正在寻找保持所有的格式，阴影等，但删除输出表中的所有条件（使目前的格式为静态）。

我已经看到了一些在线解决scheme – 从复制到Word文档，然后粘贴回来，循环输出单元格和格式元素复制格式元素 – 我只是寻找一个好的，有效的方法来做这个。

有没有人有一个/他们愿意分享的好链接？

（Excel 2010）

谢谢！！！！

Answer 1

是的，这是可能的:)你需要做的是通过模拟DisplayFormat更改您打算复制单元格的格式，然后删除条件格式

 Sub Keep_Format() Dim ws As Worksheet Dim mySel As Range, aCell As Range '~~> Change this to the relevant sheet Set ws = ThisWorkbook.Sheets("Sheet1") '~~> Change this to the relevant range Set mySel = ws.Range("A1:A10") For Each aCell In mySel With aCell .Font.FontStyle = .DisplayFormat.Font.FontStyle .Interior.Color = .DisplayFormat.Interior.Color .Font.Strikethrough = .DisplayFormat.Font.Strikethrough End With Next aCell mySel.FormatConditions.Delete ' '~~> Now Do the copying ' '~~> Once you are done, close the sorce worksheet without saving End Sub 

Answer 2

我想我已经拿到了Office剪贴板：复制范围，打开Office剪贴板窗格（“主页”选项卡下剪贴板部分右下angular的小button），并从那里粘贴。

这是一个演示： http ： //www.bookkempt.com/2017/08/remove-conditional-formatting-but-keep.html