请VBA高手解析一下，这个brr(i)=0代表什么，用brr(i)=1难道不可以

laoau138

请VBA高手解析一下，这个brr(i)=0代表什么，用brr(i)=1难道不可以



Sub tt()
    arr = Range("c11:c" & [c65536].End(3).Row)
    x = [j10]
    Dim brr(1 To 6)
    For i = 1 To 6
        brr(i) = 0    '请VBA高手解析一下，这个brr(i)=0代表什么，用brr(i)=1难道不可以
    Next
    For i = 1 To UBound(arr) - 1
        If arr(i, 1) = x Then brr(arr(i + 1, 1)) = brr(arr(i + 1, 1)) + 1
    Next
    [J13].Resize(, 6) = brr
End Sub

十五的月亮

你这是个计数器，应该从0开始，如果设为1，brr(arr(i + 1, 1)) = brr(arr(i + 1, 1)) + 1所有的计数会多一位。如果不设这句  For i = 1 To 6
        brr(i) = 0   
    Next，没有计数的为空。这是我的理解，我学习的也不深。

laoau138

十五的月亮 发表于 2017-2-7 17:46
你这是个计数器，应该从0开始，如果设为1，brr(arr(i + 1, 1)) = brr(arr(i + 1, 1)) + 1所有的计数会多一 ...

如果不用这种方法，你是怎样写

glloin

其实你可以描述一下你所想达到的效果,然后再问怎样写

上面代码有问题的地方很多,

其实你的结果用countif 函数就可以求出来,
完全没必要写这个过程

laoau138

glloin 发表于 2017-2-7 20:24
其实你可以描述一下你所想达到的效果,然后再问怎样写

上面代码有问题的地方很多,

代码完全没有问题，只是看不懂

laoau138

十五的月亮 发表于 2017-2-7 17:46
你这是个计数器，应该从0开始，如果设为1，brr(arr(i + 1, 1)) = brr(arr(i + 1, 1)) + 1所有的计数会多一 ...

Sub TEST1()

Dim Arr, X, A%(1 To 33), N%, B(1 To 33), i%, j&, k%

For Each X In [J10:L10]

    If X > 0 Then A(X) = 1: N = N + 1  '解释这句什么意思，A(X) = 1代表什么

Next                                    '能不能用基本写法，重新写一次，看不懂这个

Arr = Range([C11], [C65536].End(3)(1, 6))

For j = 1 To UBound(Arr) - 1

    X = 0

    For k = 1 To 6

    X = X + A(Arr(j, k))

    Next

    If X = N Then

    For i = 1 To 6

    B(Arr(j + 1, i)) = B(Arr(j + 1, i)) + 1

    Next

    End If

Next j

[J12].Resize(1, 33) = B

End Sub