合併更精簡

Sub 合併()
Sheets.Add After:=Sheets(Sheets.Count) ' 新增工作表在最後一張
j = 1 '用於設定列數增加定位用
For i = 1 To Sheets.Count - 1 ' 依工作表張數進行合併
Sheets(i). Range("A1:E11").Copy ' 依序將工作表中的儲存格範圍進行複製
Sheets(Sheets.Count).Paste ' 至最後一張工作表貼上
Sheets(Sheets.Count).Range("A" & j).Select ' 選取下一個貼上的位置
j = j + 12 ' 每次位移12列
Next
Range("A1").Select
End Sub