Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

43790 / 76732

←次へ　｜　前へ→


	【37970】Re:エラー値を含むセルがあったら一定範囲削除

ichinose - 06/5/24(水) 12:56 -


	引用なし

	パスワード

皆さん、こんにちは。

>これで如何かな？
>>r.Offset(, -4).Resize(, 12).ClearContents
>Set r = r.Offset(, -4)
>r.Resize(, 12).ClearContents

これ、たぶん・・・。
Specialcellsメソッドで取得できるセル範囲って、
常に連続したセル範囲（隣接しているセルのブロック）であるとは限りませんよね！！

オブジェクトでいうとArea単位でしかResizeは行えないのでないですか？

よって、Specialcellsで取得したセル範囲をArea単位でループさせて
Resizeするしかないと思います。

For each carea in Specialcellsメソッドで取得したセル範囲.areas
　 carea.resize(,12).ClearContents
　 next

よって、KeinさんのIntersectが簡単なコードでよいなあと思いますけどねえ！！

確認してみてください。

2 hits

▼

【37924】エラー値を含むセルがあったら一定範囲削除 an 06/5/23(火) 16:06