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

sammay

請問各位前輩：
如題，一開始從工作表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

回復 1# sammay

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

複製代碼

下載 (74.88 KB)

2012-2-29 12:16

sammay

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

register313

回復 3# sammay

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

sammay

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

register313

回復 5# sammay

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

sammay

回復 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。
就是這樣，多謝費心指導。

register313

回復 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)

下載次數: 6

2012-3-1 10:24

sammay

回復 8# register313
謝謝register313大大的回覆，後來也想到其他的方法，就是將SHEET A資料複製到其他的固定名稱的工作表，然後再複製到SHEET B