²M³æ ²M

myleoyes

¦U¦ì«e½ú§A­Ì¦n!
       «e½ú!°ÝÃD¦pªþÀÉ®×»¡©ú
         ½Ðª¾¹Dªº«e½ú,¤£§[½ç±ÐÁÂÁ¦A¤T!!

Hsieh

­×§ï³o¦æ
Set C = Columns("B").Find(Trim(b), lookat:=xlWhole)
¦¨
Set C = Columns("B").Find(b, lookat:=xlWhole)

myleoyes

GBKEE«e½ú§A¦n!
¡@¡@¡@¡@ ¨}®v!!°ÝÃD¦pªþÀÉ®×»¡©ú
                  ½Ð¦A¨¯­WÅo!ÁÂÁ¦A¤T!!

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¤°»ò ¤ñ¹ï¤°»ò

myleoyes

GBKEE«e½ú§A¦n!
¡@¡@¡@¡@ ¨}®v!!±Ï©R°Ú!!¬°¦ó¦p¦¹...!!
              µLªk¥¿½T¤ñ¹ïªþÀɽЦA¨¯­WÅo!ÁÂÁ¦A¤T!!

myleoyes

GBKEE«e½ú§A¦n!
¡@¡@ ¨}®v!¤Ó´ÎÅo!!ÁÂÁ¦A¤T!!

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

myleoyes

GBKEE«e½ú§A¦n!
¡@¡@®¥³ß!!¨}®v®Ê¤Éª©¥D·í¤§µL·\!!¤ï¶Õ°Õ!¤p§Ì³Ìªñ¸û¦£
         ¤S§âÀɮק˿ù..½d¨ÒÀ³¸Ó¦p¤ULeov1-2.xls
       ¤£¹L§Aªºµ{¦¡¬O¹ïªº¥u¬O¸I¨ì¸óÄæ¦Ü¤¤
         ·|¥YºlªþÀɽЦA¨¯­WÅo!ÁÂÁ¦A¤T!!

myleoyes

¦Ñ®L«e½ú§A¦n!
    «e½úÁÂÁÂ!!¤ï¶Õ°Õ!!¤p§Ì¹ï©ó¼Ï¯Ã¤ÀªRªí
     ¹ê¦b¤£À´§ó¤£ª¾­n¦p¦óµÛ¤â....?
    ¥H«á·|ºCºC¾Ç²ß
     «e½ú¤£§[½ç±ÐÁÂÁ¦A¤T!!

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