[µo°Ý] AÀÉ¿z¿ï«á½Æ»s¨ìBÀÉ

gracyei

½Ð±Ð¦U¦ì°ª¤â¤j¤j:
¦p¦ó±qA.xlsªº¤À­¶¤¤¿z¿ï¥Xªºµ²ªG,½Æ»s¨ìB.xlsªº¬Û¦P¤À­¶¤¤(A.xls&B.xlsªº¤À­¶¬O¬Û¦Pªº),½Ð¦U¦ì¤j¤jÀ°¦£!!
AAA.rar (12.37 KB)

¤U¸ü¦¸¼Æ: 7

2012-7-9 14:51

GBKEE

¦^´_ 1# gracyei
¦p¦ó¿z¿ï ... ¥Xªºµ²ªG,¦p¦ó½Æ»s¨ì...... ­n»¡²M·¡°Ú

gracyei

¦^´_  gracyei
¦p¦ó¿z¿ï ... ¥Xªºµ²ªG,¦p¦ó½Æ»s¨ì...... ­n»¡²M·¡°Ú
GBKEE µoªí©ó 2012-7-9 16:12

SORRY!!»¡ªº¤£°÷²M·¡,Á¿AAA.xls¿z¿ï«á¦A±Nµ²ªG¨Ì§Ç½Æ»s¨ìBBB.xls,¤£¦n·N«ä³Â·ÐGBKEE¤j¤j¤F!!
AAA.rar (12.56 KB)

¤U¸ü¦¸¼Æ: 17

2012-7-9 21:26

BBB.rar (5.07 KB)

¤U¸ü¦¸¼Æ: 15

2012-7-9 21:19

Hsieh

¦^´_ 3# gracyei

AAA.xls¤@¯ë¼Ò²Õ

1. Sub ex()
   
2. Dim Sh As Worksheet, Sht$, i%
   
3. For Each Sh In ThisWorkbook.Sheets
   
4. With Sh
   
5.    Sht = .Name
   
6.    For i = 3 To 4
   
7.    .Range("$A$1").CurrentRegion.AutoFilter Field:=i, Criteria1:=">=10000" _
   
8.         , Operator:=xlAnd
   
9.    .Columns("A:D").SpecialCells(xlCellTypeVisible).Copy Workbooks("BBB.xls").Sheets(Sht).[A2].Offset(, (i - 3) * 4)
   
10.    .ShowAllData
    
11.    Next
    
12. End With
    
13. Next
    
14. End Sub

½Æ»s¥N½X

gracyei

¦^´_  gracyei

AAA.xls¤@¯ë¼Ò²Õ
Hsieh µoªí©ó 2012-7-9 21:55

½Ð°ÝHsieh¤j¤j
¤£À´³o¬qOffset(, (i - 3) * 4)¥Nªíªº·N«ä??·PÁÂÀ°¦£!!

gracyei

¦^´_  gracyei

AAA.xls¤@¯ë¼Ò²Õ
Hsieh µoªí©ó 2012-7-9 21:55

Hsieh¤j¤j
¤£¦n·N«ä¤S¦h¤@­Ó°ÝÃD,­Y§Úªº¿z¿ï¦C¬O¦bA5¦C,¨º§Ú³o¥y.Range("$A$1").CurrentRegion.
¬O¤£¬O¥i¥H§ï¦¨.Range("$A$5").CurrentRegion.   
·PÁ±оÉ!!

Hsieh

¦^´_ 6# gracyei
Offset(, (i - 3) * 4)
¬O¦]¬°§A½Æ»s¨ìBÀɮ׫á¬O¥H4Äæ©ñ¸m¸ê®Æ
·íi=3®É(·Ç«h¬°CÄæ)©ñ¦bAÄæ¡A·íi=4®É(·Ç«h¬°DÄæ)©ñ¦bEÄæ

¦Ü©óAÀɮ׸ê®Æ¦ì¸mªº¤£¦P¬O§_¥i±NA1§ï¦¨A5
³o­n¬Ý§A¾ã­Ó¤u§@ªí¸ê®Æ©ñ¸mªº±¡§Î
¦Ó¥B½Æ»sªº³¡¤À¤]±N¦³©Ò¤£¦P

gracyei

¦^´_  gracyei
Offset(, (i - 3) * 4)
¬O¦]¬°§A½Æ»s¨ìBÀɮ׫á¬O¥H4Äæ©ñ¸m¸ê®Æ
·íi=3®É(·Ç«h¬°CÄæ)©ñ¦bA ...
Hsieh µoªí©ó 2012-7-11 08:42

      ·PÁÂHsieh¤j¤jªº¦^ÂÐ,¤p§Ì¤F¸Ñ¤F