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

[µo°Ý] ¦h±ø¥ó¶i¶¥¿z¿ï§Ö³t¤èªk

[µo°Ý] ¦h±ø¥ó¶i¶¥¿z¿ï§Ö³t¤èªk

¶i¶¥¿z¿ï.rar (21.8 KB)

¥IÀɤ¤¦³2­¶­±¡A¤@¬°®w¦s­¶­±¡A¥t¤@¬°¶i¶¥¿z¿ï±ø¥ó¤Îµ²ªG¡A
¥Ø«e·Q¨Ï¥Î¥¨¶°¶]¥Xµ²ªG¡A°¾°¾¥d¦b²Ä¤@¨B±ø¥ósku¸Ì¡A¨C¦¸sku¬Ò·|¤£¦P®æ¼Æ¡A
¤]µLªk±N²Ä¤G¨B±ø¥ó¤@¨Ö¨Ï¥Î¡A©Ò¥H´N¤À¤F¤G¬q¡A½Ð±Ð¬O§_¦³¤èªk¥i¥H§JªA²Ä¤@¨B±ø¥ó¡A
¤Îª½±µ¥[¤J²Ä¤G¨B±ø¥ó
·PÁ¡I

³Â·Ð¦U¦ì«e½ú±Ð±Ð§Ú³oÃD¸Ó¦p¦ó¸Ñ~

TOP

¨º§Ú·Q°Ý»¡¤U­±¬õ¦r³¡¥÷­n¦p¦ó­×§ï¿ï¨ú®æ¤l¤º¦³ªF¦èªº½d³ò¶Ü?
¦]¬°¨C¦¸Sku±ø¥ó¬Ò¤£¦P

Range("E1:H1").Select
Sheets("®w¦s").Columns("A").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("A2:A39"), CopyToRange:=Range("E1:H1"), Unique:= _

TOP

        ÀR«ä¦Û¦b : ¡i¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD