Excel VBA質問箱 IV

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

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


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

34113 / 76732

←次へ　｜　前へ→


	【47834】Re:行の削除について

りん

- 07/3/23(金) 12:56 -


	引用なし

	パスワード

tami さん、こんにちわ。

>しかしSheets("sheet2").UsedRange.ClearContentsは完全に削除でき
>便利なのですが・・・
>時々、一行目(時には数行目まで）だけ残して、それ以外は全て削除にこの便利なUsedRangeが使えないか？など思う時があります(余談ですが）
InterSectメソッドで、削除していい部分とのかぶりを判定して、あったら削除します。
Sub test()
　 Dim Rmax　As Long
　 '
　 Rmax = 3 '残す行の一番下
　 With Application.ActiveSheet
　　　Set r1 = .Rows((Rmax + 1) & ":65536")
　　　Set r2 = .UsedRange
　 End With
　 '
　 Set r3 = Application.Intersect(r1, r2)
　
　 If Not r3 Is Nothing Then
　　　Set r3 = r3.EntireRow
　　　r3.Interior.ColorIndex = 5
　　　MsgBox "削除しますね"
　　　r3.Delete
　　　ActiveSheet.UsedRange'←これでちゃんと判定されるとは知りませんでした
　 Else
　　　MsgBox r2.Address, vbInformation, "UsedRange"
　 End If
End Sub

こんな感じです。

2 hits

▼

【47783】行の削除について 初心者 07/3/22(木) 15:38