시나공

시험에

나오는 것만

공부한다!

2017 상시 엑셀 계산문제 3-2번입니다

매크로를 작성 후 실행시키니 오류가 뜹니다.

Sub 월별부분합()

'

' 월별부분합 매크로

'

'

    Range("F7").Select

    ActiveWorkbook.Worksheets("분석작업-2").Sort.SortFields.Clear

    ActiveWorkbook.Worksheets("분석작업-2").Sort.SortFields.Add2 Key:=Range("C3:C24") _

        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

    With ActiveWorkbook.Worksheets("분석작업-2").Sort

        .SetRange Range("A2:G24")

        .Header = xlYes

        .MatchCase = False

        .Orientation = xlTopToBottom

        .SortMethod = xlPinYin

        .Apply

    End With

    Selection.Subtotal GroupBy:=3, Function:=xlAverage, TotalList:=Array(4, 5, _

        6, 7), Replace:=True, PageBreaks:=False, SummaryBelowData:=True

    Range("I9").Select

End Sub