Excel宏处理之多页数据合并

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

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

3、编辑录制的"Sheetcombine"的宏。

4、将如下斜体加黑代码拷贝粘帖进"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

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

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

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

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