按行数计算等值数据间隔

雪裕隆冬

图中相同数字我已经用相同颜色填充，以便各位老师识别。

红框内数字是举例：比如  41  这个数，在 9行、13行、16行 出现，在第 9行是第一次出现，所以无法计算与上次出现相同数字时所在行的间隔数量，但第 13行和第 16行的数据可以看出结果分别是4和3，那么求问怎么能用公式得到这些数据？

在得到每个数据与该数据上一次出现的行数间隔后，在C、D两列内按要求填入数值，其实就是从B列中用公式筛选求得结果。

希望大神们解答一下，先行拜谢各位大神老师。

zyhqzn

excel2016pq所做

雪裕隆冬

我是 EXCEL2013 ，有没有公式运算可以解决这个问题呢？

我走我流

B2     =IFERROR(ROW()-LOOKUP(1,0/(A1:A$1=A2),ROW($1:1)),"")
C2   =IF(COUNTIF($A$2:$A$21,A2)<2,"",MAX(MMULT(LARGE(IF(A2=$A$2:$A$21,ROW($1:$20),),IF({1,0},ROW(INDIRECT("1:"&COUNTIF($A$2:$A$21,A2)-1)),ROW(INDIRECT("2:"&COUNTIF($A$2:$A$21,A2))))),{1;-1})))
D2与C2类似，就不写了

飞天篮球猪

zyhqzn 发表于 2019-1-13 09:39
excel2016pq所做

也用PQ做了一下。

1. let
   
2.     源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
   
3. 
   
4.     变 = List.Accumulate( 源[数字],
   
5.                           {{},{}},
   
6.                           (s,c)=>{ s{0}&{c}, s{1}&{ [ f = (x,y)=>List.PositionOf(x,y,2),
   
7.                                                       l = f(源[数字],c),
   
8.                                                       m = List.Transform({1..List.Count(l)-1},each l{_}-l{_-1}),
   
9.                                                       p = List.Count(f(s{0},c)),
   
10.                                                       i = if p=0 then null else l{p}-l{p-1},
    
11.                                                       r = {c,i,List.Max(m,0),List.Min(m,0)} ][r] } } ){1},
    
12.     果 = #table({"数字","间隔","最大","最小"}, 变)
    
13. in
    
14.     果

复制代码

截图如下：


附件：
相同数字间隔.xlsx.zip (15.41 KB, 下载次数: 5)

2019-1-13 23:52 上传

点击文件名下载附件