第壹步:進入數據列表，如下圖所示:
第二步:點擊開發工具-visual basic-插入模塊。
第三步:輸入自定義功能代碼，如下所示:
功能ac(a)
Dim arr(1到100)
Dim zharr(1到1000，1到3)
Dim zhgs為整數
“將gs作為整數”數據編號
Gs = 0 '統計數據的數量是R值。
對於中的每個myc
gs = gs + 1
arr(gs) = myc。價值
下壹myc
zszZS = 0
對於i = 1至gs - 1
對於j = i + 1到gs
zhgs = zhgs + 1
zharr(zhgs，1) = arr(i)
zharr(zhgs，2) = arr(j)
zharr(zhgs，3) = Abs(arr(i) - arr(j))
下壹個j
接下來我
set ZC zzd = CreateObject(" scripting . dictionary ")
對於i = 1至zhgs
如果zharr(i，3)>那麽0
如果不存在zczdd . exists(zh arr(I，3))，則
zczzd。加zharr(i，3)，1
如果…就會結束
如果…就會結束
接下來我
ac = zczzd。計數- gs + 1
結束功能
第4步:在單元格C1中輸入公式=ac(A1:A$7)。結果如圖所示:
第五步:把C1的公式下拉到C7。結果如下所示: