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

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
...