同时统计文字以及数据出现的次数

sulli112

想统计各个表中B列，E-L列，日期，年级以及每个数据出现的次数在新建的汇总表中，请问要怎么写呢？谢谢

sulli112

Sub 统计()
Dim i&, k&
Sheets.Add.Name = "汇总"
Dim ws As Worksheet
Worksheets("汇总").Range("A2", Range("A65536").End(xlUp)).ClearContents '单元格的公式，但保留其格式设置
For Each ws In Worksheets
    If ws.Name <> "汇总表"and ws.Name <> "汇总"Then
        k = k + 1
我写到这里就卡住了，不知道要怎么写，我想要的效果是，E列所有出现过的班级汇总成为一个标题，然后在根据对应标题，统计数据每个班级出现次数

donghui2363

建议你描述的再清楚一些，或是做个效果表

sulli112

类似图片上面这样子，在B列会汇总每个工作表班级那一列出现过的班级名称，然后C列出现对应班级名在每个工作表出现过的次数

sulli112

有知道要怎么写的吗

donghui2363

新建个工作表名称为"汇总"
Sub 汇总()
Dim sht As Worksheet, brr(1 To 1000, 1 To 3)
Set d = CreateObject("scripting.dictionary")
Sheets("汇总").Range("a1:c10000") = ""
    For Each sht In Sheets
        If sht.Name <> "汇总" Then
            col = sht.Cells(1, 256).End(1).Column
            For j = 1 To col
                If sht.Cells(1, j) = "班级" Then
                    r = sht.Cells(65536, j).End(xlUp).Row
                    For i = 2 To r
                        If sht.Cells(i, j) <> "" Then
                            s = sht.Cells(i, j)
                            If Not d.exists(s) Then
                                d(s) = d.Count + 1
                                brr(d(s), 1) = sht.Name
                                brr(d(s), 2) = s
                                brr(d(s), 3) = 1
                            Else
                                brr(d(s), 3) = brr(d(s), 3) + 1
                            End If
                        End If
                    Next i
                End If
            Next j
            Sheets("汇总").Range("a" & Sheets("汇总").Range("a65536").End(xlUp).Row + 1).Resize(d.Count, 3) = brr
            d.RemoveAll
            Erase brr
        End If
    Next
    Sheets("汇总").Range("a1") = "所在表格"
    Sheets("汇总").Range("b1") = "班级名称"
    Sheets("汇总").Range("c1") = "出现次数"
End Sub

sulli112

donghui2363 发表于 2020-7-28 13:27
新建个工作表名称为"汇总"
Sub 汇总()
Dim sht As Worksheet, brr(1 To 1000, 1 To 3)

Sub 汇总()
Dim sht As Worksheet, brr(1 To 1000, 1 To 3)
Set d = CreateObject("scripting.dictionary")
Sheets("汇总").Range("a1:c10000") = ""
    For Each sht In Sheets
        If sht.Name <> "汇总" Then
            col = sht.Cells(1, 256).End(1).Column
            For j = 1 To col
                If sht.Cells(1, j) = "班级" Then
                    r = sht.Cells(65536, j).End(xlUp).Row
                    For i = 2 To r
                        If sht.Cells(i, j) <> "" Then
                            s = sht.Cells(i, j)
                            If Not d.exists(s) Then
                               d(s) = d.Count + 1
                                brr(d(s), 1) = sht.Name
                                brr(d(s), 2) = s
                                brr(d(s), 3) = 1
                            Else
                                brr(d(s), 3) = brr(d(s), 3) + 1
                            End If
                        End If
                    Next i
                End If
            Next j
            Sheets("汇总").Range("a" & Sheets("汇总").Range("a65536").End(xlUp).Row + 1).Resize(d.Count, 3) =
brrd.RemoveAll
            
            Erase brr
        End If
    Next
    Sheets("汇总").Range("a1") = "所在表格"
    Sheets("汇总").Range("b1") = "班级名称"
    Sheets("汇总").Range("c1") = "出现次数"
End Sub
您好，想请教这几句代码的意思分别是什么呢，谢谢