Excel VBA初次应用：统计小组成员每周开的bug并汇总。

 Sub AutoCollect()
    '衡だ
    'Sheets(1).Activate
    On Error GoTo err
    If ActiveWorkbook.name <> "09_component new issue.xls" And ActiveWorkbook.name <> "weekly opened issues.xls" Then
        MsgBox "茂" & ActiveWorkbook.name & "ぃ琌new issue参璸礚猭秈︽参璸!叫絋粄茂new issue参璸"
        Exit Sub
    End If
    Dim scores() As Single
    Dim count() As Single
    Dim issues() As String
    Dim members() As String
    Dim issue As String
    Dim score As Integer
    Dim i, j As Integer
    Dim total As Integer
    Dim ad As String
    Dim severity(7) As String
    Dim mem As Integer
    Dim names As String
    Dim name() As String
    Dim n As Integer
    Dim person As Integer
    '莉Θ计ヘ
    mem = Application.CountA(ThisWorkbook.Sheets("Members").Range("A:A"))
    ReDim scores(mem - 1) As Single
    ReDim count(mem - 1) As Single
    ReDim issues(mem - 1) As String
    ReDim members(mem - 1) As String
   
    For j = 0 To mem - 1
        issues(j) = ""
        members(j) = ThisWorkbook.Sheets("Members").Cells(j + 1, 1)
        count(j) = 0
        scores(j) = 0
    Next j
   
    'members(0) = "Beng"
    'members(1) = "Daqiang"
    'members(2) = "Emmako"
    'members(3) = "Joseay"
    'members(4) = "Mat"
    'members(5) = "Rebeca"
    severity(0) = "Critical"
    severity(1) = "Ad-hoc Critical"
    severity(2) = "Serious"
    severity(3) = "Ad-hoc Serious"
    severity(4) = "Medium"
    severity(5) =