マクロでよければ
Sub test()
Dim i, ii
For i = 1 To Range("a65536").End(xlUp).Row
For ii = 1 To Range("c65536").End(xlUp).Row
If Cells(i, 1).Value = Cells(ii, 3).Value Then Exit For
Next ii
If ii = Range("c65536").End(xlUp).Row + 1 Then
If Range("c65536").End(xlUp).Value = "" Then
Range("c65536").End(xlUp).Value = Cells(i, 1).Value
Else
Range("c65536").End(xlUp).Offset(1).Value = Cells(i, 1).Value
End If
End If
Next i
End Sub
お礼
ありがとうございました。解決しました。