|
今回"まとめ"シートの中の"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
うまくいかない原因を教えてください。
|
|