| 
    
     |  | ご回答ありがとうございました。 
 しかしながら、以下の部分で実行時エラーが生じてしまいました。
 Selection.Offset(0, 1).Resize(Selection.Rows.Count, Selection.Columns.Count - 1).Interior.ColorIndex = 34
 
 「実行時エラー'1004'
 アプリケーション定義またはオブジェクト定義のエラーです。」
 
 ちなみに
 Selection.Offset.Resize(Selection.Rows.Count, Selection.Columns.Count - 1).Interior.ColorIndex = 34
 とした場合に実行時エラーは生じなかったのですが
 選択した行の色が全て水色になってしまいました。
 
 何が原因なのでしょうか?
 
 
 ▼IROC さん:
 >Selection.Columns(1).Value = "1"
 >  Selection.Offset(0, 1).Resize(Selection.Rows.Count, Selection.Columns.Count - 1).Interior.ColorIndex = 34
 
 
 |  |