VBA子程序（宏）获取一个范围内的正值和和的数量？

Question

有人可以帮我解决我的VBA任务吗？写这样的子程序对我来说有点复杂。我需要一个子程序，它从任何大小的范围中找到正值（开始单元格被称为＆＃34;开始＆＃34;）并将正值的总和和数量打印到称为＆＃34; sum＆＃的单元格中34;和＆＃34;数字＆＃34;。

Answer 1

试试这个：

Sub sum_positive()
Dim area
Dim total As Double
Dim quantity As Integer

'Select the range of the area you want to test
Range("begin").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select

area = Selection

'Do a loop for each item you select to discover who is positive
For Each n In area
    If n > 0 Then
        total = total + n
        quantity = quantity + 1
    End If
Next n

'Return the values
Range("J1").Value = total

Range("L1").Value = quantity

End Sub