エクセル 重複 隣の列 一番上だけの数値を残す ＶＢＡ

いつもありがとうございます。
エクセルで、Ａ列を検索し重複があれば、Ｃ列のデータを空白にするＶＢＡを検討しております。
Ａ列のデータは削除するのではなく、残したままです。

画像の通りです。Ａ列の並び替え済みで、データは毎回異なります。

急いでおります。ご教示頂ければ幸いです。
よろしくお願いします。

No.1 ベストアンサー 回答者： hallo-2007 回答日時： 2015/12/27 14:58

添付の画像の様に

Ａ列のデータが順に並んでいたら、至って簡単ですね。

Sub ボタン1_Click()
For i = 2 To Range("A2").End(xlDown).Row
If Range("A" & i).Value = Range("A" & i - 1).Value Then
Range("C" & i).Value = ""
End If
Next
End Sub

こんな感じになります。

この回答へのお礼

hallo-2007さん、ありがとうございます。
思ったとおりになりました！

お礼日時：2015/12/27 15:56