Excel VBA質問箱 IV

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

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


70848 / 76734 ←次へ | 前へ→

【10388】Re:ループで該当する行を削除
発言  BOTTA  - 04/1/23(金) 10:54 -

引用なし
パスワード
   ichinoseさん、かみちゃんさん、チリさん、こんにちは。

該当行のみをUnionメソッドで複数指定して、一気にDelete。

Sub DelRow()
Dim rngDel As Range, LastRow As Long, topR As Long, i As Long
  topR = 3 'この行まで削除(1,2行目は無視)
  LastRow = Range("C" & Rows.Count).End(xlUp).Row
  If LastRow < topR Then Exit Sub
  Set rngDel = Range("C" & LastRow + 1)
  For i = LastRow To topR Step -1
    If Range("C" & i).Value = "" Then
      Set rngDel = Union(rngDel, Range("C" & i))
    End If
  Next
  rngDel.EntireRow.Delete
  Set rngDel = Nothing
End Sub

1 hits

【10385】ループで該当する行を削除 チリ 04/1/22(木) 21:03 質問
【10386】Re:ループで該当する行を削除 かみちゃん 04/1/22(木) 23:40 回答
【10387】Re:ループで該当する行を削除 ichinose 04/1/23(金) 7:18 発言
【10388】Re:ループで該当する行を削除 BOTTA 04/1/23(金) 10:54 発言
【10389】Re:ループで該当する行を削除 チリ 04/1/23(金) 12:33 お礼

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