我想根据另一个单元格中的文本颜色更改一个单元格中文本的颜色

Question

我希望VBA程序根据另一个单元格中的文本颜色更改一个单元格中文本的颜色。例如：

如果单元格A1中的文本颜色为蓝色。我希望单元格B1中的文本颜色为蓝色。

公式或VBA程序会有所帮助，因为我需要对大量单元格执行相同的操作。

感谢。

Answer 1

使用指定单元格的Font.Color属性。

Range("B1").Font.Color = Range("A1").Font.Color

您也可以使用任何变量进行重复使用。

Dim ColorTemplate As Long = Range("A1").Font.Color
Range("B1").Font.Color = ColorTemplate
Range("C1").Font.Color = ColorTemplate
...