VBAでExcelで隣接したセルの書式が引き継がれないようにする方法 VBAで図のようにA列を塗りつぶしてます。 B列は、空白なので、塗りつぶしをしたくないのですが、セルの書式が引き継がれてしまいます。 セルの書式が引き継がれないようにするには、どうしたらいいでしょうか? お手数ですがご教示をお願いします ちなみに、塗りつぶしは、下記のコードです Sub 色() For j = 2 To 19 For i = 20 To 23 Select Case True Case Cells(i, j) = 1 Cells(i, j).Interior.ColorIndex = 1 Cells(i, j).Font.ColorIndex = 2 Case Cells(i, j) = 2 Cells(i, j).Interior.ColorIndex = 2 Case Cells(i, j) = 3 Cells(i, j).Interior.ColorIndex = 3 Case Cells(i, j) = 3 Cells(i, j).Interior.ColorIndex = 3 Case Cells(i, j) = 4 Cells(i, j).Interior.ColorIndex = 4 Cells(i, j).Font.ColorIndex = 1 Case Cells(i, j) = 5 Cells(i, j).Interior.ColorIndex = 5 Cells(i, j).Font.ColorIndex = 2 Case Cells(i, j) = 6 Cells(i, j).Interior.ColorIndex = 6 Case Cells(i, j) = 7 Cells(i, j).Interior.ColorIndex = 7 Case Cells(i, j) = 8 Cells(i, j).Interior.ColorIndex = 8 Case Cells(i, j) = 9 Cells(i, j).Interior.ColorIndex = 9 Cells(i, j).Font.ColorIndex = 2 Case Cells(i, j) = 10 Cells(i, j).Interior.ColorIndex = 10 Cells(i, j).Font.ColorIndex = 2 Case Cells(i, j) = 11 Cells(i, j).Interior.ColorIndex = 11 Cells(i, j).Font.ColorIndex = 2 Case Cells(i, j) = 12 Cells(i, j).Interior.ColorIndex = 12 Case Cells(i, j) = 13 Cells(i, j).Interior.ColorIndex = 13 Cells(i, j).Font.ColorIndex = 2 Case Cells(i, j) = 14 Cells(i, j).Interior.ColorIndex = 14 Cells(i, j).Font.ColorIndex = 2 Case Cells(i, j) = 15 Cells(i, j).Interior.ColorIndex = 15 Case Cells(i, j) = 16 Cells(i, j).Interior.ColorIndex = 16 Case Cells(i, j) = 17 Cells(i, j).Interior.ColorIndex = 17 Case Cells(i, j) = 18 Cells(i, j).Interior.ColorIndex = 18 Cells(i, j).Font.ColorIndex = 2 End Select Next i Next j End Sub