標題:
同個活頁簿裡合併各工作表(至同一個工作表)
[打印本頁]
作者:
k8234g
時間:
2016-11-2 11:21
標題:
同個活頁簿裡合併各工作表(至同一個工作表)
如題~~~
有上網找到以下的VBA，但實際操作發現它只能複製到A1~C1欄，想請問要如何修改，才能自動將同個活頁簿裡每個工作表的所有內容統一複製到同一個工作表?
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
作者:
starry1314
時間:
2016-11-4 20:03
回復
1#
k8234g
試試看~
[attach]25726[/attach]
作者:
k8234g
時間:
2016-11-18 18:26
回復
2#
starry1314
好的~~ 謝謝您!:)
作者:
k8234g
時間:
2017-2-3 16:30
回復
2#
starry1314
您好，我不太會用欸> ＜＂ 我把檔案開啟沒有看到巨集
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
