Excel多个文档合并公式

Excel多个文档合并公式
=TEXT(INT(H17),"[DBNUM2]")&"元
"&TEXT(MID(H17,LEN(INT(H17))+2,1),"[DBNUM2]D角
")&TEXT(MID(H17,LEN(INT(H17))+3,1),"[DBNUM2]D分")&"整"
="今天是"&TEXT(TODAY(),"yyyy-mm-dd")
如何快速的合并多个Excel 工作簿成为一个工作簿？2016-05-15更新：如果是excel2007及更新的版本，则需要把代码中的xls修改为xlsx即可，
祝大家成功！
------------------------------------------------------------------------------------------------------------------------
没人给直接答案，那我自问自答了。

的确去百度了下，出现了很多种方法，但是，目前就这个方法行得通，跟大家分享下：
用一个VBA就可以实现的。

使用方法：
1、新建一个工作薄，将其命名为你合并后的名字。

2、打开此工作薄。

3、在其下任一个工作表标签上点击右键，选择“查看代码”。

4、在打开的VBA编辑窗口中粘贴以下代码：
Sub CombineWorkbooks()
'Source code from the Internet for free
'Daxin CPA Guangdong Branch Hoohurtle modified on July 27, 2014
Dim FilesT oOpen
Dim x As Integer
On Error GoTo ErrHandler
Application.ScreenUpdating = False
Extension1:
FilesToOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel 97-2003工作簿文件(*.xls),*.xls", MultiSelect:=True, Title:="请选择待合并的工作簿文件")
If TypeName(FilesT oOpen) = "Boolean" Then
MsgBox "没有选中Excel 97-2003工作簿文件"
GoTo Extension2
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
Extension2:
FilesToOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel工作簿文件(*.xlsx),*.xlsx", MultiSelect:=True, Title:="请选择待合并的工作簿文件")
If TypeName(FilesT oOpen) = "Boolean" Then
MsgBox "没有选中Excel工作簿文件"
GoTo Continue
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
Continue:
Dim Msg$, Style&, Title$, Continue&
Msg = "是否继续添加其他文件夹中的Excel工作簿文件？"
Style = vbYesNo + vbDefaultButton2
Title = "是否继续添加其他工作簿"
Continue = MsgBox(Msg, Style, Title)
If Continue = vbYes Then
GoTo Extension1
Else
GoTo Over
End If
Over:
ExitHandler:
Application.ScreenUpdating = True
Exit Sub
ErrHandler:
MsgBox Err.Description
Resume ExitHandler
End Sub
5、关闭VBA编辑窗口。

6、在excel中，工具---宏---宏,选“工作薄间工作表合并”,然后“执行”。

7、在打开的对话窗口中，选择你要合并的300个工作薄。

8、等待。

ok！
以上合并不同文档
下面合并相同文档中的SHEETS
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
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "当前工作簿下的全部工作表已经合并完毕！", vbInformation, "提示"
End Sub
1.原始数据所在工作簿包含多个格式相同的工作表，只不过每个工作表内容不
同，比如说不同人名的工作表数据或者不同部门填写的数据。

2.在原始数据同目录下新建一个工作簿，建立两个工作表，名称分别为“首页”
和“合并汇总表”。

3.按Alt+F11进入VBA代码编辑和调试界面。

4.根据下图提示，插入一个模块。

5.将下述代码粘贴到模块空白处：
1、选中A列数据区域，点击开始-合并后居中
2、按下键盘上F5-定位条件-空值-确定
3、输入=，按下键盘方向向上健（↑）
4、按下CTRL+enter组合键，查看效果。