从不同的excel表中读取数据，并完成汇总

auto_china

我每个月都会受到数十家单位的同一种格式的excel报表，每次都是复制粘贴进一个excel总表中的从sheet2到sheetN的表格中，然后会在这个总表的第一个sheet中自动生成所有单位数据的汇总，因为光这一类表就又30多家，总共有4-5类这种表，所以每个月光复制粘贴就需要浪费很多的时间，现在我有了一个宏，可以初步实现免除复制粘贴的功能，但是还有一些缺陷，就是他们每个单位报上来的表，都是他们手填的，再每一项求小计和总计的时候有的不是用excel自动求和功能求出来的，所以难免会出错，想请教一下老师们，可不可以做一个宏，然后具备自动纠错的功能（单纯的计算，看他们每一项的加和或者求平均是否正确），如果那个单位的结果错误的话，能否弹出一个对话框（那种不关闭可继续进行其他操作的）显示哪些sheet中哪个位置是错误的（表格填充色变成红色）。

auto_china

Sub 按钮3_单击()

  With ThisWorkbook.Sheets
        For Each wb In Workbooks
            If wb.Name <> ThisWorkbook.Name Then
                For Each sh In wb.Sheets
                    sh.Copy After:=.Item(.Count)
                Next
            End If
        Next
        .Item(2).Activate
    End With
   
    Worksheets("2012.06").Range("D6:E20", "G6:H20").FormulaR1C1 = "=SUM('*'!RC)"
    Worksheets("2012.06").Range("D22:E24", "G22:H24").FormulaR1C1 = "=SUM('*'!RC)"
    Worksheets("2012.06").Range("D26:E28", "G26:H28").FormulaR1C1 = "=SUM('*'!RC)"
    Worksheets("2012.06").Range("D30:E32", " G 30:h32").FormulaR1C1 = "=SUM('*'!RC)"
    Worksheets("2012.06").Range("D33:I35").FormulaR1C1 = "=SUM('*'!RC)"
    Worksheets("2012.06").Range("E37:E40").FormulaR1C1 = "=SUM('*'!RC)"
    Worksheets("2012.06").Range("H37:H40").FormulaR1C1 = "=SUM('*'!RC)"
   
End Sub
这是实现复制粘贴并汇总的宏的代码，高手帮忙看看

juanjuan_he1

好像数据透视表用SQL也能做到哈。