Excel VBA質問箱 IV

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

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


5980 / 13646 ツリー ←次へ | 前へ→

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

【47836】行の削除に関して
質問  質問(煮詰まった)  - 07/3/23(金) 18:12 -

引用なし
パスワード
    事前に準備していた、EXCELシートに内容を 
 更新して表を完成させたのですが
 更新する件数が判らないので、大目に準備しています。

 そこで、以下の命令で更新した有効ラインを取得して
 その行の次から事前に準備したシートの合計計算行前
 まで削除したいのですが・・・

 Rows("509:509").Select
 Selection.Delete Shift:=xlUp

 上のものでは行固定なので変数で削除する方法を
 教えて下さい。
 お願いします。


  '●最下行の取得 
  With Application.ActiveSheet
     Rmax = .Range("B10000").End(xlUp).Row '最下行番号
  End With
  
  MsgBox Rmax
  
  i = 0
  i = Rmax  '●from・to 512迄削除
  
  '●不要行削除
   
  Do Until i = 513
  
    '
     Rows("509:509").Select
     Selection.Delete Shift:=xlUp
    i = i + 1

  LOOP

【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

こんな感じです。

【47897】Re:行の削除に関して
お礼  質問(煮詰まった)  - 07/3/26(月) 9:20 -

引用なし
パスワード
   助かりました。
ありがとうございました。

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