Как добавить недостающие нули в номер (ячейку)

[Rusich]

Версия установленного Excel 2010.
В прикрепленном файле пример таблицы, сохраненный в 2-х версиях 2003 и 2010.

Передо мной поставили задачу в следующем.

Есть данные в столбце (единственный заполненный) формата:

ХХХХХ-ХХХХХ
Х-ХХХХХ-ХХХХХ
где Х - цифра от 0 до 9

программа, из которой произвели выборку данных и сохранили в Excel в некоторый случаях удалила нули стоящие в каждой группе перед любыми другими цифрами.
Пример:
должно быть 00012-01234 стало 12-1234 или 00012-1234 или 12-01234

Как можно добавить пропавшие нули в данный номер.

Может встретиться момент, где в группу цифр попала шестая цифра:
001234, а должно быть 01234.
По возможности учесть и эту проблему.

Сам плохо разбираюсь в программировании, но начальство поставило задачу. Ищу варианты и прошу помощи.

[Казанский]

Выделите диапазон, запустите макрос

Sub bb()
Dim v$(), c As Range, u&, r As Boolean
For Each c In Selection
    v = Split(c, "-")
    For u = UBound(v) - 1 To UBound(v)
        If Len(v(u)) < 5 Then v(u) = String(5 - Len(v(u)), "0") & v(u): r = True
    Next
    If r Then c.Value = Join(v, "-"): r = False
Next
End Sub

[Rusich]

Огромное спасибо! Все работает великолепно.

Единственный косяк в выборке был на строчке 8273. Из-за лишнего пробела 12345--12345 получился результат 12345-00000-12345. но это не критично.