求助高手！数据对比与引用汇总问题！！！

hxsjsw

工作中有两个问题请高手指教：

1、有两张含多列内容的报表，需要核对其中六列的数据是否同时完全一致，这六列的内容类型按顺序分别是：

A列为文本型数字（如20101）、

B列为纯文本（如农业）、

C列为纯文本（如农业保险）、

D列为文号（如仓库【2015】1号）、

E列为数字（如100），

因为两张报表很大，逐个对比核对很麻烦{:soso_e109:}，可不可以设置公式，快速核对两张报表的这六列内容是否完全一致？并自动标注出不一致的地方？

2、需要将两个报表的数据汇总成一张总表。

总表中第一列A列名称为部门，如一车间，后面各列名称为B列“生产成本”、C列“单价”、D列“数量”；

两张分报表中分别有A列或B列或C列其中几列，怎样能使总表按照部门名称（即A列的名称），自动引用两张报表中相同部门名称对应的各列数据，并进行汇总求和？{:soso_e134:}

盼高手尽快解答，不胜感激！{:soso_e128:}

马桶君

第一个问题你可以试试这个代码：
Public Sub chacuo()
Worksheets(1).Range("A1:G65536").Font.Color = RGB(0, 0, 0)
Worksheets(2).Range("A1:G65536").Font.Color = RGB(0, 0, 0)
Dim i As Integer
Dim j As Integer
i = 1
Do While Cells(i, "A").Value <> ""
    For j = 1 To 6
        If Worksheets(1).Cells(i, j).Value <> Worksheets(2).Cells(i, j).Value Then
            Worksheets(2).Cells(i, j).Font.Color = RGB(255, 0, 0)
        End If
    Next
    i = i + 1
Loop
End Sub
第二个问题我不太懂你的意思……

hxsjsw

多谢解答！
第二个问题就是将不同表格中，相同部门的各项不同的数据进行汇总统计，比如一车间在N张表中分别有 原材料数量  半成品数量   销售产品数量等等，将所有这些进行按部门汇总！