1、打开Excel表格，点击【开发工具】、【Visual Basic】打开VBA编辑器，或者按下【Alt+F11】组合键打开VBA编辑器。
2、在VBA编辑器的菜单栏上面点击【插入】、【模块】。
3、在模块1的代码窗口里面输入以下VBA程序代码，之后点击功能区里面的“运行”图标运行旯皱镢涛程序，或者按下【F5】键运行程序。Sub FontColor()Dim i, j, kOn Error Resume Next '忽略运行过程中可能出现的错误Set mysheet1 = ThisWorkbook.Worksheets("Sheet1") '定义工作表 Sheet1k = RGB(255, 0, 0) '把红色的RGB值赋给kFor i = 1 To 1000 '从第1行到1000行For j = 2 To 9 '从第2列到第9列 If mysheet1.Cells(i, j).Font.Color = k Then '如果单元格里面的字体颜色是红色，则 mysheet1.Cells(i, 1).Font.Color = k '第1列对应单元格的字体颜色改成红色 Exit For '退出For循环，以较少执行次数 End IfNextNextEnd Sub
4、回到工作表界面，将会看到程序执行的结果。
5、VBA程序释义说明：（1）两个“For……Next”嵌套使用里面，每执行一次外面的“For……Next”，则需要等到里面的“For……绿覆冗猩Next”执行完之后再执行一次外面的“For……Next”，如此循环，待外面的“For……Next”执行结束，则循环结束，具体的可以按下【F8】键逐步执行、观察。（2）不确定RGB数值所对应的颜色时，可以在工作表的功能区里面点击字体颜色的下拉选项选择“其他颜色”，再点击【自定义】，选择RGB并依次输入数值即可看到新增的颜色（即：RGB数值对应的颜色）。
