Re:AVERAGEIFS 함수에서 average range를 동적으로 변환 하는 방법

[윤슬]

안녕하세요?  [Icarus]님...

왜 현업에서 이런 자료가 필요한진 잘 모르겠지만...

아래 코딩을 참고로...

Sub Test()
Dim j As Long
Dim Rng As Range
Dim rng_Find As Range
Dim T_Rng As Range
Dim c As Range
Dim A_rng As Range

Application.ScreenUpdating = False

Set Rng = Range(Range("b11"), Cells(Rows.Count, 2).End(xlUp))
Set rng_Find = Rng.Find(Range("b5"))

If Not rng_Find Is Nothing Then
    Set T_Rng = Range(Cells(rng_Find.Row + 5, 2), Cells(Rows.Count, 2).End(xlUp))
End If

On Error Resume Next
For j = 3 To Cells(7, Columns.Count).End(xlToLeft).Column
    For Each c In T_Rng.Offset(, j - 2)
        If c >= 100 Then
            If A_rng Is Nothing Then
                Set A_rng = c
            Else
                Set A_rng = Range(A_rng, Cells(Rows.Count, j).End(xlUp))
            End If
        End If
    Next c
   
    Cells(8, j) = Application.WorksheetFunction.Average(A_rng)
    Set A_rng = Nothing
Next j
On Error GoTo 0

Application.ScreenUpdating = True
End Sub

그럼 잘 해결되시길...   ^^*

[Icarus]

감사합니다. 저도 연구 해 보겠습니다.
현업에서 별 이상한 요구가 많지요 ^^;