Excel VBA合并多Sheet页代码

同一个Excel文件中多个Sheet页合并，生成新的合并结果到最后一个页，同时生成透视表。

合并之前Excel各Sheet页数据：

 

合并后汇总数据：

生成透视表：

VBA代码：

1、多Sheet页合并到一个Sheet页

Sub Macro_Combine()
    Dim wrk As Workbook 'Workbook object
    Dim sht As Worksheet 'Object for handling worksheets in loop
    Dim trg As Worksheet 'worksheets for combine
    Dim rng As Range 'Range object
    Dim colCount As Integer 'Column count
    Dim FileName As String
    Dim Path As Str