эксел формулы в vba

[Kirja23]

форумчане здраствуйте, сново нужна ваша поддержка!

есть следующий код, который сортирует и между одинаковыми продуктами оставляет 2 свободные клетки, в одной вычисляется сумма, а в другой среднее значение. не пойму как вписывать в колонки Ф и Г следующие формулы при помощи vba: в Ф: количество E2 - среднее значение E4 или в Г: E2*0.5-I2.

Sub test()

Dim x As Range
Dim i As Integer

Set x = ActiveSheet.UsedRange
Cells(bereich.Rows.Count + 1, 5) = WorksheetFunction.SumIf(Range("D:D" ), Cells(x.Rows.Count, 4).Value, Range("E:E"))
Cells(bereich.Rows.Count + 2, 5) = WorksheetFunction.AverageIf(Range(" D:D"), Cells(x.Rows.Count, 4).Value, Range("E:E"))
For i = x.Rows.Count + 1 To 3 Step -1
If Cells(i, 4).Value = "" Then Rows(i).Delete
If Cells(i, 4).Value <> Cells(i - 1, 4).Value Then
Range(Rows(i), Rows(i + 1)).Insert Shift:=xlDown
Range(Cells(i, 1), Cells(i + 1, 21)).Interior.ColorIndex = 15
Range(Cells(i, 1), Cells(i + 1, 21)).Font.Bold = True
Cells(i, 5) = WorksheetFunction.SumIf(Range("D:D" ), Cells(i - 1, 4).Value, Range("E:E"))
Cells(i + 1, 4) = "средние значение"
Cells(i + 1, 5) = WorksheetFunction.AverageIf(Range(" D:D"), Cells(i - 1, 4).Value, Range("E:E"))
End If
Next

End Sub

зарание благодарен!

[EducatedFool]

Пробовал вашим макросом обработать ваши картинки - не получилось.
Оказывается, макросы не умеют работать со скриншотами - им файлы Excel подавай...

[Kirja23]

это понятно, но к сожаленью я не знаю как загрузить эксель файл на этой страничке

[Казанский]

У вас установлен WinZIP или WinRAR?
Прямо в окне выбора файла для вложения - правый клик по файлу - добавить в архив "ИмяФайла.rar" - в конце списка файлов появится архив - выберите его.

[Kirja23]

все спасибо, вот разобрался!

[Kirja23]

люди что ни у кого нет идей!?