GBKEE

¦^´_ 1# myleoyes
    Sub ²M³æ()  'Dictionary ª«¥ó
    Dim D As Object
    Set D = CreateObject("SCRIPTING.DICTIONARY")
    With Sheet1
        For Each E In .Range("C2", .Range("C2").End(xlToRight))
            D(E.Value) = ""
        Next
        .[A3].Resize(D.Count, 1) = Application.Transpose(D.KEYS)
    End With
End Sub
Sub ²M³æ() 'Array
    Dim Ar()
    ReDim Preserve Ar(0)
    With Sheet1
        Ar(0) = .[C2]
        For Each E In .Range("D2", .Range("D2").End(xlToRight))
            If UBound(Filter(Ar, E, True)) = -1 Then
                ReDim Preserve Ar(UBound(Ar) + 1)
                Ar(UBound(Ar)) = E
            End If
        Next
        .[A3].Resize(UBound(Ar) + 1, 1) = Application.Transpose(Ar)
    End With
End Sub

GBKEE

¦^´_ 6# myleoyes
Sub ²M³æ()  'Dictionary ª«¥ó
    Dim D As Object
    Set D = CreateObject("SCRIPTING.DICTIONARY")
    With Sheet1
        For Each E In .Range("C2", .Range("IV2").End(xlToLeft))
            If E <> "" Then D(E.Value) = ""
        Next
        .[A3].Resize(D.Count, 1) = Application.Transpose(D.KEYS)
    End With
End Sub
Sub ²M³æS() 'Array
    Dim Ar()
    ReDim Preserve Ar(0)
    With Sheet1
        Ar(0) = .[C2]
        For Each E In .Range("D2", .Range("IV2").End(xlToLeft))
            If E <> "" Then
                If UBound(Filter(Ar, E, True)) = -1 Then
                    ReDim Preserve Ar(UBound(Ar) + 1)
                    Ar(UBound(Ar)) = E
                End If
            End If
        Next
        .[A3].Resize(UBound(Ar) + 1, 1) = Application.Transpose(Ar)
    End With
End Sub

GBKEE

¦^´_ 9# myleoyes

³o­Ó½d¨ÒÂI¿ïA3©ÎA4©ÎA10©ÎA11,¦A«öB2¤ñ¹ï¬ÒµLªk¤ñ¹ï       
¦ý¿ï¾Ü¨ä¥LÀx¦s®æ´N¥¿±`       
½Ð«öA2²M³æ«ì´_­ìª¬½Ð­«½Æ´ú¸Õ       

½Ð¦A²M·¡»¡©ú§A­nªº¬O¤°»ò ¤ñ¹ï¤°»ò