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

質問

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

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

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

回答No.2

watabe007 · ベストアンサー

参考に
Sub Test()
　　Dim v As Variant
　　Dim i As Long
　　Dim strName As String

　　v = Range("A2", Cells(Rows.Count, "A").End(xlUp)).Resize(, 3)
　　For i = 1 To UBound(v)
　　　　If strName <> v(i, 1) Then
　　　　　　strName = v(i, 1)
　　　　Else
　　　　　　v(i, 3) = ""
　　　　End If
　　Next
　　Range("A2").Resize(UBound(v), 3).Value = v
End Sub

お礼

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

回答No.1

noname#231195

Sub DeleteDuplicate()
While ActiveCell.Value <> ""
If ActiveCell.Offset(0, -2).Value = ActiveCell.Offset(-1, -2).Value Then
ActiveCell.Value=""
End If
ActiveCell.Offset(1, 0).Select
Wend
End Sub

C1のセルを選択してこのプロシージャを走らせます。
C列で空白セルが出てくるところまで走ります。

お礼

szo_orzさん、早速にありがとうございます。