返回列表 上一主題 發帖

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

gracyei

帖子
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)
收藏 分享

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2012-7-9 16:12 | 只看該作者
回復 1# gracyei
如何篩選 ... 出的結果,如何複製到...... 要說清楚啊

TOP

gracyei

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

論壇贊助勳章
3#
發表於 2012-7-9 21:26 | 只看該作者
回復  gracyei
如何篩選 ... 出的結果,如何複製到...... 要說清楚啊
GBKEE 發表於 2012-7-9 16:12


SORRY!!說的不夠清楚,講AAA.xls篩選後再將結果依序複製到BBB.xls,不好意思麻煩GBKEE大大了!!
AAA.rar (12.56 KB) BBB.rar (5.07 KB)

TOP

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
4#
發表於 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
複製代碼
學海無涯_不恥下問

TOP

gracyei

帖子
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

gracyei

帖子
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

Hsieh

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

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

帖子
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

        靜思自在 : 小事不做、大事難成。
返回列表 上一主題