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

p212

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

mistery

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

Sub test2()

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

End Sub

mistery

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