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

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

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

½Ð±Ð¦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)

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

TOP

¦^´_  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) BBB.rar (5.07 KB)

TOP

¦^´_ 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
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_  gracyei

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

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

TOP

¦^´_  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Á±оÉ!!

TOP

¦^´_ 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
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

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

TOP

        ÀR«ä¦Û¦b : ¤p¨Æ¤£°µ¡B¤j¨ÆÃø¦¨¡C
ªð¦^¦Cªí ¤W¤@¥DÃD