は、私は下のようにソートされた列を持っている

Question

を見つけましたアミット

ジャック

ジャック

ジャック

ジャック、私は重複のためにクリア（削除されません）最後の重複セル（行せず）にしたい

は、上記の例の第三アミットと4ジャックにfound.Like値は、セルから消去されます。

問題：重複をクリアする多くのマクロ/ vbaを見つけることができますが、すべての重複は保持しますが、最後の重複値のみを消去することはできません。

いくつかお手伝いできますか？

Answer 1

たぶんそれが役立つだろう：

For Each cell In Application.Intersect(InsertNameOfTableHere.UsedRange.Offset(1, 0), InsertNameOfTableHere.Columns(1)) 
    If cell = cell.Offset(-1, 0) And cell <> cell.Offset(1, 0) Then 
     cell.Value = "" 
    End If 
Next