excel中book sheet

快速合并单个excel表中的多个sheet的工作页

很多朋友会遇到这样的问题，就是很有很多页的数据，少的有几十页，多的可能有几百页，然后需要合并到一个页面做数据分析，如果一页页的复制粘贴的话，就比较麻烦。下面我就介绍一种利用excel的宏计算来解决这个问题。

方法：

1. 首先我们要有自己的excel数据，并且我们需要的是microsoft

excel，WPS没有这些负责的功能。比如我下面举例的，我自己有205页的数据需要合并，如图所示。

2.

看到这么多数据页要合并，如果是复制粘贴的话，工作量就很大了。我们现在开始合并，首先要在最前页新建一个工作表。如图：

3. 在新建的sheet表中“右键”，找到“查看代码”，然后看到宏计算界面。如图所示：

4. 看到宏计算界面，我们就只需要把下面的代码复制进去，代码如下，效果如下：

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

= False For j = 1 To

If Sheets(j).Name <> Then

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

Sheets(j). Cells(X, 1)

End If

Next

Range("B1").Select

= True

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

End Sub

5. 做完上面的事情，然后只需要点击工具栏上面的“运行”下的“运行子过程/用户窗体”就可以了，合并完之后会有提示。提示完成之后就可以把宏计算界面关闭了。如图所示：

6. 合并后的效果如下图，我们看到的是合并之后有8000多行，就是205页合并后的结果。谢谢。如有疑问，请留言。

END

注意：

现在很多人用的WPS无法实现这个计算，只有功能健全的microsoft excel可以。

Excel如何将一个工作表中的多个sheet合并到一个sheet中

-CAL-FENGHAI.-(YICAI)-Company One1

-CAL-本页仅作为文档封面，使用请直接删除

Excel如何将一个工作表中的多个sheet合并到一个sheet中(总3页)

-CAL-FENGHAI.-(YICAI)-Company One1

-CAL-本页仅作为文档封面，使用请直接删除 1、打开需要将所有单个的EXCLE表合到到一个表的工作簿，新建一个工作表在这个工作表中录入ALT+F11

2、 你把下面的代码复制到里边去

3、上面有个运行， 运行子程序就可以了。

代码如下

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

Application.ScreenUpdating = False

For j = 1 To Sheets.Count

If Sheets(j).Name <> Then

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

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

End If

Next 4 Range("B1").SelectApplication.ScreenUpdating = True

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

End Sub

VBA方法 - 将多个excel文件合并到一个excel的多个sheet中

由上级的要求，同事需要将以前做的所有excel文件（手机话费清单表），都合并到一个excel中，并且每个excel文件为一个sheet。她开始是用复制粘贴的方法，很麻烦。所有她就问我，有没有什么方法可以快点做完。

网上搜索，方法如下：

1. 将需合并的excel文件放在同一个文件中，并这个文件中新建一个excel文件

2. 打开新建的excel文件，按alt + f11建，打开宏，新建一个模组，将下面的代码拷贝进去，并保存。

Sub Books2Sheets()

'定义对话框变量

Dim fd As FileDialog

Set fd = Application.FileDialog(msoFileDialogFilePicker)

'新建一个工作簿

Dim newwb As Workbook

Set newwb = Workbooks.Add

With fd

If .Show = -1 Then

'定义单个文件变量

Dim vrtSelectedItem As Variant

'定义循环变量

Dim i As Integer

i = 1

'开始文件检索

For Each vrtSelectedItem In .SelectedItems

'打开被合并工作簿

Dim tempwb As Workbook

Set tempwb = Workbooks.Open(vrtSelectedItem)

Excel中进行跨sheet页计算的操作方法

如何做基础的加减乘除和简单的四则运算，计算的参数和数值都局限于同一个sheet页内;那么，如何实现跨sheet页的计算呢?今天，店铺就教大家在Excel中进行跨sheet页计算的操作方法。

Excel中进行跨sheet页计算的操作步骤：

我们仍以一个简单的进销数据为例，演示跨sheet页的公式运算如何实现。

如下图，此excel包括两个sheet页：总数、营销数

本次，我们要计算的是“已售出金额”，计算公式如下：

已售出金额 = 已售出数量(箱) × 出售单价

从上图可以看出，其中，

【已售出数量(箱)】所在的sheet页名字是“营销数”;

【出售单价】所在的sheet页名字是“总数”;

铅笔的已售出数量所在的单元格式E4，

那么：E4=C4ד总数”sheet页的D4

此时，我们需要跨sheet页完成这个计算公式。

要计算铅笔的已售出金额，

第一步，单击E4：

第二步：输入等于号“=”

请注意，在excel的单元格内，只要输入了等于号“=”，就说明这个单元格的内容是由其他单元格的内容自动计算得出;如果不希望这个单元格的内容通过计算得出，那么，只需要将单元格里的公式(包括等于号“=”)全部删除即可;

这一步结束后，【E4】单元格里的公式变化为：【=】

第三步：在等于号“=”后面输入C4;

这里，有两种办法：

1、直接用键盘敲入字母和数字“C4”;

2、鼠标单击点中【C4】这个单元格，单击选中后，公式中会自动填补为“=C4”; 请注意，如果使用第二种办法，单击单元格【C4】后，【C4】的边框是虚线并闪亮;

这一步结束后，【E4】单元格里的公式变化为：【=C4】

第四步：在公式中增加乘号“*”;

在C4单元格的公式里增加乘号“*”;

这一步结束后，【E4】单元格里的公式变化为：【=C4*】

接下来，我们就要寻找另一个sheet页的变量D4啦

第五步：切换到名字为“总数”的sheet页;