【背景】
今天一同学突然在Q上问起我如何将多个Excel文件合并到一个Sheet文件中，起初我是想通过编程来实现的，因为之前我用C++实现过一个Excel操作类的封装，也用该类实现过一些自动化工具。但考虑到这本来是个很简单的任务，相信Excel本身应该可以实现，于是度娘了下，找到了可以使用VBA来解决，但网上的代码要不有问题，要不操作不明白，经过摸索，决定写篇文章，让像我一样的任性的冥王星用户从零来完成任务。
【过程】
一、创建E:test_excel目录，下面放上几个要合并的Excel文件。
二、新打开一个Excel文件，先“开启开发工具”，如下图点击1，选择“Excel选项”，然后在“常用”选项卡中勾选“在功能区显示‘开发工具’选项卡”，保存后，就能看到了。
三、开启宏，如上图所示，开发工具—宏安全性—宏设置里面。
四、在Visual Basic里面选择"Sheet1",并编写相应的宏
相关代码：
'VBA for merge excel files,.just support for Excel 2007'Excel 2003 need change the codes'Author:naiveloafer'Date:2012-04-29Sub naiveloafer()Dim fs, f, f1, fc, s, x, rowss, columnssSet fs = CreateObject("Scripting.FileSystemObject")Set f = fs.GetFolder("E:test_excel") 'Directory of excel files will be mergeSet fc = f.Filesx = 1For Each f1 In fcIf Right(f1.Name, 4) = "xlsx" ThenWorkbooks.Open (f1.Path)rowss = Workbooks(f1.Name).Sheets(1).Range("A65536").End(xlUp).Rowcolumnss = Workbooks(f1.Name).Sheets(1).Columns.CountWorkbooks(f1.Name).Sheets(1).Range("A1:z" & CStr(rowss)).CopyWorkbooks(1).ActivateWorkbooks(1).Sheets(1).Range("A" & CStr(x) & ":z" & CStr(x + rowss)).SelectWorkbooks(1).Sheets(1).PasteApplication.CutCopyMode = Falsex = x + rowssWorkbooks(f1.Name).Close savechanges:=FalseEnd IfNextEnd Sub五、回到刚才的Excel中，点击宏，选择刚才的宏，运行即可，如果代码没问题，那就能在当前Sheet中显示合并的结果，当然如果你有编程经验可以选择调试才定位问题，修改等。