суммирование массива1 при условии Х в массиве2

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » суммирование массива1 при условии Х в массиве2 (Макросы/Sub)

denior628

Дата: Суббота, 22.03.2014, 03:31 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Доброго времени суток.

помогите мне осилить этот макрос

код рабочий, только немного не тот результат
[vba]

Код

Sub SumPlan()

Dim sum9607 As Integer
Dim a As Integer, b As Integer

Dim pa9607 As Range
Dim ppa9607 As Range
Dim pl9607 As Range
Dim p9607 As Range

Set pa9607 = Worksheets("2").Range("b2", "b9")
For Each ppa9607 In pa9607



             Set pl9607 = Worksheets("2").Range("a2", "a9")
             For Each p9607 In pl9607

             If ppa9607 = 2 Then

             sum9607 = sum9607 + p9607

         Else

sum9607 = sum9607

       End If
        Next p9607
Next ppa9607

Dim fr9607 As Range
Set fr9607 = Worksheets("2").Range("d2")
fr9607.Value = sum9607

End Sub

[/vba]

проблема в том что макрос суммирует весь столбец "А2", "А9", каждую строчку подряд при условии что в столбце "В2", "В9" цикл находит переменную "2", в данном случае сумма столбца "А" =21, переменная 2 повторяеться в столбце "В" 3 раза - итог 63 а не 11 как надо.
а мне нужно суммировать тольку ту ячейку столбца "А" если в столбце "В" переменная равна 2-м.

помогите, очень на вас надеюсь