[已解决]求有关于相同数字的问题。

ywwl

MwqDmJer.rar (7.47 KB, 下载次数: 4)

2010-9-11 17:08 上传

点击文件名下载附件
求有关于相同数字的问题。
附件有说明，谢谢老师的解答。

最佳答案

月排行榜 / 总排行榜

豆丁

2010-9-11 18:13

Sub test()
Dim arr, i%, j%, k%, arrt()
Set d = CreateObject("scripting.dictionary")
arr = Range("d1:i" & [d65536].End(3).Row)
ReDim arrt(1 To UBound(arr) - 1)
For i = 1 To UBound(arr, 2)
    d(arr(1, i)) = ""
Next
For k = 2 To UBound(arr)
    For j = 1 To UBound(arr, 2)
        If d.exists(arr(k, j)) Then
            arrt(k - 1) = arrt(k - 1) + 1
        End If
    Next
Next
Range("k:k").ClearContents
[k2].Resize(UBound(arrt), 1) = Application.Transpose(arrt)
End Sub

跳转到最佳答案楼层

tkgg93

J2=SUMPRODUCT(COUNTIF(D2:I2,$D$1:$I$1))  公式下拉

ywwl

用后出现公式错误呀。版主。

tkgg93

wAF8si2k.rar (8.02 KB, 下载次数: 1)

2010-9-11 17:22 上传

点击文件名下载附件
求有关于相同数字的问题。

宝呗

学习学习。。

ywwl

谢谢版主的回复，不过公式复制进去出现错误呀，还有相同的数字只计算一次的。

ywwl

相同的数字只计算一次的。

ywwl

tkgg93版主，对不起，没讲楚问题。相同的数字只计算一次的。比如第一行与第八行应该是3个相同的，而公式结果是6个，第一行是固定的，是求它与后面第一列相同数字的个数。

ywwl

第一行与后面每一行相同数字的个数。

MM309755469

来学习一下