如何根据考室人数生成考室数

foreversun

2

1

工作簿3.rar (12.07 KB, 下载次数: 9)

2023-6-5 09:29 上传

点击文件名下载附件

3190496160

Sub 生成()
Dim ar As Variant
Dim br()
With Sheet1
    r = .Cells(Rows.Count, 4).End(xlUp).Row
    ar = .Range("d1:h" & r)
    sl = Application.Sum(.Range("h2:h" & r))
    ReDim br(1 To sl, 1 To 3)
    For i = 2 To UBound(ar)
        If Trim(ar(i, 2)) <> "" And Trim(ar(i, 3)) <> "" Then
            If IsNumeric(ar(i, 2)) And IsNumeric(ar(i, 3)) Then
                If ar(i, 2) / ar(i, 3) = Int(ar(i, 2) / ar(i, 3)) Then
                    gs = ar(i, 2) / ar(i, 3)
                Else
                    gs = Int(ar(i, 2) / ar(i, 3)) + 1
                End If
                For s = 1 To gs
                    n = n + 1
                    br(n, 1) = ar(i, 1)
                    If s < gs Then
                        br(n, 2) = ar(i, 2)
                    Else
                        br(n, 2) = ar(i, 3)
                    End If
                    br(n, 3) = Format(n, "00")
                Next s
            End If
        End If
    Next i
    If n = "" Then End
    .[s1].CurrentRegion.Offset(1) = Empty
    .[s2].Resize(n, 3) = br
End With
MsgBox "ok!"
End Sub

3190496160

3190496160

工作簿3.rar (13.19 KB, 下载次数: 8)

2023-6-5 09:48 上传

点击文件名下载附件

tel3033

供参考……

foreversun

生成的第二数据应该是根据每考室人数来，如果是30人的，则为30，不足30的是后面的余数   谢谢

foreversun

3190496160 发表于 2023-6-5 09:48

每考室人数是用选科人数去除30 比如物化生是392 /30  物化生应该是14个考室，前面13个每考室30人，第14考室2人（即作392/30的余数）

3190496160

现在应该对了
工作簿3.rar (14.27 KB, 下载次数: 8)

2023-6-5 10:52 上传

点击文件名下载附件

foreversun

3190496160 发表于 2023-6-5 10:53
现在应该对了

谢谢你。完美

cai2532

这个先收下备用。