Vba颜色对照表

以下代码可实现

Sub 按钮1_Click()

     r = 1

     c = 1

     For j = 1 To 56
        r = r + 1
        Cells(r, c).Interior.ColorIndex = j
        Cells(r, c + 1) = j
        If r = 15 Then

            r = 1
            c = c + 2
        End If
    Next j
End Sub