多張工作表整合 － 同一個檔案

１　點選工具　／　巨集　／　錄製新巨集　／　給名稱　／　確定
２　點選　工具　／　巨集　／　停止錄製
３　點選　工具　／　巨集　／　巨集　／　點選名稱　／　點選編輯
４　上網　／　進入ａｌｅｘｓｉｒ．ｂｌｏｇｓｐｏｔ．ｃｏｍ　網站　／　點選試算表ｖｂａ（左側）
５　請複製　多張工作表整合　－　同一個檔案　本篇的程式內容
內容如下
Sub 整合工作表()
Sheets(1).Select
Sheets.Add
x = InputBox("請輸入整合工作表的數量")
For i = 2 To x + 1 Step 1
Sheets(i).Select
Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy
Sheets(1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
Next
Range("A1").Select
Selection.End(xlDown).Select
y = ActiveCell.Row
Range("A1").Select
Selection.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, Step:=1, Stop:=y, Trend:=False
End Sub
６ 請刪除空巨集　／　進行貼上　然後　執行此〔　整合工作表　〕巨集即可