Я думал то посмотрело знакомым:)
Это кажется, что работает:
1) Выберите B2: G2
2) Впишите эту формулу блока:
{ОЕ =RegExpFind ((
A2, НАХОДКА («-
}», A2) - 1),
«^ [A-Z/]. *$
», ЛОЖНЫЕ
, TRUE)}
Для того чтобы вписать формулу блока, не войдите фигурные скобки, и удар Ctrl+Shift+Enter вместо входит для того чтобы закончить ее.
Эксел после этого покажет те расчалки для того чтобы показать что будет формулой блока.
То позволяет для до 6 деталей быть возвращенным. В workbook образца для этого смотрит как вы никогда не нужны больше чем 4.
Если линия имеет, то скажите, 3 возвращенной линии, тогда другие 3 клетки в блоке покажут ошибку #N/A
Это поведение блока формулы объяснено в моем
http://www.experts-exchange.com/Programming/Languages/Visual_Basic/A_1336-Using-Regular-Expressions-in-Visual-Basic-for-Applications-and-Visual-Basic-6.html статьи