循环相减统计一共有多少个不同的结果

乐开花36

一列有10个数字组成数组，数字之间相减，形式如下，结果相同的数字都计为1次，一共有多少个不同结果的代码怎样写，谢谢
arr = Range("b3:b12")
For j = 10 To 2 Step -1
      For i = j - 1 To 1 Step -1
        s = arr(j) - arr(i)
       。。。。。。。
        Next
Next

liulang0808

楼主还是上传附件，结合附件举例说明吧】
如果要去重统计个数，可以考虑使用字典的

乐开花36

liulang0808 发表于 2019-6-7 20:01
楼主还是上传附件，结合附件举例说明吧】
如果要去重统计个数，可以考虑使用字典的

不同结果个数.zip (6.72 KB, 下载次数: 2)

2019-6-7 20:06 上传

点击文件名下载附件

太简单了，所以没做附件，。。数组感觉有点小弯弯绕，不明白，希望补齐一下哦，相减规则，如原题代码所示，想得到不相同相减结果个数是多少

maditate

乐开花36 发表于 2019-6-7 20:10
太简单了，所以没做附件，。。数组感觉有点小弯弯绕，不明白，希望补齐一下哦，相减规则，如原题代码 ...

估计结果比你得到的翻一番。A-B  <> B-A

liulang0808

1. Sub test()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     arr = Range("b3:b12")
   
4.     For j = UBound(arr) To 2 Step -1
   
5.         For i = j - 1 To 1 Step -1
   
6.             s = arr(j, 1) - arr(i, 1)
   
7.             d(s) = d(s) + 1
   
8.         Next
   
9.     Next
   
10.     [d3].Resize(d.Count) = WorksheetFunction.Transpose(d.keys)
    
11.     [e3].Resize(d.Count) = WorksheetFunction.Transpose(d.items)
    
12. End Sub
    

复制代码

liulang0808

不知道理解的对不对。。。。

乐开花36

maditate 发表于 2019-6-7 20:18
估计结果比你得到的翻一番。A-B   B-A

不明白，愿听其详

maditate

乐开花36 发表于 2019-6-7 20:19
不明白，愿听其详

10 -8 =2   8 - 10=-2
从上往下循环后，应该再来一个从下往上循环。结果就翻一番。

乐开花36

liulang0808 发表于 2019-6-7 20:19
不知道理解的对不对。。。。

厉害，希望得到一个统计结果数字各不相同的总数，，如：T=28,   MSGBOX T，就行了，这总个数怎样赋值给T呢？

liulang0808

Sub test()
    Set d = CreateObject("scripting.dictionary")
    arr = Range("b3:b12")
    For j = UBound(arr) To 2 Step -1
        For i = j - 1 To 1 Step -1
            s = arr(j, 1) - arr(i, 1)
            d(s) = d(s) + 1
        Next
    Next
    msgbox d.count
End Sub
楼主测试看看吧