对条件匹配问题（难）请大神帮助，谢谢。

细雨言寺

对条件匹配问题（难）请大神帮助，谢谢。

zmj9151

初步理解是一个循环遍历问题，取考生答案，在正确答案数组中比对，正确就加分，错误就为零。

蓝桥玄霜

请见代码。

dsmch

1. Sub 宏1()
   
2. Dim arr, brr, d, i&, j%, zf$
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = Range("a1").CurrentRegion
   
5. brr = [r1:ad3]
   
6. For j = 2 To UBound(brr, 2)
   
7.     zf = brr(1, j) & "," & brr(2, j)
   
8.     d(zf) = brr(3, j)
   
9. Next
   
10. For i = 2 To UBound(arr)
    
11.     For j = 5 To UBound(arr, 2)
    
12.         zf = arr(1, j) & "," & arr(i, j)
    
13.         If Not d.exists(zf) Then arr(i, j) = 0 Else arr(i, j) = d(zf)
    
14.     Next
    
15. Next
    
16. Range("r10").Resize(UBound(arr), UBound(arr, 2)) = arr
    
17. End Sub

复制代码