VBAの便利な一覧表

ClorIndexの色

インデックス番号をA列に表示して、その横のセルをインデックス番号に応じた色に塗りつぶす。

Dim i As Long
For i = 1 To 56
 Cells(i, 1) = i
 Cells(i, 2).Interior.ColorIndex = i
Next