返回列表下一主題上一主題發帖

複製多個工作表的內容

lovegowan

小學生 Rank: 1

帖子: 4
主題: 1
精華: 0
積分: 5
點名: 0
作業系統: win10
軟體版本: office 2016
閱讀權限: 10
註冊時間: 2019-8-17
最後登錄: 2021-7-22

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2019-8-22 21:08 | 顯示全部帖子

複製多個工作表的內容

大家好，這是第一次發文

小妹不才..目前正在學習中，最近需要處理大量的資料

需要將每日的工作表大量彙整，說明

多個工作表複製.rar (13.58 KB) 如附檔

只想的到先用公式INDIRECT或者寫單一從各工作表複製貼上
但一項一項改很耗時，所以來請教....

謝謝各位不吝指教 :)

每日的工作表如下圖

需要將每日的項目以橫向的方式貼至下圖

非常感謝(鞠躬)

lovegowan

小學生 Rank: 1

帖子: 4
主題: 1
精華: 0
積分: 5
點名: 0
作業系統: win10
軟體版本: office 2016
閱讀權限: 10
註冊時間: 2019-8-17
最後登錄: 2021-7-22

2^#

發表於 2019-8-23 13:11 | 顯示全部帖子

補充：目前只知道可以這麼寫
Sub 複製貼上()
Worksheets("1").Range("F30:N30").Copy _
Worksheets("sheet1").Range("B3")
Worksheets("1").Range("F31:N31").Copy _
Worksheets("sheet1").Range("K3")
Worksheets("1").Range("F32:N32").Copy _
Worksheets("sheet1").Range("T3")
Worksheets("1").Range("F33:N33").Copy _
Worksheets("sheet1").Range("AC3")
.
.
.
End Sub
以此類推，但因為工作表過多，不太可能把每個"1"改成"2"或"3"....
請教該用什麼迴圈來簡化重複的動作....感謝

TOP

lovegowan