宏脚本设置单元格颜色

Sheets("NewSheet").Cells(i, 4).Interior.ColorIndex = 3，其中i表示第几行

或者Sheets("NewAIRQC").Range("BK" & i).Interior.ColorIndex = 3，其中BK是列名，i表示行数

两种方式都可以。

颜色表