Суммирование значение с тире и без

[Molletta]

Добрый день.

Уважаемые форумчане, помогите решить следующую задачу.
В столбце "В" в разных ячейках есть значения 1-3 или 2-4 или даже просто 1. Необходимо по поиску двух значений столбце "А" суммировать значения из столбца "В". Например, 1-3 и 2-4 должно быть 3-7, т.е. суммируются первые значения, тире, потом последние значения. А если 1-3 и 1, то должно получиться 2-4, т.е. единичное значение должно плюсоваться и к первому и к последнему.

[doober]

Макрос называется Вперед.
Начало полезных данных вторая строка.
Данные должны быть на первом листе,вывод на второй лист.

[Molletta]

Не совсем понимаю как и что он считает... Он только выставляет уже существующие значения. На втором листе поправила данные, которые должны быть на выходе.

[MCH]

так нужно?

[doober]

Сообщение от Molletta

Не совсем понимаю как и что он считает... Он только выставляет уже существующие значения. На втором листе поправила данные, которые должны быть на выходе.

Он считает в соответствии с постом 1.
об Из города В город Сроки речи вообще не было.

[Molletta]

MCH, да, огромное спасибо ))) целый день искала нужное ))

Doober, извиняюсь если изначально неверно описала проблему, но предложенный Вами вариант абсолютно ничего не считает, а только переносит всю таблицу на второй лист... Но все равно большое спасибо за участие. Попробую разобраться в Вашем макросе, возможно для чего-то еще пригодится.

[Казанский]

1. Учтите, что формула МСН неправильно считает двузначные числа. Из примера

Агой	Американское Самоа	9-3	3	6-10
Американское Самоа	Аруба	10-4	6-10	4

2. Предложенный Doober вариант суммирует числа повторяющихся значений, например из строк

Алексеевка	2
Алексеевка	3-6

формирует

Алексеевка	5-8

[Казанский]

Написал пользовательскую функцию, которая работает с длинными числами и не требует доп. столбцов:

Function Molletta(Table As Range, a, b)
a = Application.VLookup(a, Table, 2, 0)
If IsError(a) Then Molletta = a: Exit Function
b = Application.VLookup(b, Table, 2, 0)
If IsError(b) Then Molletta = b: Exit Function
a = Split(a, "-")
b = Split(b, "-")
Select Case UBound(a) + 2 * UBound(b)
Case 0
    Molletta = 0 + a(0) + b(0)
Case 1
    Molletta = 0 + a(0) + b(0) & "-" & 0 + a(1) + b(0)
Case 2
    Molletta = 0 + a(0) + b(0) & "-" & 0 + a(0) + b(1)
Case 3
    Molletta = 0 + a(0) + b(0) & "-" & 0 + a(1) + b(1)
End Select
End Function

[Казанский]

Или так - менее очевидно, но компактнее

Function Molletta(Table As Range, a, b)
Dim k%
a = Application.VLookup(a, Table, 2, 0)
If IsError(a) Then Molletta = a: Exit Function
b = Application.VLookup(b, Table, 2, 0)
If IsError(b) Then Molletta = b: Exit Function
a = Split(a, "-")
b = Split(b, "-")
k = UBound(a) + 2 * UBound(b)
Molletta = 0 + a(0) + b(0)
If k Then Molletta = Molletta & "-" & 0 + a(k And 1) + b(k \ 2)
End Function