返回列表 上一主題 發帖

[發問] 請教先進如何將sheet1，sheet2,sheet3,sheet4……..sheet30整合至sheet1

pai1

帖子
20 
主題
7 
精華
0 
積分
84 
點名
0  
作業系統
VISTA 
軟體版本
WINDOW2003 
閱讀權限
20 
性別
男 
來自
埔里 
註冊時間
2011-1-12 
最後登錄
2016-4-9 

論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-1-24 15:38 | 只看該作者

[發問] 請教先進如何將sheet1，sheet2,sheet3,sheet4……..sheet30整合至sheet1

請教如何用Vba將sheet1，sh 整合.rar (26.96 KB) eet2,sheet3,sheet4……..sheet30等共30張sheets複製整合至sheet1如 sheet"總報"排列方式，如此一來利用sheet1就可雙面列印
收藏 分享

kiki88888

帖子
4 
主題
0 
精華
0 
積分
52 
點名
0  
作業系統
windows xp 
軟體版本
office2007 
閱讀權限
20 
性別
女 
註冊時間
2013-8-27 
最後登錄
2015-6-12 
2#
發表於 2015-1-25 00:36 | 只看該作者
找到一個類式的內容可以參考http://www.camdemy.com/media/11876

TOP

pai1

帖子
20 
主題
7 
精華
0 
積分
84 
點名
0  
作業系統
VISTA 
軟體版本
WINDOW2003 
閱讀權限
20 
性別
男 
來自
埔里 
註冊時間
2011-1-12 
最後登錄
2016-4-9 

論壇贊助勳章
3#
發表於 2015-1-25 09:40 | 只看該作者
感謝kiki88888大的回覆，於本網搜尋到一程式
Sub ex()
For i = 2 To Sheets.Count
   Sheets(i).UsedRange.Copy Sheets(1).Cells(Rows.Count, "I").End(xlUp).Offset(24, -8)
Next
End Sub
修改Offest(X,-8),  X數字依表格內容大小增減修改即可，兩程式皆宜，謝謝

TOP

kiki88888

帖子
4 
主題
0 
精華
0 
積分
52 
點名
0  
作業系統
windows xp 
軟體版本
office2007 
閱讀權限
20 
性別
女 
註冊時間
2013-8-27 
最後登錄
2015-6-12 
4#
發表於 2015-1-25 18:01 | 只看該作者
感謝你~讓我可以跟著學習

TOP

        靜思自在 : 一句溫暖的話，就像往別人身上灑香水，自己會沾到兩三滴。
返回列表 上一主題