VBA简单通过循环的每个列

Question

我需要一些支持来纠正此简单的代码。 运行代码时，它始终显示1，然后弹出未命中匹配错误框。 我看不出为什么这不起作用，代码似乎很简单。

 Sub Test3()
Dim rng As Range, cell As Range

Set rng = Range("D1:D10")

For Each cell In rng
    If cell.Value > 0 Then
    MsgBox Application.WorksheetFunction.CountA(cell.Value)
End If
Next cell

结束子

Answer 1

这是一种方法：

Sub Test3()
    Dim rng As Range, cell As Range, IAmTheCount As Long
    Set rng = Range("D1:D10")
    IAmTheCount = 0
    For Each cell In rng
        If cell.Value > 0 Then
            IAmTheCount = IAmTheCount + 1
        End If
    Next cell
    MsgBox IAmTheCount
End Sub

Answer 2

由于您在for each循环中都使用a，因此您要逐一计数单元格。 这就是Msgbox总是说1的原因。您不应使用循环来实现所需的功能

Sub Test3()
    Dim rng As Range, cell As Range

    Set rng = Range("D1:D10")

    MsgBox Application.WorksheetFunction.CountIf(rng, ">0")

End Sub