Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

43466 / 76732

←次へ　｜　前へ→


	【38314】検索～比較～行削除

ゆっけ - 06/5/31(水) 11:04 -


	引用なし

	パスワード

今回"まとめ"シートの中の"AB列"のなかにある、重複している
データがはいっている(複数重複している)セルを含む行を削除したく
以下のようなコードを作りました。
Sub まとめの整理()

Dim CV_r As Long
Dim F As Variant
Dim St As Long

CV_r = 10

For Each R In Range(Worksheets("まとめ").Range("AB1"), _
Worksheets("まとめ").Range("AB65536").End(xlUp))

Set F = Worksheets("まとめ").Range("AB:AB").Find(R.Value, , , xlPart, , , False, False)
　　　　　
If Not F Is Nothing Then
　With Worksheets("まとめ")
　　.Cells(CV_r, 27).EntireRow.Delete
　　 CV_r = CV_r + 1
　　　　　　　　　　
St = F.row
Set F = Worksheets("まとめ").Range("AB:AB").FindNext(F)
　　Do While F.row <> F.row
　　 .Cells(CV_r, 27).EntireRow.Delete
　　 CV_r = CV_r + 1
　　 Set F = ws.Range("AB:AB").FindNext(F)
　　Loop
　End With
End If
Next R
Worksheets("まとめ").Range("AB:AB").Clear
End Sub

うまくいかない原因を教えてください。

0 hits

▼

【38314】検索～比較～行削除 ゆっけ 06/5/31(水) 11:04

≪