excel中如何合并多个sheet到一个表？

时间：2016-08-22 19:57:16 阅读：227 评论：0 收藏：0 [点我收藏+]

转自老外的帖子，试过了管用：https://www.extendoffice.com/documents/excel/1184-excel-merge-multiple-worksheets-into-one.html

excel中打开宏编辑器，粘贴如下宏代码：

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

运行宏

原文：http://www.cnblogs.com/linzhen/p/5796535.html

踩

(0)

评论一句话评论（0）

分享档案

更多>