[[20120517203541]]　『一括クリアをしたいのですが・・』（ちさ）　ページの最後に飛ぶ

『一括クリアをしたいのですが・・』（ちさ）

 こんばんは！
　
　範囲内の定数を一括クリアしたいのですが、一個でもあればOKなのですが、
　一個もない時、クリア処理をしてしまうと、エラーになってしまいます。

　エラーを回避する方法を教えていただけないでしょうか？

　よろしくお願いします。

 　 Range("P6:EI36").Select

    Selection.SpecialCells(xlCellTypeConstants, 23).Select

    Selection.ClearContents

 こんな感じでどうでしょうか。
 (Mook)

    Dim RngConst As Range

    On Error Resume Next
    Set RngConst = Range("P6:EI36").SpecialCells(xlCellTypeConstants, 23)
    On Error GoTo 0

    If RngConst Is Nothing Then
　　    MsgBox "該当するセルがありません。"
    Else
　      RngConst.ClearContents
    End If

Mooｋさん　ありがとうございました。

すっきりと動いてくれました。助かりました。（ちさ）

コメント返信：