[已解决]EXECL高手用VBA统计一列数字出现次数错在哪里

vbyou127

EXECL高手用VBA统计一列数字出现次数错在哪里

最佳答案

月排行榜 / 总排行榜

爱疯

2016-3-27 12:24

Function 循环()
    [j10:j42] = ""
    For i = 10 To 39
        For j = 2 To 7
            For k = 10 To 42
                If Cells(i, j) = Cells(k, 9) Then
                    Cells(k, 10) = Cells(k, 10) + 1
                End If
            Next
        Next
    Next
End Function


原因：运行前，未清除输出区（导致输出区数据，总被累计到当前的运行结果中）

跳转到最佳答案楼层

爱疯

Function 循环()
    [j10:j42] = ""
    For i = 10 To 39
        For j = 2 To 7
            For k = 10 To 42
                If Cells(i, j) = Cells(k, 9) Then
                    Cells(k, 10) = Cells(k, 10) + 1
                End If
            Next
        Next
    Next
End Function


原因：运行前，未清除输出区（导致输出区数据，总被累计到当前的运行结果中）