sum vba excel

Ответ от Wowa Cherkesov[гуру]
проще пишется на VBA пользовательская фунция, и далее к ней просто обращаться

Ответ от Aleksey Denisov[гуру]
2 Игорь
Если я правильно понял Вас, то все просто:
=СУММЕСЛИ (A1:A20;"*(обл.) *";B1:B20)
где
A1:A20 - диапазон, в котором содержатся элементы с фрагментом "(обл.) ";
B1:B20 - диапазон суммирования.
2 Александр Коровин
Смысл Вашего сообщения? Очевидно, что второй вариант необходим, Вы никак не объясняете как его достичь.. .
2 Wowa Cherkesov
Вы считаете, что так проще? 🙂
Sub Macros()
Dim i As Integer
Dim sum As Integer
sum = 0
For i = 1 To 20
If (InStr(Cells(i, 1).Value, "(обл.) ") <> 0) Then
sum = sum + Cells(i, 2).Value
End If
Next i
Cells(21, 2).Value = sum
End Sub

Ответ от 3 ответа[гуру]

Ответ от 3 ответа[гуру]