[問題] excel 分頁明細 合併在一個分頁

[addisons18 (慌慌張張)]

(若是和其他不同軟體互動之問題 請記得一併填寫)
軟體:excel

版本: 2010

大家好

我的需求是

我的一個excel檔案裡，有200個分頁

我想要將每一個分頁裡的B2~J200

全部顯示在同一個分頁 (不是要相加或是計算數量 是要把明細全部整併在一個分頁裡看)


網路上查了很多

也試了用插入模組的方式輸入以下資料

Sub Combine()
 Dim J As Integer
 On Error Resume Next
 Sheets(1).Select
 Worksheets.Add
 Sheets(1).Name = "Combined"
 Sheets(2).Activate
 Range("A1").EntireRow.Select
 Selection.Copy Destination:=Sheets(1).Range("A1")
 For J = 2 To Sheets.Count
 Sheets(J).Activate
 Range("A1").Select
 Selection.CurrentRegion.Select
 Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
 Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)
 Next
 End Sub

但是這個好像不符合我的需求，照理應該要可以選擇每個分頁的起始結束範圍
(例如我是要B2~J200)

不知道到底該怎麼做，剛也爬了版上文章，

但是關於EXCEL分頁合併的資料很少, 所以才來請版上高手協助一下 > <

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 210.69.138.172
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1495105746.A.77C.html
→ soyoso: 將range("a1").select至select.offset(1,0).resize()改為
→ soyoso: 原文要的範圍
→ soyoso: 另外range("a1").entirerow.select和下一行就看原po有沒有
→ soyoso: 要複製標題列，如無則可取消