Макрос суммы

[and150382]

Здравствуйте!
Скажите как написать макрос.
В прикрепленном файле в столбце А коды, они стоят в разнабой.
Нужно чтобы нажал на кнопку и коды отсортировались по значению.
Далее под одинаковыми кодами ставилась бы пустая строка и считалась сумма в столбце F. И так с каждым кодом.

[Hugo121]

Можно сводной, можно макросом http://www.planetaexcel.ru/forum.php?thread_id=26105
Только вот зачем строки добавлять, зачем сортировать (хотя это можно добавить в код) и вообще куда и в каком виде нужен результат?
Я пока тем макросом (файл в конце темы)сделал такую табличку:

6790 360 10 1|3|42|44|45|45|45|45|45|45
7150 624 9 78|78|78|78|9|69|78|78|78
7158 84 2 42|42
7318 400 5 80|80|80|80|80
7324 240 4 60|60|60|60
7494 120 2 60|60
7514 135 3 45|45|45


А, понял - нужно в этой же таблице сделать Outline (не помню как это в русском...)...
http://agsci.psu.edu/it/how-to/creat...tline-in-excel

[and150382]

Должно получиться так. ( в скрепке)

Зеленым выделил сумму

[Hugo121]

Не то подсказал - outline это второй возможный шаг.
А первый - это subtotals: Data->Subtotals

[IgorGO]

добавил колонку сумм и формулу в ней.
сортируете кнопками сортировки на ленте "данные"
напротив последнего значения видите сумму.
в несортированном списке там будет сообщение

[and150382]

Почти так.
Но нужно чтобы получалось именно так как я вставил в посте #3.
И нужно именно макросом.
Данные копируются с другой программы и будут вставлятся в этот файл, а потом распечатываться ( поэтому нужно как в примере #3).
Формулами не подходит, т.к. их затрут.

[VictorK]

Я в VBA не силен, но попробовал просто записать в макрос последовательность действий: На вкладке Данные включил Фильтр (Фильтр можно не включать, но с ним как то спокойнее за пустые столбцы), установил курсор в столбец A и нажал сортировку, затем в группе Структура выбрал опцию Промежуточный итог, указал необходимые параметры и применил.
Получилось вот это:

Sub Macros_1()
    Selection.AutoFilter
    Range("A1").Select
    ActiveWorkbook.Worksheets("вход").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("вход").AutoFilter.Sort.SortFields.Add Key:=Range( _
        "A1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortTextAsNumbers
    With ActiveWorkbook.Worksheets("вход").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(6), _
        Replace:=True, PageBreaks:=False, SummaryBelowData:=True
End Sub

Скорее всего, код неоптимальный, но результат похож на требования and150382.

[RAN.]

Идея понравилась. Поигрался

Sub Мяу()
    Application.ScreenUpdating = False
    With Range("A1").CurrentRegion
        .Sort Range("A1"), 1, , , , , , xlYes
        .Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(6), _
                  Replace:=True, PageBreaks:=False, SummaryBelowData:=True
    End With
    With Range("A1").CurrentRegion
        .Value = .Value
        .ClearOutline
        With .Resize(, 1)
            .AutoFilter Field:=1, Criteria1:="=*тог*", Operator:=xlAnd
            .Rows(.Count).EntireRow.ClearContents
            .Offset(1).ClearContents
            .AutoFilter
        End With
    End With
    Application.ScreenUpdating = True
End Sub

[and150382]

Спасибо большое. Привязал макрос к кнопке.
Скажите а как сделать чтобы макрос не выполнялся после повторного нажатия на кнопку?
Тоесть 1 раз нажал на кнопку - получил результат, второй раз нажал и ничего не произошло.

[RAN.]

    With Range("A1").CurrentRegion
        If Application.WorksheetFunction.CountBlank(.Resize(, 1)) Then Exit Sub
        .Sort Range("A1"), 1, , , , , , xlYes