VBA获取颜色编号与颜色

Sub 颜色编号与颜色()
  For i = 1 To 56
    Cells(i, 1) = "编号" & i
    Cells(i, 1).Interior.ColorIndex = i
  Next
End Sub