将sumproduct公式改写VBA

laoau123

将sumproduct公式改写VBA

fjmxwrs

你这个问题不是已经解决了吗?
http://www.excelpx.com/forum.php?mod=redirect&goto=findpost&ptid=423732&pid=4087293

laoau123

fjmxwrs 发表于 2016-8-20 20:22
你这个问题不是已经解决了吗?
http://www.excelpx.com/forum.php?mod=redirect&goto=findpost&ptid=423732 ...

两个不一样，刚才那个控制行数=总行数减去H1行

这个不控制行数，用数组如何写高手

scl5801

Sub gxgs()
    Dim arr, i%,  x%, y%, t$
    Dim ar(1 To 33, 1 To 2)
    For x = 1 To 33
       ar(x, 1) = x
    Next x
    arr = Range("C10:J" & Range("C65536").End(xlUp).Row)
    t = Range("P10")
    For i = 1 To UBound(ar)
      For x = 1 To UBound(arr)
         If arr(x, 8) = t Then
            For y = 1 To 6
                If arr(x, y) <> ar(i, 1) Then
                   ar(i, 2) = ar(i, 2) + 0
                Else
                   ar(i, 2) = ar(i, 2) + 1
                End If
            Next y
         End If
      Next x
    Next i
    Range("S10").Resize(UBound(ar)) = Application.Index(ar, 0, 2)
    Erase arr
End Sub

laoau123

scl5801 发表于 2016-8-21 19:33
Sub gxgs()
    Dim arr, i%,  x%, y%, t$
    Dim ar(1 To 33, 1 To 2)

这次结果完全正确

su45

结果完全正确，就没我的事了！

laoau123

su45 发表于 2016-8-21 23:25
结果完全正确，就没我的事了！

自定义函数如何扩展计算一行含有多个


http://www.excelpx.com/thread-423768-1-1.html