Excel VBA質問箱 IV

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

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


24181 / 76732 ←次へ | 前へ→

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

引用なし
パスワード
   ▼tak さん:

すみません。仕様を誤解してました m(__)m

>「5行以上同じ値が続いていたら、その行はすべて削除」

ということでしたので、上のでは仮に動いたとしても、すべて削除は
してくれません。
とりあえず、以下に修正します。

Sub test3()
 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 To 2 Step -1 '最下行から1行ずつ上昇
   v1 = Cells(i - 1, 列).Value
   If v1 <> v2 Then
     GoSub CheckCount
   Else
     n = n + 1 - (n = 0)
   End If
   v2 = v1
 Next i
 GoSub CheckCount
Exit Sub
 
CheckCount:
 If n >= 5 Then
   With Rows(i).Resize(n)
     .Select '.Delete
     Stop
   End With
   n = 0
 End If
 Return
 
End Sub

0 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 発言

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