用VBA编程可以实现。
第一步:输入一个数据清单如图:
第二步:点击开发工具-visual basic-插入模块
第三步:输入自定义函数代码如下:
Function ac(a)Dim arr(1 To 100)Dim zharr(1 To 1000, 1 To 3)Dim zhgs As IntegerDim gs As Integer '数据个数gs = 0 '统计数据的个数 即R值For Each myc In ags = gs + 1arr(gs) = myc.ValueNext myczszZS = 0For i = 1 To gs - 1For j = i + 1 To gszhgs = zhgs + 1zharr(zhgs, 1) = arr(i)zharr(zhgs, 2) = arr(j)zharr(zhgs, 3) = Abs(arr(i) - arr(j))Next jNext iSet zczzd = CreateObject("scripting.dictionary")For i = 1 To zhgsIf zharr(i, 3) > 0 ThenIf Not zczzd.exists(zharr(i, 3)) Thenzczzd.Add zharr(i, 3), 1End IfEnd IfNext iac = zczzd.Count - gs + 1End Function第四步:在C1单元格输入公式:=ac(A1:A$7)。结果如图:
第五步:将C1的公式下拉至C7.结果如图: