有误 请大佬们帮下忙看下，谢谢

likaiyihou

提供了随机分配和顺序分配2种处理方案，代码供参考。

不规则结构

Sub test()
    Dim str
    For i = 2 To 170
        str = Cells(i - 1, 5)
        If Cells(i, 1) <> Cells(i - 1, 1) Or Application.CountIf(Range("E:E"), str) = 35 Then a = a + 1
        Cells(i, 5) = "第" & a & "考室"
    Next
End Sub
追求一个字“短”！

gwjkkkkk

Option Explicit
Sub TEST0()
    Dim ar, cr, i&, j&, m&, n&, dic As Object, vKey
   
    Application.ScreenUpdating = False
    Set dic = CreateObject("Scripting.Dictionary")
   
    ar = [A1].CurrentRegion.Value
    For i = 2 To UBound(ar)
        dic(ar(i, 1)) = dic(ar(i, 1)) & " " & i
    Next i
   
    For Each vKey In dic.keys
        cr = Split(dic(vKey))
        For i = 1 To UBound(cr) Step 35
            If i + 34 > UBound(cr) Then n = UBound(cr) Else n = i + 34
            m = m + 1
            For j = i To n
                ar(cr(j), 5) = "第" & m & "考室"
            Next j
        Next i
    Next
   
    [A1].CurrentRegion.Value = ar
    Set dic = Nothing
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

参与一下。。。