Excel宏处理之多页数据合并-Excel教程

工作常常碰到Excel表单由不同项目，部门，供应商等为同一目的汇总过来的数据。

为了这些数据能够一起处理，往往要合并数据到同一个表单。需要重复的拷贝粘帖。

下面分享一个简单的宏，让各位亲们能一键汇总。

前期准备工作（包括相关工具或所使用的原料等）

Excel2013

详细的操作方法或具体步骤

首先需要创建一个格式相同的标准表单。如图。

录制一个名为"Sheetcombine"的空宏。操作如图。

编辑录制的"Sheetcombine"的宏。

将如下斜体加黑代码拷贝粘帖进"Sheetcombine"宏。

注：其中sh.Name <> "New" 为定义为不需要合并的工作簿的名称，根据需要更改。

Sub Sheetcombine()''合并表单名称不为"New"的所有表单内容到"Sum"表单'Sheets.Add after:=Sheets(Sheets.Count)Sheets(Sheets.Count).Name="Sum"

Dim sh As Worksheet Dim ash As String Range("a2:i65536").ClearContents For Each sh In Worksheets If sh.Name <> "New" And sh.Name <> "Sum" Then sh.Range("a2:i" & sh.[a65536].End(3).Row).Copy [a65536].End(3).Offset(1, 0) ash=sh.Name End If Next Dim i As Integer i=Sheets(ash).Cells(1, 256).End(xlToLeft).Column Sheets(ash).Range("A1:" & Chr(i + 64) & "1").Copy Sheets("Sum").Range("A1:" & Chr(i + 64) & "1") End Sub

将宏保存到喜欢的文件夹， 注意选择文件类型为Excel Add-in。如图。

从刚才保存的文件夹内调用上一步保存的宏“Sheetcombine".

将加载的"Sheetcombine"添加到快捷工具栏。

大工告成。点击快捷工具栏看看结果吧。

注意事项

如若此经验对您有所帮助，请点击右上角大拇指或五角星图标。谢谢！经验内容仅供参考，如果您需解决具体问题(尤其法律、医学等领域)，建议您详细咨询相关领域专业人士。作者声明：本教程系本人依照真实经历原创，未经许可，谢绝转载。