|
把ggmmlol老师的代码加个循环可好?
另外感觉楼上诸位老师(比如一把小刀闯天下,lsdongjh,ggmmlol,cjc209,micch,dsmch。。。。。。当然不包括我)的代码都非常好!你就不能送朵小花给他们?是没权力送呢?还是不舍得送?或者是感觉他们的代码写的不如你?- Sub test0()
- p = InputBox("请输入>x连续数量,")
- If p = "" Then Exit Sub
- If Val(p) < 1 Then Exit Sub
- ar = Range("a1").CurrentRegion.Resize(, 2)
- ss = ar(1, 1) '初值
- For i = 2 To UBound(ar)
- If ar(i, 1) = ar(i - 1, 1) + 1 Then '如果连续
- x = x + 1 '计数加1
- Else '否则,“结算”一次
- If x >= Val(p) Then ss = ss & "-" & ar(i - 1, 1)
- 'ss = ss & "," & ar(i - 1, 1)
- If x < Val(p) And x > 0 Then
- For j = x To 1 Step -1: ss = ss & "," & ar(i - j, 1): Next
- End If
- ss = ss & "," & ar(i, 1): x = 0 '“结转”
- End If
- Next
- If x >= Val(p) Then ss = ss & "-" & ar(i - 1, 1)
- 'ss = ss & "," & ar(i - 1, 1)
- If x < Val(p) And x > 0 Then
- For j = x To 1 Step -1: ss = ss & "," & ar(i - j, 1): Next
- End If
- MsgBox ss
- End Sub
复制代码 |
|