VBA汇总同目录下的所有工作簿数据到另一个工作簿，并进行统计

Sub clData()

    Dim ComputerCount As Object

    tms = Timer

    p = ThisWorkbook.Path & "\"

    f = Dir(p & "*.xls")

    Application.ScreenUpdating = False

    tms = Timer

    On Error Resume Next

    Set Rng = ThisWorkbook.Sheets("sheet1")

    Rng.Range("a2:c65536").ClearContents

    Do While f <> ""

        If f <> ThisWorkbook.Name Then

             fn = fn +

             Set wb = GetObject(p & f)

             With wb.Sheets("sheet2")

                 rw = .Range("a65536").End(xlUp).Row

                 trw = Rng.Range("a65536").End(xlUp).Row +

                 For i =  To rw

                     GetData = .Range("A" & i & ":C" & i).Value

                     Rng.Range("A" & trw & ":C" & trw) = GetData

                 Next

             End With

        End If

        f = Dir

    Loop

    Call tj

    Set wb = Nothing

    MsgBox “总共找到 " & fn & "个文件，共有" & trw - 2 & "条记录，用时" & Timer - tms & "秒” & t1

    Application.ScreenUpdating = True

Exi:

End Sub

Sub tj()

    Set Rng = ThisWorkbook.Sheets("sheet1")

    r = Rng.Range("a65536").End(xlUp).Row

    Dim a%, b%, c%, d%, e%, t%

    a =

    b =

    c =

    d =

    e =

    'Clear Background Color

    For n =  To

        Rng.Range("A" & n).Interior.ColorIndex = xlNone

        Rng.Range("B" & n).Interior.ColorIndex = xlNone

        Rng.Range("C" & n).Interior.ColorIndex = xlNone

    Next n

    For i =  To r

        If Rng.Range("C" & i).Value = "groupA" Then a = a +

        If Rng.Range("C" & i).Value = "groupB" Then b = b +

        If Rng.Range("C" & i).Value = "groupC" Then c = c +

        If Rng.Range("C" & i).Value = "groupD" Then d = d +

        If Rng.Range("C" & i).Value = "groupE" Then e = e +

        p = i Mod

        If p =  Then

            Rng.Range("A" & i).Interior.ColorIndex =

            Rng.Range("B" & i).Interior.ColorIndex =

            Rng.Range("C" & i).Interior.ColorIndex =

        Else

           Rng.Range("A" & i).Interior.ColorIndex =

           Rng.Range("B" & i).Interior.ColorIndex =

           Rng.Range("C" & i).Interior.ColorIndex =

        End If

    Next i

    Rng.Range("H2").Value = a

    Rng.Range("H3").Value = b

    Rng.Range("H4").Value = c

    Rng.Range("H5").Value = d

    Rng.Range("H6").Value = e

    Rng.Range("H7").Value = a + b + c + d + e 'Total

End Sub