恐れ入ります。どなたかお力添えいただけないでしょうか。 VBAかなり初心者です。 したいと思っている動作は以下の通りです。 E列に入力があるのに同行のH列が空白だったときにそのH列の空白のセルを塗りつぶして、入力が不要か再確認する。 再度実行したとき、空白だったため塗りつぶしたセルに入力がされていたら元の塗りつぶしなしに戻る。 検索範囲はE5からE列の入力済みの最終行までにしたいです。 ネットで調べて下記のようにしてみたのですが全くうまくいきません。 Sub 空白色付け() Dim rng As Range R = Sheets("シート名").Cells(Rows.Count, "E").End(xlUp).Row + 1 Set rng = Range(Sheets("シート名").Cells(R, "H")).SpecialCells(xlCellTypeBlanks) rng.Interior.Color = rgbRed End Sub 申し訳ございませんがどなたか教えて頂けますと幸いです。 よろしくお願いいたします。