自动分班级部分代码

Dim temp As String
定义字符串
Dim banji(50)
定义数组
Dim bj
定义变量
For a = 3 To 555
循环人数循环，do while <>""
temp = Sheet1.Cells(a, 1).Value
读取学号
bj = Val(Mid$(temp, 6, 2))
读取班级
banji(bj) = banji(bj) + 1
累加
Next a

For b = 1 To bj
Sheet2.Cells(b, 2).Value = banji(b)
Next b