ExcelVBA の Interior.ColorIndex プロパティを使用するとセルの背景色を指定の色で塗りつぶす事が可能です。 Range(“A1”).Interior.ColorIndex = 3 のように使用します。