使用 Excel 的时候，经常会用到一些软件自带的颜色美化一下表格。而我们最常用的应该就是自带的索引颜色了，Excel 内置了 56 种常用的颜色值，编写 VBA 的时候我们可以直接使用这些颜色值。
使用下面的代码可以自动生成颜色对照表：
SubExcel_Interior_ColorIndex()'清空单元格信息 Cells.Clear Cells.Font.Bold = True Cells(6, 4).Font.Color = vbWhite '键入Excel常用颜色表Dim x AsInteger x =0For i =1To8For j =1To7 x = x +1Cells(i +5, j +3)= x Cells(i +5, j +3).Interior.ColorIndex= x If x >56ThenExitSubNext j Next i '键入标题 Range("D2:J2").Select Selection.Merge Range("D2:J2").FormulaR1C1 = "Excel常用颜色对照表" With Selection .Font.Name = "楷体" .Font.Size = 24 .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter End With Range("A1").Select End Sub
文后我会提供一个“Excel~常用颜色对照表”的 xlsm 文件，如果无法生成颜色对照表，请自行检查 Excel 版本及是否启用宏。