Excel VBA質問箱 IV

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

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


34109 / 76732 ←次へ | 前へ→

【47838】Re:行の削除に関して
回答  りん E-MAIL  - 07/3/23(金) 18:53 -

引用なし
パスワード
   質問(煮詰まった) さん、こんばんわ。

509行からRmax行まで削除します
Sub test()
  Rmin = 509
  With Application.ActiveSheet
   Rmax = .Range("B10000").End(xlUp).Row '最下行番号
   MsgBox Rmax
   If Rmax >= Rmin Then
     .Rows(Rmin & ":" & Rmax).Delete
   End If
  End With
End Sub

こんな感じです。
0 hits

【47836】行の削除に関して 質問(煮詰まった) 07/3/23(金) 18:12 質問
【47838】Re:行の削除に関して りん 07/3/23(金) 18:53 回答
【47897】Re:行の削除に関して 質問(煮詰まった) 07/3/26(月) 9:20 お礼

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