Sub TongHOp()
Dim Sarr, Darr(1 To 65000, 1 To 48), i As Long, k As Long, J As Long, RW
Dim Dic As Object, Ws As Worksheet, TEM As String
Set Dic = CreateObject("Scripting.Dictionary")
For Each Ws In Worksheets
If Ws.Name <> "QUYI" And Ws.Name <> "DATA" Then
Sarr = Ws.Range(Ws.[B12], Ws.[B65000].End(xlUp)).Resize(, 47).Value2
For i = 1 To UBound(Sarr)
TEM = Sarr(i, 1) & "#" & Sarr(i, 6) & "#" & Sarr(i, 7)
If Sarr(i, 1) <> "" Then
If Not Dic.EXISTS(TEM) Then
k = k + 1
Dic.Add TEM, k
Darr(k, 1) = k
Darr(k, 2) = Sarr(i, 1)
For J = 3 To 8
Darr(k, J) = Sarr(i, J - 1)
Next J
Darr(k, 9) = Sarr(i, 8)
Darr(k, 10) = Sarr(i, 9)
Else
RW = Dic.Item(TEM)
Darr(RW, 9) = Darr(RW, 9) + Sarr(i, 8)
Darr(RW, 10) = Darr(RW, 10) + Sarr(i, 9)
End If
End If
Next i
End If
Next Ws
With Sheets("QUYI")
If k Then
.[A12:AV65000].ClearContents
.[A12].Resize(k, 48).Value = Darr
End If
End With
Set Dic = Nothing
End Sub
