4选2考试中如何按照组合和考场号来确定第一二场考试科目

sxdmsz

4选2考试中如何按照组合和考场号来确定第一二场考试科目（具体见表格M到u列内容），见表2中的红色部分，并按考场生成分表，谢谢 1.rar (37.26 KB, 下载次数: 13)

2024-5-3 14:15 上传

点击文件名下载附件

chxw68

详见附件。

sxdmsz

chxw68 发表于 2024-5-3 18:04
详见附件。

老师，你好，能否帮助按考场号生成分表，谢谢

gwjkkkkk

Option Explicit
Sub TEST6()
    Dim ar, br, i&, j&, dic As Object, strKey$
   
    Application.ScreenUpdating = False
    Set dic = CreateObject("Scripting.Dictionary")
   
    ar = [M1].CurrentRegion.Value
    For i = 3 To UBound(ar)
        For j = 2 To 5 Step 2
            If Len(ar(i, j)) Then
                dic(ar(i, 1) & ar(i, j)) = Array(ar(i, j + 1), ar(i, j + 5))
            End If
        Next j
    Next i
   
    ar = [A1].CurrentRegion.Value
    For i = 2 To UBound(ar)
        strKey = Format(ar(i, 3), "00") & ar(i, 1)
        If dic.exists(strKey) Then
            br = dic(strKey)
        Else
            br = Array("", "")
        End If
        For j = 0 To UBound(br)
            ar(i, j + 7) = br(j)
        Next j
    Next i
    [A1].CurrentRegion.Value = ar
   
    Set dic = Nothing
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

请参考附件。。。

chxw68

修改好了。

wang-way

联系我，我有成熟的方案可以解决，一次半次的随你用

cyq4896

学习一下...