帖子: 67
主題: 21
精華: 0
積分: 113
點名: 0
作業系統: Windows 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-11-21
最後登錄: 2019-4-23

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2012-2-29 11:18 | 只看該作者

[發問] 工作表A與工作表B之間來回複製

請問各位前輩：
如題，一開始從工作表A複製一定範圍到工作表B後，再回到工作表A複製一定範圍到工作表B，如此連續直到資料複製完成。
請問在工作表B複製完成後如何回到工作表A呢？然後，繼續從工作表A複製一定範圍到工作表B。
P.S.工作表A的名稱會變動，不是固定的。我用ActiveSheet.Name來取得工作表A的名稱，複製完後會停在工作表B。

Sheets(ActiveSheet.Name).Select
Range("N14").Select
Selection.Copy
Sheets("B").Select
Range("C18").Select
Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks _
:=False, Transpose:=False

複製代碼

樓主熱帖

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

2^#

發表於 2012-2-29 12:16 | 只看該作者

回復 1# sammay

Sub XX()
Sheet2.[C18] = Sheet1.[N14] '工作表A => Sheet1 , 工作表B => Sheet2
End Sub

複製代碼

TOP

sammay

中學生 Rank: 2

帖子: 67
主題: 21
精華: 0
積分: 113
點名: 0
作業系統: Windows 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-11-21
最後登錄: 2019-4-23

3^#

發表於 2012-2-29 13:45 | 只看該作者

回復 2# register313
謝謝register313大大的回覆，但是如此一來工作表增加，就會有問題。

TOP

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

4^#

發表於 2012-2-29 13:59 | 只看該作者

回復 3# sammay

使用VBA編輯器內的工作表名稱Sheet1,Sheet2...此名稱是不會變的(即始是改了每個工作表下方的名稱)

TOP

sammay

中學生 Rank: 2

帖子: 67
主題: 21
精華: 0
積分: 113
點名: 0
作業系統: Windows 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-11-21
最後登錄: 2019-4-23

5^#

發表於 2012-2-29 16:42 | 只看該作者

回復 4# register313
謝謝register313大大的回覆，若工作表增加了，那程式不就要重改，因為工作表A會一直增加。

TOP

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

6^#

發表於 2012-2-29 16:54 | 只看該作者

回復 5# sammay

不了解你的意思
可否給個範例說明

TOP

sammay

中學生 Rank: 2

帖子: 67
主題: 21
精華: 0
積分: 113
點名: 0
作業系統: Windows 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-11-21
最後登錄: 2019-4-23

7^#

發表於 2012-3-1 08:36 | 只看該作者

回復 6# register313
不好意思，我表達不夠清楚。
SHEET A 代表紀錄資料一，但其會有紀錄資料二（SHEET C）、紀錄資料三（SHEET D）…，紀錄資料的工作表會一直產生（SHEET E）…
SHEET B 代表紀錄結果報表輸出，SHEET A、 SHEET C、SHEET D、SHEET E …的資料會複製到SHEET B來輸出。但一次只能是SHEET A copy data to SHEET B。
就是這樣，多謝費心指導。

TOP

register313