具有 OR 条件的 VBA AverageIfs 应用程序答案

【问题标题】：VBA AverageIfs application with OR condition具有 OR 条件的 VBA AverageIfs 应用程序
【发布时间】：2017-09-22 17:54:52
【问题描述】：

我的数据放在一个范围内。我如何获得一个列的平均值，其中包含多个条件或者一个 OR 条件。在此示例中，Temprange.columns(2) 应为“高”或“主要”

这应该在不取两个平均值的情况下完成，如下例所示：

Dim a As Long
Dim b As Long
Dim ObjectKeyCounter As Long
Dim TempRange As Range
Dim TempArr As Variant
Dim MyArray As Variant

a = Application.WorksheetFunction.AverageIfs(TempRange.Columns(20), _
TempRange.Columns(1), TempArr(ObjectKeyCounter), TempRange.Columns(2), "High")
b = Application.WorksheetFunction.AverageIfs(TempRange.Columns(20), _
TempRange.Columns(1), TempArr(ObjectKeyCounter), TempRange.Columns(2), "Major")
MyArray(1, 1) = Application.WorksheetFunction.Average(a, b)

由于某种原因，我在互联网上找不到任何东西，所以我猜我的方法（因此我的搜索）是错误的。

编辑：感谢 Scott Holtzman，我的解决方案如下：

Function AverageIfsOr(ByRef TempArr_Dashboard As Variant, _
 ByRef ObjectKeyCounter As Long, _
 ByRef TempArr_Data As Range, _
 ByRef ColumnToAvg As Long) As Double

    Dim vAvg() As Variant
    Dim vAvgCounter As Integer
    Dim DataRowCounter As Integer

    vAvgCounter = 0
    For DataRowCounter = 1 To TempArr_Data.Rows.Count
        If TempArr_Data(DataRowCounter, 4) = TempArr_Dashboard(ObjectKeyCounter) Then
            If TempArr_Data(DataRowCounter, 11) = "High" Or TempArr_Data(DataRowCounter, 11) = "Major" Then
                vAvgCounter = vAvgCounter + 1
                ReDim Preserve vAvg(vAvgCounter)
                vAvg(vAvgCounter) = TempArr_Data(DataRowCounter, ColumnToAvg)
            End If
        End If
    Next DataRowCounter

    If vAvgCounter = 0 Then
        AverageIfsOr = 0
    Else: AverageIfsOr = Application.WorksheetFunction.Average(vAvg)
    End If

End Function

【问题讨论】：

标签： excel if-statement conditional-statements average vba

【解决方案1】：

可能有更简单的方法，但这很有效。

Option Explicit

Sub AverageIfsOr()

Dim v As Variant
Dim vAvg() As Variant

v = Range("C4:E7")

Dim i As Integer
For i = 1 To UBound(v) - 1

    If (v(i, 1) = "A" Or v(i, 1) = "B") And (v(i, 2) = "High" Or v(i, 2) = "Major") Then

        ReDim Preserve vAvg(i)
        vAvg(i) = v(i, 3)

    End If

Next

MsgBox Application.WorksheetFunction.Average(vAvg)

End Sub

你可以玩那些令人作呕的 If 条件。

测试数据在这里：

【讨论】：