標題: [發問] 請教先進如何將sheet1，sheet2,sheet3,sheet4……..sheet30整合至sheet1 [打印本頁]

---

作者: pai1    時間: 2015-1-24 15:38     標題: 請教先進如何將sheet1，sheet2,sheet3,sheet4……..sheet30整合至sheet1

請教如何用Vba將sheet1，sh[attach]20138[/attach][attach]20138[/attach][attach]20138[/attach][attach]20138[/attach][attach]20138[/attach]eet2,sheet3,sheet4……..sheet30等共30張sheets複製整合至sheet1如 sheet"總報"排列方式，如此一來利用sheet1就可雙面列印

---

作者: kiki88888    時間: 2015-1-25 00:36

找到一個類式的內容可以參考http://www.camdemy.com/media/11876

---

作者: pai1    時間: 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數字依表格內容大小增減修改即可，兩程式皆宜，謝謝

---

作者: kiki88888    時間: 2015-1-25 18:01

感謝你~讓我可以跟著學習

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)