Excel VBA質問箱 IV

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

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


24182 / 76732 ←次へ | 前へ→

【57901】Re:同じ値が数行以上続いたら行削除
発言  kanabun  - 08/9/19(金) 16:24 -

引用なし
パスワード
   あと、こんなふうにも書けるんでは、と思いましたので、投稿
しておきます。
比較する2つのセルの値を変数に入れて処理しています。

Sub test2()
 Dim i As Long, under As Long, n As Long
 Const 列 = 1
 Dim v1 As String, v2 As String

 '1列目の入力セルの最下行番号
 under = Cells(Rows.Count, 列).End(xlUp).Row

 v2 = Cells(under, 列).Value
 For i = under - 1 To 1 Step -1 '(最下行-1)から1行ずつ上昇
   v1 = Cells(i, 列).Value
   If v1 = v2 Then
     n = n + 1 - (n = 0)
     If n >= 5 Then
       With Rows(i).Resize(5)
         .Select '.Delete
         Stop
       End With
       n = 0
     End If
   Else
     n = 0
   End If
   v2 = v1
 Next i

End Sub

(★チェックのため、削除行を Select して Stop しています。
 続行するには [F5]キーを押してください。
 実用時には、 .Select を .Delete に代え、 Stop をコメント化してください)
1 hits

【57898】同じ値が数行以上続いたら行削除 tak 08/9/19(金) 15:27 質問
【57899】Re:同じ値が数行以上続いたら行削除 kanabun 08/9/19(金) 15:54 発言
【57903】Re:同じ値が数行以上続いたら行削除 tak 08/9/19(金) 16:59 お礼
【57901】Re:同じ値が数行以上続いたら行削除 kanabun 08/9/19(金) 16:24 発言
【57902】Re:同じ値が数行以上続いたら行削除 kanabun 08/9/19(金) 16:49 発言

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