我知道您通常会在问题中展示您尝试过的内容，但这更像是“您有一个很好的例程吗？”问题，我希望你愿意让它滑动......
我正在研究一个宏，它复制源工作表中条件格式的单元格并将它们粘贴到输出表中。 基本上，我希望保留所有格式、阴影等，但删除输出表中的所有条件（使当前格式为静态）。
我在网上看到了一些解决方案 - 从首先将其复制到 word 文档然后将其粘贴回来，循环输出单元格并逐个格式元素复制格式元素 - 我只是在寻找一个好的，有效的方法来做到这一点。
有没有人愿意分享一个/一个好的链接？？
（Excel 2010）
谢谢！！！！
【问题讨论】：
I know you usually show what you've tried i... 我通常不会回答没有表现出一些努力的问题，但这是个好问题:)
标签： vba excel conditional-formatting
一个非常简单的方法是按颜色过滤列表。然后用您需要的适当的单元格颜色填充。然后取消过滤并删除条件格式。填充将保留。
【讨论】：
我复制了我的单元格范围。将它们粘贴到 Word 中。重新复制 Word 中的范围并粘贴回 Excel。
【讨论】：
我试图做同样的事情，所有答案似乎对我来说工作量太大，或者基于一些错误/故障。
对我有用的是打开ms word，将整个表从ms excel 复制到ms word，然后将其粘贴回ms excel。样式存在，但条件格式不再适用。
【讨论】：
我想我已经使用 Office 剪贴板：复制范围，打开 Office 剪贴板窗格（主页选项卡下剪贴板部分右下角的小按钮）并从那里粘贴。
这是一个演示：http://www.bookkempt.com/2017/08/remove-conditional-formatting-but-keep.html
【讨论】：
是的，有可能 :) 您需要做的是通过模仿 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
【讨论】：