[已解决] - 提取数组中连续两个以上数字的元素起始和结束位置到新数组

shissx

1. Sub 提取数组中连续两个以上数字的元素起始和结束位置到新数组()
   
2.     arr = Array(5, 0, 5, 5, 1, 2, 5, 5, 5, 3, 5, 5, 5, 5, 6)
   
3.     MsgBox (arr)
   
4.     '需要提取
   
5.     '第3到第4位：5,5
   
6.     '第7到第9位：5,5,5
   
7.     '第11到第14位：5,5,5,5
   
8.     '生成一个新的数组，内容为原数组间隔重复数字的起始和结束位置
   
9.     '新数组如下
   
10.     'arr1 = Array(3,4,7,9,11,14)
    
11. End Sub

复制代码

1.如图，需要达到(3,4,7,9,11,14)的效果，谢谢！2.也可以只提取出第一组连续重复的数组元素，
例1：arr = Array(5, 0, 5, 5, 1, 2, 5, 5, 5, 3, 5, 5, 5, 5, 6)
        第3到第4位：5，5，需要3和4这两个位置
例2：arr = Array(0, 3, 3, 3, 3, 3, 3, 0, 3, 3, 0, 1, 3, 3, 0)
        第2位到第7位：3，3，3，3，3，3，需要2和7这两个数

其实这个问题是需要解决PPT思维导图连线的问题，ppt中3个图形，手动加动画是同一个动画序号，用如图代码加却是3个动画效果，想更改代码实现一个动画，两天了都没找到办法，所以想着可以通过遍历幻灯片中动画效果列表的方法变相实现，特来求助，谢谢大神解答。

蓝桥玄霜

提取的例子：

shissx

完美解决这个问题中的例1，谢谢！！
不过后来在PPT中手动测试后发现，PPT中合并图形会造成数组总数减少，所以提取全部连续重复有点浪费（理论上减少后可以送去之前的数据，太费劲也想不出来），所以用笨办法，多次遍历只需要提取第1组连续的数字就好，下午连试带蒙胡乱摸索出来了方框中的代码，已经可以正常使用了。
非常感谢