多个sheet合并到一个工作簿中

发布网友

我来回答

1个回答

热心网友

我们常会遇到这样的问题,就是很有很多工作表的数据,少的有几十个工作表,多的可能有几百个工作表,然后需要合并到一个工作表来做数据分析,如果一个个工作表的复制粘贴的话,就比较费时费力。下面微元老师给大家介绍一种利用excel的宏计算来解决此问题的小妙招:

“ 以microsoft office 2007为例”

1.首先我们要有自己的excel数据:

2.看到上图这么多数据页要合并,如果是复制粘贴的话,工作量显然太大。现在我们开始合并,首先要在最前页新建一个工作表:

3.在新建的Sheet1表中的Sheet1处“右键”,找到“查看代码”后单击“左键”,然后就能看到宏计算界面。如图所示:

4.看到上面的宏计算界面,我们只需要把下面的代码复制进去,代码如下:

Sub 合并当前工作簿下的所有工作表()

Application.ScreenUpdating = False

For j = 1 To Sheets.Count

If Sheets(j).Name <> ActiveSheet.Name Then

X = Range("A65536").End(xlUp).Row + 1

Sheets(j).UsedRange.Copy Cells(X, 1)

End If

Next

Range("B1").Select

Application.ScreenUpdating = True

MsgBox "当前工作簿下的全部工作表已经合并完毕!", vbInformation, "提示"

End Sub

5.完成上面的步骤,然后只需要点击工具栏上面的“运行”下的“运行子过程/用户窗体”或者直接按键盘上的"F5"就可以了实现多个工作表合并成一个工作表,合并完之后会有提示。提示完成之后就可以把宏计算界面关闭了。如图所示:

6.合并后的结果,我们将看到的是合并之后有1000多行的一个工作表(就是由20页工作表合并成一个工作表的结果)。

声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com