巧妙复制多工作表到新工作表

　　同事前来求助，希望对多张工作表的数据进行汇总，这些工作表的结构完全相同，只不过其中的数据有区别，需要将多张工作表的内容复制到一个新的工作表。手工复制虽然可行，但工作量既大而且也容易遗漏，有没有简单一些的方法呢？利用VBA代码，可以完美解决这一问题。

　　按下“A l t+F11”组合键，打开Microsoft Visual Basic for Application编辑器窗口，依次选择“插入/模块”命令，在右侧窗格插入一个空白模块手工输入或粘贴如下代码（代码文件直接下载地址为http：//pan.baidu.com/s/13taSQ）：

　　Sub hebing()

　　Sheets.Add

　　Application.ScreenUpdating = FalseFor j =1 To Sheets.Count

　　If Sheets(j).Name <> ActiveSheet.Name Then

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

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

　　End If

　　Next

　　Range(“A1”).Select

　　Application.ScreenUpdating = True

　　MsgBox “当前工作簿的所有工作表已完成合并！”， vbInformation， “提示”

　　End Sub

　　上述代码中的代码名、提示信息可以根据需要自行修改，检查无误之后，选择“文件→关闭并返回到Microsoft Excel”命令，返回Excel主界面，按下“Alt+F8”组合键，打开“宏”对话框，运行“hebing”宏，很快就可以看到合并效果。

　　文/王志军