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

¶i¶¥¿z¿ïªº°ÝÃD

Sheet2.Range("C4").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheet1.Range("A2"), Unique:=True
°õ¦æ¶i¶¥¿z¿ï¥²¶·¦b¥Øªº¤u§@ªí¤W°õ¦æ¡A¤£¬O¦b¸ê®Æ·½¤u§@ªí¤W¡C¥Îvba®Éª`·N¤£­nselect¨ì·½ªí¡C

TOP

´ú¸Õ¶i¶¥¿z¿ï.rar (8.2 KB)

TOP

a.gif

TOP

        ÀR«ä¦Û¦b : ¡i¬O§_µo´§¤F¨}¯à¡H¡j¤H¶¡¹Ø©R¦]¬°µu¼È¡A¤~§óÅã±o¬Ã¶Q¡CÃø±o¨Ó¤@½ë¤H¶¡¡AÀ³°Ý¬O§_¬°¤H¶¡µo´§¤F¦Û¤vªº¨}¯à¡A¦Ó¤£­n¤@¨ý¨Dªø¹Ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD