有条件的多张纸上的平均值

Question

My Excel Workbook has several sheets. Each sheet has in cell B1 a product name.

Also, each sheet has in cells B4 to B100 lots of numbers.

I would like to get the average over all sheets. Here is what I have so far:

=AVERAGE(Sheet1:Sheet20!B4:B100)

Now this works fine, however, I would now also like to have an extra condition: Instead of getting the average over all sheets, I only want to get the average over those sheets which meet a certain product name (cell B1). If the product name is different from the specified one, the whole sheet should not be taken into consideration for the average.

Is there any simple way of doing this?

Answer 1

This performs the average if the B1 contains Apfel :

Sub AboveAverage()
    Dim zum As Double, kount As Long
    Dim i As Long, r As Range, tAv As Double
    zum = 0
    kount = 0
    For i = 1 To 20
        With Sheets("Sheet" & i)
        If .Range("B1") = "Apfel" Then
            For j = 4 To 10000
                v = .Cells(j, "B").Value
                If v <> "" Then
                    zum = zum + v
                    kount = kount + 1
                End If
            Next j
        End If
        End With
    Next i
    tAv = zum / kount
    MsgBox tAv
End Sub