根据表2的答案在表1中标记答案为1

154856200

各位大拿 附件中2个表，表二是题干和答案，如何在表1中按格式标记出答案

gwjkkkkk

Option Explicit
Sub TEST6()
    Dim ar, br, i&, j&, r&, dic As Object, strJoin$
   
    Application.ScreenUpdating = False
    Set dic = CreateObject("Scripting.Dictionary")
   
    ar = Worksheets(2).[A1].CurrentRegion.Value
    For i = 2 To UBound(ar)
        strJoin = ""
        For j = 2 To 5
            If Len(ar(i, j)) Then
                strJoin = strJoin & "|" & ar(i, j)
            End If
        Next j
        dic(ar(i, 1)) = strJoin & "|"
    Next i
   
    r = Cells(Rows.Count, "A").End(xlUp).Row
    ar = Range("A1:B" & r).Value
    ReDim br(1 To UBound(ar), 0)
    br(1, 0) = "标记"
    For i = 2 To UBound(ar)
        If InStr(dic(ar(i, 1)), "|" & ar(i, 2) & "|") Then br(i, 0) = 1
    Next i
   
    [C1].Resize(UBound(br)) = br
    Set dic = Nothing
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

请参考。。。、

chxw68

写好了。其实从表2直接转换成表1还简单一些。

154856200

gwjkkkkk 发表于 2024-10-28 18:45
请参考。。。、

表1生成的全是1啊，例如第一题ABD，就在ABD生成3个1

gwjkkkkk

154856200 发表于 2024-10-28 19:45
表1生成的全是1啊，例如第一题ABD，就在ABD生成3个1

搞错了，有褚老师写了，我不写了。。。

154856200

chxw68 发表于 2024-10-28 18:51
写好了。其实从表2直接转换成表1还简单一些。

对了，这个效果非常棒，非常感谢