[[20150917161751]]　『値がないと作動しない』（せり）　ページの最後に飛ぶ

『値がないと作動しない』（せり）

教えてください。

 .Range(.Cells(4, LastCol + 48), .Cells(Rows.Count, LastCol + 95)).SpecialCells(xlCellTypeConstants).ClearContents

上記のコードがあるのですが
値があれば問題ないのですが値がないと該当するセルがみつからないと
エラーになってしまいます。
どのようにすれば値がない時でも動くのか教えてください。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 ちょっと乱暴ですが

    On Error Resume Next
    .Range(.Cells(4, lastCol + 48), .Cells(Rows.Count, lastCol + 95)).SpecialCells(xlCellTypeConstants).ClearContents
    On Error GoTo 0

 ただし、lastCol に異常値が入っていた場合（いわゆるプログラムバグ）でも気づかないまま処理が進みますのでご注意を。

（β） 2015/09/17(木) 16:44

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

無事に解決しました。

勉強になりました。
（せり） 2015/09/17(木) 17:26

コメント返信：

[ 一覧(最新更新順) ]

[[20150917161751]] 『値がないと作動しない』（せり） ページの最後に飛ぶ

[[20150917161751]]　『値がないと作動しない』（せり）　ページの最後に飛ぶ