作者：乔山办公网日期：
返回目录：excel表格制作
我们需要把多个excel表都放在同一个文件夹里面，并在这个文件夹里面新建一个excel。如图所示： 用microsoft excel打开新建的excel表，并右键单击sheet1，找到“查看代码”，单击进去。进去之后就看到了宏计算界面。如图所示： 然后我们把下面这些宏计算的代码复制进去，然后找到工具栏上面的“运行”下的“运行子过程/用户窗体”，代码如下，如图所示：Sub 合并当前目录下所有工作簿的全部工作表()Dim MyPath, MyName, AWbNameDim Wb As Workbook, WbN As StringDim G As LongDim Num As LongDim BOX As StringApplication.ScreenUpdating = FalseMyPath = ActiveWorkbook.PathMyName = Dir(MyPath & "\"& "*.xls")AWbName = ActiveWorkbook.NameNum = 0Do While MyName <> ""If MyName <> AWbName ThenSet Wb = Workbooks.Open(MyPath &"\" & MyName)Num = Num + 1With Workbooks(1).ActiveSheet.Cells(.Range("B65536").End(xlUp).Row+ 2, 1) = Left(MyName, Len(MyName) - 4)For G = 1 To Sheets.CountWb.Sheets(G).UsedRange.Copy.Cells(.Range("B65536").End(xlUp).Row + 1, 1)NextWbN = WbN & Chr(13) & Wb.NameWb.Close FalseEnd WithEnd IfMyName = DirLoopRange("B1").SelectApplication.ScreenUpdating = TrueMsgBox "共合并了" & Num& "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"End Sub 运行之后，等待10秒针左右，等运行完毕e799bee5baa6e997aee7ad94e4b893e5b19e336，就是合并完成之后，会有提示，点确定就可以了。查看合并后的数据，有5000多行，就是同一个文件夹里面17个excel表数据合并后的结果。效果如图所示。
1、以excel2010版本为例，如下图，要百把部门和姓名这两度个字符串拼接；
2、用符号“&”进行拼接则可，在问C2单元格输入公式=A2&B2，按enter键后则可得到拼接结答果；
3、同理，把鼠标放在C2单元格右下角，下拉填充公式，则可把该表格回的部门和姓名这两个字符串都拼接了答。
1打开这两个工作簿点
2在其中一个工作簿下面百工作表度名称处，右键》移动或复制工作表》工作簿（下问拉后选另一个工作簿）》确定
这样，一个工作簿的一个表就转答移到另一个工作簿了，一个一个转移就好，如内果工作表比较多的话，就只能用VBA了，那个其实也不复杂，但要一定时间容去理解
先假定两个EXCEL文件名分别zd为book1和book2，将两个文件都打开，在book1的SHEET1标签上右击鼠标，在弹出的右键菜单中选择“移动或复制工作表”，在弹出的窗口中，“工内作簿”一栏中选择book2，再在“建立副本”前面的复选框容（就是小方框）勾选上即可。