数字间隔问题

leslie0705

7	9	12	19	22	43	6	5
8	15	16	33	44	47	1	3
5	7	15	23	24	32	8	8
12	14	15	17	31	38	19	4
6	13	18	22	44	45	1	8
1	12	16	24	32	49	46	8
7	11	19	28	46	48	38	9
1	22	39	42	43	47	28	2
3	11	13	16	24	31	6	0

又要麻烦2位大大了。。
这是个列为8，行无限的数组。
我要从最低的那一行开始算起数字的间隔。比如说24的间隔是： 0 2 2
19的间隔是： 2 2 2.  数字7的间隔是： 2 3 1.
我应该怎么做呢？

roych

回复 leslie0705 的帖子

说实话，我不是很清楚你想要返回什么样的值。我这里写了一段代码供参考，效果如下图所示：

先贴上代码：

1. Sub test()
   
2. For Each one In Range("A1:H10")
   
3.     If one.Value = Range("B14").Value Then
   
4.      i = i + 1
   
5.      Cells(i, "i").Value = "第" & i & "次位置"
   
6.      '返回行标到J列
   
7.     Cells(i, "j").Value = "第" & one.Row & "行"
   
8.     '返回列标到K列
   
9.     Cells(i, "k").Value = "第" & one.Column & "列"
   
10.     '计算行标*列数和列标的和，并返回值到L列
    
11.     Tem = (one.Row - 1) * 8 + one.Column
    
12.     Cells(i, "l").Value = Tem
    
13.     End If
    
14.     Next one
    
15. End Sub

复制代码

pureshadow

EXCEL版发贴提问请附上工作簿
http://www.office-cn.net/forum-v ... -fromuid-77755.html

leslie0705

谢谢小妖姐的提醒！下次我会注意的。。
还有我想知道的是，我能不用VBA而是直接用公式求出来吗？
ROY大大的程序很好，但我只要知道行数（就是ROY大的J列）的间隔就够了。
我想求出最后一行的所有数字（3，11，13。。）的每个数字的间隔。打个比方吧，
最后一行（第9行）的24的跟自己的最近的行的间隔（第6行）为2（9-6-1），然后
第六行的24和第三行的24间隔为2（6-3-1）。因为行是无限的，所以我不懂怎么计算。
像ROY大一样另外开一列来专门列出数字24（以及其他最后一行的数字）的间隔，然后通过下拉把各个间隔算出，就是我想做的。
可以只用公式不用VBA吗？谢谢。。。

leslie0705

还有我能不能知道连续2行（或更多）都出现的相同数字呢？
比如说，就如ROY大大的表格，在第2,3,4行都有数字15，那我要知道最后的那一行：第4行，还有连续3次的频率。
如果只用公式能做到吗？谢谢。。。

pureshadow

你把附件传上来，我试试看能不能写个公式。

leslie0705

,

现在差不多有1000行，我只是用前32行举例。。
好像数字37，我用红色显示，总共有4个（第2,4,10,28行），所以间隔为1,5,17（第2行到第4行，第4行到第10行，第10行到第28行），数字48和49我也这么做了，我需要把数字1到49都这么做，在表sheet2.
然后在sheet3我需要计算出各个数字连续出现的次数。如果不是连续出现，就是X，如果连续2次出现，是XX，如此类推。
所以37没有连续出现，但出现了4次，就在X列写4。49在第14,17行单独出现，所以在X列写2，在第5,6行连续出现，所以在XX列写1,。然后在22,23,24连续出现，所以在XXX列写1。数字48有3次单独出现（第14,17,20行），有一次连续2次出现（第31,32行），所以X列为3，XX列为1。。
我需要把差不多1000行的数据写入sheet2，和sheet3中，并且数据是每周更新，sheet2，和sheet3的表会根据sheet1的更新而自动更新。。

pureshadow

sheet2的B2

1. =SMALL(IF(B$1=Sheet1!$A$1:$G$938,ROW($1:$938)),ROW(A2))-SMALL(IF(B$1=Sheet1!$A$1:$G$938,ROW($1:$938)),ROW(A1))-1

复制代码

CTRL+SHIFT+ENTER 结束后下拉右拉
PS，你的手工计算有误

pureshadow

SHEET3的B2

1. =COUNTA(Sheet2!B:B)-SUM(C2:F2)

复制代码

下拉
C2

1. =SUM(N(FREQUENCY(IF(N(OFFSET(INDIRECT("Sheet2!r1c"&ROW(A2),),ROW,))=0,ROW),IF(N(OFFSET(INDIRECT("Sheet2!r1c"&ROW(A2),),ROW,)),ROW,))=COLUMN(A1)))

复制代码

CTRL+SHIFT+ENTER结束后右拉下拉
其中ROW=

1. =ROW(INDIRECT("1:"&(COUNTA(INDIRECT("Sheet2!c"&ROW(Sheet3!A2)&":c"&ROW(Sheet3!A2),))-1)))

复制代码

激活C2时输入的自定义名称

pureshadow

上面几个公式都在这个附件里了。
PS，这么玩公式，真是太考验电脑了……