用代码找出一维数字组成的数组中连续的和不连续的数字，见附件

weist123 · 发表于 2016-1-1 08:35

一维数字组成的数组，是小到大排列的，如（2,3,6,9,11,12,13,14,15,16,19）

希望能用代码算出：

1、哪些数字是不连续的，用单独数字表示如“9”；
2、连续的数用“*-*”的形式表示，如“11-16”；
3、最终用对话框输出结果为：“2-3,6,9,11-16,19”

附件里的数组元素更多。

谢谢老师们，祝老师们新年快乐！！

Book3.rar (15.04 KB, 下载次数: 15)

bajifeng · 发表于 2016-1-1 11:30

本帖最后由 bajifeng 于 2016-1-1 12:40 编辑

烧脑子。。。

Sub db() 'bajifeng
arr = Array(2, 3, 6, 9, 11, 12, 13, 14, 15, 16, 19, 25, 26, 27, 101, 105, 106, 107, 109)
For i = 1 To UBound(arr) - 1
'Debug.Print arr(i)
If arr(i) - arr(i - 1) = 1 Then
n = n + 1
If n = 1 Then
sl = arr(i - 1) & "-"
End If
If arr(i + 1) - arr(i) = 1 Then
GoTo 100
Else
sl = sl & arr(i) & ","
n = 0
End If
Else
If arr(i + 1) - arr(i) = 1 Then GoTo 100
sl = arr(i) & ","
End If
100:
s = s & sl
sl = ""
Next
If Right(s, 1) = "," And arr(UBound(arr)) - arr(UBound(arr) - 1) = 1 Then
s = Left(s, Len(s) - 1 - Len(arr(UBound(arr)))) & arr(UBound(arr))
Else
s = s & arr(UBound(arr))
End If
MsgBox s
End Sub

复制代码

bajifeng · 发表于 2016-1-1 11:34

>>>>>>>>>>>>>

bajifeng · 发表于 2016-1-1 11:35

本帖最后由 bajifeng 于 2016-1-1 13:07 编辑

>>>>>>>>>>>>>>>>>>>>>>>
请测试附件，如有问题请回复。。

weist123 · 发表于 2016-1-1 11:48

谢谢，麻烦老师了。新年快乐！

确实费脑子啊！！

bajifeng · 发表于 2016-1-1 12:35

本帖最后由 bajifeng 于 2016-1-1 12:39 编辑

升级代码，对于多位数，同样适用，请在原有楼层下载。

UNIMOG4000 · 发表于 2017-2-23 18:54

不错，学习了！

bestqiaochu · 发表于 2018-6-11 15:42

学习了,辛苦了

		自动登录	找回密码
密码			免费注册

[求助] 用代码找出一维数字组成的数组中连续的和不连续的数字，见附件

评分

评分