对Excel工作薄中的多个工作表进行求和统计。

jscsj

对Excel工作薄中的每个工作表分别进行统计，每个工作表的数据在汇总表中就是一行的数据。




具体统计要求见附件，附件有2个文件，一个是数据文件，一个是汇总表的实例。
请各位高手们帮忙。

娜蒂锲达冯梅克

您好：

        相关代码请参考附件，最后一个问题因无法理解故未作解答

quqiyuan

参与一下，仅供参考。。。。

quqiyuan

代码如下。。。
Sub test()
    Application.ScreenUpdating = False
    Dim sht As Worksheet
    p = ThisWorkbook.Path & "\searchstep_T1_0802.xlsx"
    ReDim brr(1 To 10000, 1 To 7)
    With Workbooks.Open(p, 0)
        For Each sht In .Sheets
            n = n + 1
            brr(n, 1) = Right(sht.Name, 3)
            brr(n, 2) = Left(sht.Name, 2)
            arr = sht.UsedRange
            m = 0: x = 0: y = 0
            For i = 2 To UBound(arr)
                If arr(i, 5) = "Trados" Then m = m + 1: y = y + arr(i, 3)
                If arr(i, 5) = "其他" Then x = x + 1
                If Len(arr(i, 4)) > 0 Then Z = Z + 1
            Next
            brr(n, 3) = m
            brr(n, 4) = x
            brr(n, 5) = UBound(arr) - 1 - m - x
            brr(n, 7) = y
            brr(n, 6) = Z
        Next
        .Close 0
    End With
    ThisWorkbook.Sheets("Text 1").UsedRange.Offset(1).ClearContents
    ThisWorkbook.Sheets("Text 1").[a2].Resize(n, 7) = brr
    Beep
    Application.ScreenUpdating = False
End Sub

ynzsvt

请测试反馈。

jscsj

有一点没说清楚，附件中的Trados 不区分大小写，含Trados或含trados都算进去。程序里含trados没有算进去。
我看不懂代码，请帮我改一下。

ynzsvt

加了lcase处理。

jscsj

ynzsvt 发表于 2024-8-4 16:45
加了lcase处理。

对啦 谢谢！

quqiyuan

jscsj 发表于 2024-8-4 16:38
有一点没说清楚，附件中的Trados 不区分大小写，含Trados或含trados都算进去。程序里含trados没有算进去。
...

我的代码有这方面的处理哦，你再看看。

jscsj

ynzsvt 发表于 2024-8-4 16:45
加了lcase处理。

我有4个数据文件需要处理，好像换了一个数据文件（我改了文件名和原来的一样）后，汇总后的数据没有变化。
能帮我再修改一次吗？