[已解决]求连续值的数量

爱疯

4qAomevb.rar (7.78 KB, 下载次数: 1)

2010-4-25 21:56 上传

点击文件名下载附件
求连续值的数量

这里，3,、空值、a都是连续的，所以应返回3。

我试了多次，老错，而且一看就不应该这么复杂。而且还没出来。。。。

请问该怎么写？谢谢！

[em04]

最佳答案

月排行榜 / 总排行榜

Zipall

2010-4-25 22:30

Sub test()
    a = [transpose(a1:a10)]
    x = a(1)
    For i = 2 To UBound(a)
        If a(i) <> x Then
            If y > 0 Then z = z + 1
            x = a(i)
            y = 0
        Else
            y = y + 1
        End If
    Next
    If y > 0 Then z = z + 1
    MsgBox z
End Sub

如果A1:A2也是3 3 ，结果应该是3还是4？

[此贴子已经被作者于2010-4-25 22:31:37编辑过]

跳转到最佳答案楼层

爱疯

Sub aa()
    Dim d, arr, i, j, k, n

    Set d = CreateObject("scripting.dictionary")
    arr = [a1:a10]
    
    For i = 1 To UBound(arr) - 1
        For j = i To UBound(arr) - 1
            d(arr(i, 1)) = arr(i, 1) '加入字典
            If d.Count > 1 Then
                '出现不同的值了
                n = n + 1
                d.RemoveAll
                Exit For
            End If
        Next j
    Next i
    MsgBox n
End Sub

好像这次没错，但觉得肯定不需这么繁琐。。。

[em04]

Zipall

既然6 7行的空值也算，那么11行以后的空值为什么又不算了？

爱疯

QUOTE:

以下是引用Zipall在2010-4-25 22:09:00的发言：
既然6 7行的空值也算，那么11行以后的空值为什么又不算了？

谢谢Zipall提醒

由于目的是对一个区域统计，是我1楼没说明白。

arr = [a1:a10]，正是这个意思

[em25]

爱疯

Sub bb()
    Dim d, arr, i, j, k, n


    arr = [a1:a10]

    '''''''''''''''''''''''''''''''''''''''''''''''''''
    Set d = CreateObject("scripting.dictionary")
    For i = 1 To UBound(arr) - 1
        For j = i To UBound(arr) - 1

            k = k + 1    '循环次数计数
            d(arr(i, 1)) = arr(i, 1)    '加入字典
            If d.Count > 1 Then
                '出现不同的值了
                n = n + 1
                d.RemoveAll
                Exit For
            End If
        Next j
    Next i
    '''''''''''''''''''''''''''''''''''''''''''''''''''

    MsgBox "连续数的数量:" & n & Chr(10) & "循环次数:" & k
End Sub

循环了29次，不好；

方法太麻烦，不好，

再想，等待学习高手方法 .... 谢谢！

liyh67

看楼主1楼的意思，1楼的数据结果应该是3，但运行2楼的代码结果是4

Zipall

Sub test()
    a = [transpose(a1:a10)]
    x = a(1)
    For i = 2 To UBound(a)
        If a(i) <> x Then
            If y > 0 Then z = z + 1
            x = a(i)
            y = 0
        Else
            y = y + 1
        End If
    Next
    If y > 0 Then z = z + 1
    MsgBox z
End Sub

如果A1:A2也是3 3 ，结果应该是3还是4？

[此贴子已经被作者于2010-4-25 22:31:37编辑过]

爱疯

QUOTE:

以下是引用liyh67在2010-4-25 22:29:00的发言：

看楼主1楼的意思，1楼的数据结果应该是3，但运行2楼的代码结果是4

谢谢67！！

是的，刚才我把A1:A10改了几个数字后，发现楼上我的方法都是错的。。。。还不知道又哪儿错了，唉。

贴方法的意思是想帮助说明1楼题意。

爱疯

QUOTE:

以下是引用Zipall在2010-4-25 22:30:00的发言：
Sub test()
    a = [transpose(a1:a10)]
    x = a(1)
    For i = 2 To UBound(a)
        If a(i) <> x Then
            If y > 0 Then z = z + 1
            x = a(i)
            y = 0
        Else
            y = y + 1
        End If
    Next
    If y > 0 Then z = z + 1
    MsgBox z
End Sub

如果A1:A2也是3 3 ，结果应该是3还是4？

求连续值的数量

如果如图，返回4,即以下4个连续取:

A1:A2

A4:A5

A6:A7

A8:A10

Zipall

如果要返回4，用我7楼的代码。

如果要返回3，用下面的代码

Sub aa()
    'On Error Resume Next
    Set d = CreateObject("scripting.dictionary")
    a = [transpose(a1:a10)]
    For i = 2 To UBound(a)
        If a(i) = a(i - 1) Then d(a(i)) = a(i)
    Next i
    MsgBox d.Count
End Sub