用VBA实现1到56索引值对应颜色表示出来

Sub 作业题方法一()
'
' 作业题方法一 Macro
'
'

Dim iCol As Integer, iColor As Integer   '定义变量

Columns(2).Interior.ColorIndex = 2   '将第2列的颜色设置为白色

iColor = 1   '设置颜色索引值的初始值
For iCol = 2 To 57 
    If Cells(iCol, 1) >= 0 Then   '如果当前单元格的值>=0
        Cells(iCol, 2).Interior.ColorIndex = iColor   '将当前单元格的颜色设置为iColor对应的值
        iColor = iColor + 1   '将颜色索引值递加1
    End If   '结束if判断
Next   ’继续循环

End Sub

------------------------------------------------------------------------------------------------------------------------------------

Sub 作业题方法二()
'
' 作业题方法二 Macro
'
Dim i% '定义变量
Sheets.Add After:=Sheets(Sheets.Count) '新增加一个工作表，放在所以工作表最后
Range("A1") = "颜色索引值"

Range("B1") = "颜色"
    For i = 2 To 57
        Cells(i, 1) = i - 1 '添加颜色索引值
        Cells(i, 2).Interior.ColorIndex = i - 1 '设置单元格填充色
    Next
ActiveSheet.Delete
End Sub