自动将单元格颜色复制到另一个单元格

这是一个非常简单的问题，我似乎无法find解决scheme。基本上我使用3种不同的单元格样式（好，中性和坏）。我只是想要做的是我想要的颜色相邻的单元格颜色编码是相同的颜色。例如单元格O11我select它是好的（绿色），因此单元格M11应根据单元格O11自动更改其单元格样式。

有什么build议么？

PS O11将手动设置（无条件格式）

要解决您的问题，您需要创build一个variables来保存单元格的颜色值，并将该值设置回另一个单元格。使用下面的例子：

Sub Copy_Color（）
昏暗的iColor只要
昏暗的我一样长

for i = 11 to 20 iColor = worksheets("Sheet name").range("M" & i).Interior.Color worksheets("Sheet name").range("O" & i).Interior.Color = iColor next

结束小组

要解决您的问题，您需要创build一个variables来保存单元格的颜色值，并将该值设置回另一个单元格。使用下面的例子：`为了解决你的问题，你需要创build一个variables来保存单元格的颜色值，并将该值设置回另一个单元格。使用下面的例子：

要解决您的问题，您需要创build一个variables来保存单元格的颜色值，并将该值设置回另一个单元格。使用下面的例子：

 Sub Copy_Color（） 

    昏暗的iColor只要
     iColor = ActiveCell.Interior.Color
     ActiveCell.Offset（0，1）.Interior.Color = iColor
结束小组