| 
    
     |  | ▼kanabun さん: ありがとうございます。
 下記のようにイミディエイト・ウィンドウに出力されたアドレスに
 書き換えましたがエラーは一緒でした?
 出力されたアドレスは下記です
 H10:Q11,Y10:AH11,H11:AM14,I14:AH15,I15:AH15,I16:AC16,AF16:AI16,J18:Y18,AC18:AI18,I23:AH23,
 H24:Q24,Y24:AH24,I27:AD27,M29:N29,Q29:AH29,I30:AH31,I32:AH32,I32:AH32,I33:AH34,H35:AI38
 なにか違うのでしょうか?
 よろしくお願いします。
 >現在のセルアドレス ↓
 >Range("H10:Q11,〜〜, O33:Y34,H35:AI38").ClearContents
 >
 >を、イミディエイト・ウィンドウに出力されたアドレスに書き換えるだけですが?
 Range("H10:Q11,Y10:AH11,H11:AM14,I14:AH15,I15:AH15,I16:AC16, AF16:AI16,J18:Y18,AC18:AI18,I23:AH23,H24:Q24,Y24:AH24,I27:AD27,
 M29:N29,Q29:AH29,I30:AH31,I32:AH32,I32:AH32,I33:AH34,H35:AI38").ClearContents
 
 
 |  |