ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

¦p¦ó±N¤@Äæ¸ê®Æ¨ú¥X¨Ó¡H

Sub Macro1()
    Columns("A:A").AdvancedFilter xlFilterCopy, CopyToRange:=[B1], Unique:=True
End Sub
ù

TOP

        ÀR«ä¦Û¦b : ¤H¨ÆªºÁ}Ãø»PµZ¿i¡A´N¬O¤@ºØ¦ÒÅç¡C
ªð¦^¦Cªí ¤W¤@¥DÃD