- 帖子
- 20
- 主題
- 11
- 精華
- 0
- 積分
- 33
- 點名
- 0
- 作業系統
- Window 7
- 軟體版本
- 2010
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2016-10-24
- 最後登錄
- 2024-7-6
 
|
同個活頁簿裡合併各工作表(至同一個工作表)
如題~~~
有上網找到以下的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 |
|
發表於 2016-11-2 11:21
| 
