Excel VBA質問箱 IV

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

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


34113 / 76732 ←次へ | 前へ→

【47834】Re:行の削除について
回答  りん E-MAIL  - 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 質問
【47784】Re:行の削除について ウッシ 07/3/22(木) 15:43 回答
【47786】Re:行の削除について りん 07/3/22(木) 15:46 回答
【47788】Re:行の削除について 初心者 07/3/22(木) 15:59 お礼
【47814】Re:行の削除について tami 07/3/22(木) 22:17 質問
【47815】Re:行の削除について ウッシ 07/3/22(木) 22:44 発言
【47816】Re:行の削除について tami 07/3/23(金) 7:16 お礼
【47834】Re:行の削除について りん 07/3/23(金) 12:56 回答

34113 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free