摘要： 平时工作，可能会因不同的文件创建多个excel工作簿，有些工作簿只包含一个单独的工作表，有些工作簿有多个工作表。时间久了，就想将有用的工作簿合并到一起，不至于每次都来来回回的打开多个工作表。如何实现合并多个工作簿呢?
小编能想到的有两种方法。第一，使用命令实现合并多个工作簿。第二，使用宏代码实现合并多个工作簿。
使用命令合并工作簿的方法是这样的：
打开全部工作簿，右键点击工作名，出现"移动或复制工作表"对话框，在“工作簿”下拉列表选择目标工作簿，在“下列选定工作表之前”选择相应的工作表，可以对工作簿进行移动或者复制，如果是复制，可以勾选“建立副本”。
使用宏代码实现合并多个工作簿的方法：
将下面代码复制到代码页面，然后运行宏就可以了。
Sub 合并工作薄()
Dim FilesToOpen
Dim x As Integer
On Error GoTo ErrHandler
Application.ScreenUpdating = False
FilesToOpen = Application.GetOpenFilename _
(FileFilter:="MicroSoft Excel文件(*.xls), *.xls", _
MultiSelect:=True, Title:="要合并的文件")
If TypeName(FilesToOpen) = "Boolean" Then
MsgBox "没有选中文件"
excel 自动重算和手动重算的应用范围
在讲解自动重算和手动重算之前，先来看一个实例，如下图所示：在C1单元格输入公式：=B1 A1，得到计算结果为8，显然不正确。为什么会造成上面这种情况，就是因为在Excel选项里，将计算模
GoTo ExitHandler
End If
x = 1
While x <= UBound(FilesToOpen)
Workbooks.Open Filename:=FilesToOpen(x)
Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
x = x 1
Wend
ExitHandler:
Application.ScreenUpdating = True
Exit Sub
ErrHandler:
MsgBox Err.Description
Resume ExitHandler
End Sub
excel转置功能将行变列、列变行的相互转换方法
尽管转置命令，可以实现行列转(互)换，但是需要将某些单元格信息转换还是有所局限，使用公式进行行列转(互)换后，当源单元格内容发生变化，在转置后的目标单元格能跟随发生变化;而转置
