ここから本文です

ExcelのVBAでセル(CZ16:DM27)と(CZ68:DM79)の二か所の範囲内オブジェクトをすべて...

not********さん

2019/1/2512:12:02

ExcelのVBAでセル(CZ16:DM27)と(CZ68:DM79)の二か所の範囲内オブジェクトをすべて削除したいのですが素人すぎて調べて試してもうまくいきません。
どなたか助けてもらえませんか?

閲覧数:
16
回答数:
1

違反報告

ベストアンサーに選ばれた回答

msk********さん

2019/1/2512:53:41

こんな感じでしょうか。

Sub sample()
Dim shp As Shape, r As Range
For Each shp In ActiveSheet.Shapes
Set r = Range(shp.TopLeftCell, shp.BottomRightCell)
If Not (Intersect(r, Range("CZ16:DM27,CZ68:DM79")) Is Nothing) Then
shp.Delete
End If
Next
End Sub

質問した人からのコメント

2019/1/25 13:06:37

ありがとうございます!

完璧に動作しました^^

この質問につけられたタグ

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる