返回列表 上一主題 發帖

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

sammay

帖子
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。
  1. Sheets(ActiveSheet.Name).Select
  2. Range("N14").Select
  3. Selection.Copy
  4. Sheets("B").Select
  5. Range("C18").Select
  6. Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks _
  7.     :=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
  1. Sub XX()
  2.   Sheet2.[C18] = Sheet1.[N14]   '工作表A => Sheet1 , 工作表B => Sheet2
  3. End Sub
複製代碼

TOP

sammay

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

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

帖子
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
　頭銜: 麻辣 路人甲

大學生Rank: 4

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

2012龍年全勤獎章熱烈參與勳章
8#
發表於 2012-3-1 10:24 | 只看該作者
回復 7# sammay

把所有工作表(除工作表B之外)之A2複製到工作表B的A2以下儲存格
  1. Sub AA()
  2. For Each Sh In Sheets
  3. If Sh.Name <> "工作表B" Then
  4.   Sheets("工作表B").[A65536].End(xlUp).Offset(1, 0) = Sh.[A2]
  5. End If
  6. Next
  7. End Sub
複製代碼
CopySheets.rar (6.97 KB)

TOP

sammay

帖子
67 
主題
21 
精華
0 
積分
113 
點名
0  
作業系統
Windows 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2011-11-21 
最後登錄
2019-4-23 
9#
發表於 2012-3-1 11:50 | 只看該作者
回復 8# register313
謝謝register313大大的回覆，後來也想到其他的方法，就是將SHEET A資料複製到其他的固定名稱的工作表，然後再複製到SHEET B

TOP

        靜思自在 : 君子立恆志，小人恆立志。
返回列表 上一主題