요일별 최대값, 최소값 구하는 VBA

요일별로 최대값과 최소값을 구하는 VBA 코드입니다.

weekdayofmaxvalue_vba.xlsm

Option Explicit
Sub weekday_max()
    Dim rngC, rngT As Range
    Dim rngAll, rngDB As Range
    Dim tempMax, tempMin As Double
   
    Set rngAll = Range([F2], Cells(Rows.Count, "F").End(3))
    Set rngDB = Range([C2], Cells(Rows.Count, "C").End(3))
   
    Range([G1], Cells(Rows.Count, "H").End(3)).Offset(1).ClearContents
    '// 요일별 최대값, 최소값 내용 초기화
    tempMin = Application.Max(rngDB)    '// 구간범위내 최대값
   
    For Each rngC In rngAll     '// 월, 화, 수, 목, 금, 토, 일 반복
        For Each rngT In rngDB
            If rngC = rngT.Offset(, 1) Then '// 같은 요일이면
                If rngT > tempMax Then  '// 최대값을 구하라
                    tempMax = rngT
                End If
                If rngT < tempMin Then  '// 최소값을 구하라
                    tempMin = rngT
                End If
            End If
        Next rngT
        rngC.Offset(, 1) = tempMax  '// 셀에 최대값을 저장하라
        rngC.Offset(, 2) = tempMin  '// 셀에 최소값을 저장하라
        tempMax = 0    '// 최대값 초기값 초기화
        tempMin = Application.Max(rngDB)  '// 최소값 초기값 초기화
    Next rngC
End Sub