建议ActiveSheetCells1， 1FontColorIndex = 3 ‘设置字体颜色为红色。