ªð¦^¦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 : ¡i®É¤é²öªÅ¹L¡j¤@­Ó¤H¦b¥@¶¡°µ¤F¦h¤Ö¨Æ¡A´Nµ¥©ó¹Ø©R¦³¦hªø¡C¦]¦¹¥²¶·»P®É¶¡Ävª§¡A¤Á²ö¨Ï®É¤éªÅ¹L¡C
ªð¦^¦Cªí ¤W¤@¥DÃD