Dear ¤j¤j
¦³¤@Ó¤p°ÝÃD·Q½Ð±Ð¤j¤jÌ,´N¬O§Ú¦b¨Ï¥Î"¶i¶¥¿z¿ï"³oÓ¥\¯à®É,¦n¹³µLªk¸ó·~°õ¦æ
¨Ò¦p¦bsheet2¨Ï¥Î¶i¶¥¿z¿ï«á,¦b"½Æ»s¨ì"³oÓ³¡¥÷¿ï¨ìsheet1½T·|¥¢±Ñ
¥t¥~¦b¨Ï¥Îvba¼¶¼g®É,¤]·|¦³³o¼Ëªº°ÝÃD,µ{¦¡½X¦p¤U (µLªk°õ¦æ)
Sheet2.Select
Sheet2.Range("C4").Select
Sheet2.Range(Selection, Selection.End(xlToRight)).Select
Sheet2.Range(Selection, Selection.End(xlDown)).Select
Selection.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheet1.Range("A2"), Unique:=True
Sheet1.Select
Range("A4").Select
¬O§_¦³¸Ñ¨Mªº¤è¦¡©O??? |