耐药统计问题

e6801021

本人刚刚接触到VBA,纯小白一枚！现在工作中需要统计耐药率，想用VBA实现！试写了一段，但是统计得不对，请大神帮我分析！谢谢

e6801021

通过这两天的学习，终于摸着点头绪了！
Sub a()
Dim i&, j&, s$, d, arr, brr
Set d = CreateObject("scripting.dictionary")
arr = [a1].CurrentRegion
     For i = 2 To UBound(arr)
     For j = 2 To UBound(arr, 2)
     s = arr(i, 1) + arr(1, j)
    If arr(i, j) = "耐药" Then
    arr(i, j) = 1
    d(s) = d(s) + 1
Else
    arr(i, j) = ""
End If
Next
Next
Sheet2.Select
brr = [a1].CurrentRegion
    For i = 2 To UBound(brr)
    For j = 2 To UBound(brr, 2)
    s = brr(i, 1) & brr(1, j)
    Cells(i, j) = d(s)
Next
Next
End Sub

e6801021

Sub 细菌耐药分析()
Dim i&, j&, s$, d, arr, brr
Set d = CreateObject("scripting.dictionary")
arr = Sheet1.[a1].CurrentRegion
    For i = 3 To UBound(arr)
    For j = 26 To UBound(arr, 2) Step 3
    s = arr(i, 17) & arr(1, j)
If arr(i, j + 2) = "耐药" Then
    d(s) = d(s) + 1
    Else
    d(s) = ""
End If
Next
Next
Sheet2.Select
    brr = [a1].CurrentRegion
    For i = 2 To UBound(brr)
    For j = 3 To UBound(brr, 2)
    s = brr(i, 1) & brr(1, j)
    Cells(i, j) = d(s)
Next
Next

End Sub

e6801021

大神帮我看看，为什么提示类型错误！！

yiye6900345

你要得到什么结果？能说明白点吗？