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

[µo°Ý] ¦p¦ó¨Ï¥ÎVBA´£¨ú°ß¤@­È§e²{©ó«D¸ê®Æ¨Ó·½¤§¤u§@ªí

[µo°Ý] ¦p¦ó¨Ï¥ÎVBA´£¨ú°ß¤@­È§e²{©ó«D¸ê®Æ¨Ó·½¤§¤u§@ªí

¥»©«³Ì«á¥Ñ p212 ©ó 2014-8-8 09:30 ½s¿è

¥Ñ©ó¸ê®Æµ§¼Æ²³¦h¡A¨Ï¥Î°}¦C¨ç¼Æ´£¨ú°ß¤@­È³B²z®Ä²v¬Æ®t¡C
´N¹Ï¥Ü½d¨Ò¡A·Ð½Ð¦U¦ì«e½ú½ç±Ð¡A¦p¦ó¨Ï¥ÎVBA´£¨ú°ß¤@­È§e²{©ó«D¸ê®Æ¨Ó·½¤§¤u§@ªí(Fig2)¡AÁÂÁ¡I

Fig1.jpg (69.57 KB)

Fig1.jpg

Fig2.jpg (53.37 KB)

Fig2.jpg

´£¨ú°ß¤@­È.zip (8.69 KB)

Sub test()
    Columns("C:C").Select
    Columns("C:C").AdvancedFilter Action:=xlFilterCopy, _
    CopyToRange:=Sheets(2).Range("A1"), Unique:=True
    Sheets(2).Select
End Sub

TOP

¤]¥i¥H¸Õ¸Õ³o­Ó

Sub test2()

    Columns("C").Copy Sheets(2).Columns("A")
    Sheets(2).Columns("A:A").RemoveDuplicates Columns:=1, Header:=xlYes

End Sub

TOP

        ÀR«ä¦Û¦b : ¯à¥I¥X·R¤ß´N¬OºÖ¡A¯à®ø°£·Ð´o´N¬O¼z¡C
ªð¦^¦Cªí ¤W¤@¥DÃD