利用vba写一段代码，统计每个学校中有多少个班级，并且每个各年级有多少个班

### 回答1：

我可以提供一些提示来帮助你：1. 使用循环语句，例如For循环，来遍历学校中的每个班级和每个年级；
2. 在循环内部统计每个班级和每个年级的数量；
3. 将统计结果显示出来。下面是一段示例代码：Dim i As Integer
Dim nClass As Integer
Dim nGrade As IntegerFor i = 1 To nSchool
nClass = nClass + nClass(i) '统计每个学校的班级数
nGrade = nGrade + nGrade(i) '统计每个学校的年级数
NextMsgBox "这个学校一共有" & nClass & "个班级，" & nGrade & "个年级。"

### 回答2：
使用VBA编写代码来统计每个学校中的班级数量以及每个年级中的班级数量。

首先，需要将数据存储在Excel表格中。表格的第一列应该是学校名称，第二列是班级名称，第三列是年级名称。假设数据存储在Sheet1中的A列至C列。

以下是实现上述功能的VBA代码：

Sub 统计班级数量()
    Dim 学校 As Range
    Dim 班级 As Range
    Dim 年级 As Range
    
    Dim 学校名称 As String
    Dim 年级名称 As String
    
    Dim 班级数量 As Integer
    Dim 年级班级数量 As Integer
    
    Set 学校 = Sheet1.Range("A2:A" & Sheet1.Cells(Rows.Count, 1).End(xlUp).Row)
    
    ' 清除之前的结果
    Range("E:F").ClearContents
    
    For Each 学校名称 In 学校
        班级数量 = 0
        年级班级数量 = 0
        
        Set 班级 = Sheet1.Range("B2:B" & Sheet1.Cells(Rows.Count, 2).End(xlUp).Row)
        For Each 班级名称 In 班级
            If 班级名称.Offset(0, -1).Value = 学校名称 Then
                班级数量 = 班级数量 + 1
                
                Set 年级 = Sheet1.Range("C2:C" & Sheet1.Cells(Rows.Count, 3).End(xlUp).Row)
                For Each 年级名称 In 年级
                    If 年级名称.Offset(0, -2).Value = 学校名称 And 年级名称.Value = 班级名称.Offset(0, 1).Value Then
                        年级班级数量 = 年级班级数量 + 1
                    End If
                Next 年级名称
            End If
        Next 班级名称
        
        ' 将结果写入第五列和第六列
        学校名称.Offset(0, 3).Value = 班级数量
        学校名称.Offset(0, 4).Value = 年级班级数量
    Next 学校名称
End Sub

上述代码首先将需要统计的学校名称存储在Range对象"学校"中。然后，我们使用嵌套的For Each循环遍历每个学校和每个班级，统计班级数量和每个年级中的班级数量。最后，将结果写入第五列和第六列。

请确保在运行代码之前在VBA编辑器中添加对Sheet1的引用。您可以根据需要修改代码以匹配实际的数据存储位置和工作表名称。

### 回答3：
利用VBA编写代码，可以统计每个学校中有多少个班级以及每个年级有多少个班级。下面是一个示例代码实现：

Sub 统计班级()

    Dim 学校 As Worksheet
    Set 学校 = ThisWorkbook.Sheets("学校数据") ' 假设学校数据在名为"学校数据"的工作表中

    Dim 班级 As Range
    Dim 年级 As Range

    ' 统计每个学校中的班级数量
    For Each 班级 In 学校.Range("A2:A" & 学校.Cells(Rows.Count, "A").End(xlUp).Row) ' A列中存储学校名称，从第2行开始
        班级.Offset(0, 1).Value = WorksheetFunction.CountIf(学校.Range("A2:A" & 学校.Cells(Rows.Count, "A").End(xlUp).Row), 班级.Value)
        ' 将班级数量写入当前班级所在行的B列
    Next 班级

    ' 统计每个年级中的班级数量
    For Each 年级 In 学校.Range("B2:B" & 学校.Cells(Rows.Count, "B").End(xlUp).Row) ' B列中存储年级，从第2行开始
        年级.Offset(0, 1).Value = WorksheetFunction.CountIf(学校.Range("B2:B" & 学校.Cells(Rows.Count, "B").End(xlUp).Row), 年级.Value)
        ' 将班级数量写入当前年级所在行的C列
    Next 年级

End Sub

这段代码首先设置了一个名为"学校数据"的工作表作为数据来源。然后，通过两个循环分别统计了每个学校中的班级数量和每个年级中的班级数量。在循环中使用了`CountIf`函数来计算某个范围中符合条件的单元格数量，并将结果写入相应的单元格中。

注意，代码中的范围和列索引需要根据你的实际数据进行调整，确保准确获取数据和写入结果。