Board logo

標題: [發問] A檔篩選後複製到B檔 [打印本頁]
作者: gracyei    時間: 2012-7-9 14:52     標題: A檔篩選後複製到B檔

請教各位高手大大:
如何從A.xls的分頁中篩選出的結果,複製到B.xls的相同分頁中(A.xls&B.xls的分頁是相同的),請各位大大幫忙!!
[attach]11624[/attach]
作者: GBKEE    時間: 2012-7-9 16:12

回復 1# gracyei
如何篩選 ... 出的結果,如何複製到...... 要說清楚啊
作者: gracyei    時間: 2012-7-9 21:26

回復  gracyei
如何篩選 ... 出的結果,如何複製到...... 要說清楚啊
GBKEE 發表於 2012-7-9 16:12


SORRY!!說的不夠清楚,講AAA.xls篩選後再將結果依序複製到BBB.xls,不好意思麻煩GBKEE大大了!!
[attach]11629[/attach][attach]11627[/attach]
作者: Hsieh    時間: 2012-7-9 21:55

回復 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
複製代碼
作者: gracyei    時間: 2012-7-10 23:10

回復  gracyei

AAA.xls一般模組
Hsieh 發表於 2012-7-9 21:55

請問Hsieh大大
不懂這段Offset(, (i - 3) * 4)代表的意思??感謝幫忙!!
作者: gracyei    時間: 2012-7-10 23:58

回復  gracyei

AAA.xls一般模組
Hsieh 發表於 2012-7-9 21:55


Hsieh大大
不好意思又多一個問題,若我的篩選列是在A5列,那我這句.Range("$A$1").CurrentRegion.
是不是可以改成.Range("$A$5").CurrentRegion.   
感謝教導!!
作者: Hsieh    時間: 2012-7-11 08:42

回復 6# gracyei
Offset(, (i - 3) * 4)
是因為你複製到B檔案後是以4欄放置資料
當i=3時(準則為C欄)放在A欄，當i=4時(準則為D欄)放在E欄

至於A檔案資料位置的不同是否可將A1改成A5
這要看你整個工作表資料放置的情形
而且複製的部分也將有所不同
作者: gracyei    時間: 2012-7-12 00:35

回復  gracyei
Offset(, (i - 3) * 4)
是因為你複製到B檔案後是以4欄放置資料
當i=3時(準則為C欄)放在A ...
Hsieh 發表於 2012-7-11 08:42

      感謝Hsieh大大的回覆,小弟了解了



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)