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

¿z¿ï«á,±NÀx¦s®æ¸ê®Æ½Æ»s¨ì¨ä¥¦ªÅ¥ÕÀx¦s®æ(¤wª¦¤å

With ActiveSheet.AutoFilter.Range
¡@¡@¡@.AutoFilter Field:=1, Criteria1:="AA"
¡@¡@¡@.Offset(1).Copy [E14]
¡@¡@¡@.AutoFilter Field:=1
End With

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤Hªº§Ö¼Ö¡D¤£¬O¦]¬°¥L¾Ö¦³±o¦h¡A¦Ó¬O¦]¬°¥L­p¸û±o¤Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD