요일별 최대값, 최소값 구하는 VBA
요일별로 최대값과 최소값을 구하는 VBA 코드입니다.
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