gracyei

小學生 Rank: 1

帖子: 12
主題: 2
精華: 0
積分: 14
點名: 0
作業系統: Window7
軟體版本: Office2003
閱讀權限: 10
註冊時間: 2012-6-26
最後登錄: 2023-8-18

論壇贊助勳章

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2012-7-9 14:52 | 只看該作者

[發問] A檔篩選後複製到B檔

請教各位高手大大:
如何從A.xls的分頁中篩選出的結果,複製到B.xls的相同分頁中(A.xls&B.xls的分頁是相同的),請各位大大幫忙!!

AAA.rar (12.37 KB)

gracyei

小學生 Rank: 1

帖子: 12
主題: 2
精華: 0
積分: 14
點名: 0
作業系統: Window7
軟體版本: Office2003
閱讀權限: 10
註冊時間: 2012-6-26
最後登錄: 2023-8-18

論壇贊助勳章

8^#

發表於 2012-7-12 00:35 | 只看該作者

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

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

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 261
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-10-24

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

7^#

發表於 2012-7-11 08:42 | 只看該作者

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

至於A檔案資料位置的不同是否可將A1改成A5
這要看你整個工作表資料放置的情形
而且複製的部分也將有所不同

學海無涯_不恥下問

TOP

gracyei

小學生 Rank: 1

帖子: 12
主題: 2
精華: 0
積分: 14
點名: 0
作業系統: Window7
軟體版本: Office2003
閱讀權限: 10
註冊時間: 2012-6-26
最後登錄: 2023-8-18

論壇贊助勳章

6^#

發表於 2012-7-10 23:58 | 只看該作者

回復 gracyei

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

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

TOP

gracyei

小學生 Rank: 1

帖子: 12
主題: 2
精華: 0
積分: 14
點名: 0
作業系統: Window7
軟體版本: Office2003
閱讀權限: 10
註冊時間: 2012-6-26
最後登錄: 2023-8-18

論壇贊助勳章

5^#

發表於 2012-7-10 23:10 | 只看該作者

回復 gracyei

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

請問Hsieh大大
不懂這段Offset(, (i - 3) * 4)代表的意思??感謝幫忙!!

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 261
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-10-24

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2012-7-9 21:55 | 只看該作者

回復 3# gracyei

AAA.xls一般模組

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