123

Dim bijiao As New Collection

if Cells(i, 3).Value <> Cells(i + 1, 3).Value   and bijiao.count = 0            //说明只有一个小班
    then   Cells(i,8).value = Cells(i, 2)



if Cells(i, 3).Value == Cells(i + 1, 3).Value
    then   bijiao.add(cell(i, 3).value) 


if Cells(i, 3).Value <> Cells(i + 1, 3).Value                               //说明当前这个表格和下一个表格小班号不一样(相同小班结束)                     
    then   do nothing
        bijiao.add(cell(i, 3).value) 

        bijiao.

Cells(1, 1).Value = bijiao.Count

123

原文：https://www.cnblogs.com/lbsjs/p/11586556.html