用代码编辑现有的条件格式

（Excel 2016）我有几个现有条件格式的大型电子表格。 在任何特定的工作表上，我有几个表格，每个表格都有自己的一组条件格式。 表格的大小不同，所以范围有所不同。 而且有很多（100年代）。 相同的规则适用于每一个集合，也就是说，我想要编辑的条件格式是一致的，具有适用于每个范围/表格（例如红/黄/绿/蓝）的4种格式的相同“集合”。

我想弄清楚如何编辑现有格式的颜色值。 例如，将当前为绿色的文本颜色更改为浅绿色。 现在我必须手动编辑数百个公式条目。

我已经看到了很多关于通过VBA应用条件格式的例子，但是我没有看到如何通过这些表格来编辑现有格式，而不改变它们的顺序或者优先级。

Answer 1

如果您只想修改填充颜色，请循环浏览工作表上的所有.FormatConditions ，然后使用Select ... Case来修改颜色序号。

 Option Explicit Sub wqwqty() Dim cfr As Long With Worksheets("Sheet1").Cells For cfr = 1 To .FormatConditions.Count With .FormatConditions(cfr).Interior Debug.Print .Color Select Case .Color Case 255 'dark red .Color = 192 'light red Case 192 'dark red .Color = 255 'light red Case 5287936 'dark green .Color = 5296274 'light green Case 12611584 'dark blue .Color = 15773696 'light blue Case 49407 'orange .Color = 65535 'yellow End Select Debug.Print .Color End With Next cfr End With End Sub