ªð¦^¦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

¦^´_ 2# home1913
³o¬O¤£¬O§A·Q­nªºµª®×¡G
  1. Sub Ex()
  2.     Range("A:D").Select
  3.     Sheets("®w¦s").Cells.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
  4.         Range("I1:J2"), CopyToRange:=Range("L1"), Unique:=False
  5. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# home1913

§A¬Ý¬Ý §Ú§â§A·Ç«h¤Uªºsku ³£­nº¡¨¬loc ¥]§t1 ©M Avail ¤j©ó0³o¨â­Ó±ø¥ó §Ú¬Oª½±µ¥Î¶i¶¥¿z¿ï
123.gif
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

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

¦^´_ 5# home1913

¶i¶¥¿z¿ï.rar (27.7 KB)
¶¤F¤@°é...À³¸Ó¦³§óºë²ªº¤è¦¡
  1. Private Sub CommandButton1_Click()
  2.     Range("L:O").Clear
  3.     Range("G2:H2").Copy
  4.     Range([G3], [F65535].End(xlUp).Offset(, 2)).Select
  5.     ActiveSheet.Paste
  6.         Columns("A:D").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
  7.         [F1], [H65535].End(xlUp)), CopytoRange:=Range("L1:O1"), Unique:=False
  8.     Range([G3], [F65535].End(xlUp).Offset(, 2)).Clear
  9. End Sub
½Æ»s¥N½X
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

        ÀR«ä¦Û¦b : ½_ÁJµ²±o¶V¹¡º¡¡A¶V·|©¹¤U««¡A¤@­Ó¤H¶V¦³¦¨´N¡A´N­n¶V¦³Á¾¨Rªº¯ÝÃÌ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD