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

home1913

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

¤U¸ü¦¸¼Æ: 11

2013-6-17 18:31

¥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

home1913

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

c_c_lai

¦^´_ 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

¤U¸ü (35.9 KB)

2013-6-19 13:07

softsadwind

¦^´_ 2# home1913

§A¬Ý¬Ý §Ú§â§A·Ç«h¤Uªºsku ³£­nº¡¨¬loc ¥]§t1 ©M Avail ¤j©ó0³o¨â­Ó±ø¥ó §Ú¬Oª½±µ¥Î¶i¶¥¿z¿ï

¤U¸ü (400.4 KB)

2013-6-19 16:32

home1913

¨º§Ú·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:= _

softsadwind

¦^´_ 5# home1913

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

¤U¸ü¦¸¼Æ: 4

2013-6-20 09:32

¶¤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