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

[µo°Ý] ¥ÎExcelªº[¶i¶¥¿z¿ï]¤§[¤£­«Âпz¿ï], ³ºµM·|¿ù»~

¦^´_ 1# yen956
¦]¬° function °²³]§Aªº½d³ò¬O§t¼ÐÃDªº¡A©Ò¥H§â§AªºA8·í¦¨¼ÐÃD¦C
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

¥»©«³Ì«á¥Ñ stillfish00 ©ó 2017-3-29 19:10 ½s¿è

¦^´_ 3# yen956
§Ú¥Î§AªºÀɮפâ°Ê¸Õ¤F´X¦¸¡A¦³®É­Ô¸ò§A¤@¼Ë¡A¦³®É­Ô¥¿±`
¤S§â¤À§O§â¨âºØ±¡ªp³£¿ý»s¥¨¶°¤U¨Ó
¤£¥¿±`ªº±¡ªp¡A¥¨¶°¸Ì³£¬O±qA8¶}©l(¿ïªº®É­ÔÁÙ¬O¦³¿ïA7...) :
Range("A8:A21").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
        "D7"), Unique:=True

¥¿±`ªº±¡ªp¡A¿ý»sªº¥¨¶°¸Ì´N¬O±qA7¶}©l¡C

·Pı¬OExcel¤â°Ê¾Þ§@¤Wªºbug , VBA ªº¸Ü´N¬O­n§t¼ÐÃD¦C

§A¥i¥H¬Ý§Aªº¹Ï¡A§A¦³¿ïA7:A21¡A¶i¶¥¿z¿ïµøµ¡«o¬O"R8C1:R18C1"???¡A³oÃä´N·|³y¦¨¿ù
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

        ÀR«ä¦Û¦b : ¯à·F¤£·F¡A¤£¦p­W·F¹ê·F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD