[[20200806093305]]　『重複しているセルの一番上だけ残したいです。』（かななん）　ページの最後に飛ぶ

『重複しているセルの一番上だけ残したいです。』（かななん）

お世話になっております。
重複しているセルの一番上だけ残したいです。

Sub Sample2()
　　Dim i As Long
　　For i = 1 To 1000
　　　　If WorksheetFunction.CountIf(Range("A1:A1000"), Cells(i, 1)) > 1 Then
　　　　　　Cells(i, 1).Clear
　　　　End If
　　Next i
End Sub　

COUNTIFのフラグは1以上が建っていますので
これだど　セルを2こ消してしまいます。。
オートフィルター機能はセルの位置が変わってしまいますので
使いたくありません。
なにか手があるのでしょうが考えても思いつきません。。
お手数ですがお願いいたします。

＜使用 Excel：Office365、使用 OS：Windows10 ＞

　　For i = 1000 To 1 Step -1
（mm） 2020/08/06(木) 09:47

mm様お返事大変遅くなりましてすいません
ありがとうございます！！
stepについて勉強します
（かななん） 2020/08/17(月) 13:47

コメント返信：

[ 一覧(最新更新順) ]

[[20200806093305]] 『重複しているセルの一番上だけ残したいです。』（かななん） ページの最後に飛ぶ

[[20200806093305]]　『重複しているセルの一番上だけ残したいです。』（かななん）　ページの最後に飛ぶ