Отец попросил помочь по Exel 

Sub Макрос1()
'
' Макрос1 Макрос
'

'
Range("A1").Select
Dim i As Integer
Dim k As Integer
Dim j As Integer
Dim f As Integer
Dim l As Integer
i = 1
While (Cells(i, 1) <> "") And (i < 25000)
Cells(i, 1).Select
Cells(i, 1) = LTrim(Cells(i, 1))
Cells(i, 1) = RTrim(Cells(i, 1))
j = Len(Cells(i, 1))
f = 0
l = 0
For k = 1 To j
If (f = 0) And ((Mid(Cells(i, 1), k, 1) > "9") Or (Mid(Cells(i, 1), k, 1) < "0")) Then
f = k
End If
If (Mid(Cells(i, 1), k, 1) > "9") Or (Mid(Cells(i, 1), k, 1) < "0") Then
l = k
End If
If f = 0 Then
Cells(i, 2) = "В выражении отсутвуют буквы"
End If
If f > 0 Then
If f > 1 Then
Cells(i, 2) = Mid(Cells(i, 1), 1, f - 1) & "-" & Mid(Cells(i, 1), f, l - f + 1) & "-" & Mid(Cells(i, 1), l + 1, 10000)
Cells(i, 2) = Replace(Cells(i, 2), "--", "-")
End If
If f = 1 Then
Cells(i, 2) = "В выражении первый символ БУКВА!"
End If
End If
Next k
i = i + 1
Wend
End Sub

Ого! Сам справился?

я тя умоляю -)))))))))))))))))))))))

Так Аскар получил первый удар под дых от клиентов. Никто не хочет платить программистам, какая боль за коллегу.

А не, увидел что обещали заплатить.

It-м не дают

e_zhuk писал :Никто не хочет платить программистам, какая боль за коллегу.

Программист должен быть счастлив, что ему дали попрограммировать, я так считаю. За это не платить деньги надо, а, наоборот, брать

Эрхафан писал : деньги надо, а, наоборот, брать

Тсс, не пали контору.

В подтверждение слов Эрхафана
[внешняя ссылка]

e_zhuk писал : В подтверждение слов Эрхафана

Вот-вот

Люблю за это Россию

[внешняя ссылка]

Теперь все же осталось найти способ решить задачу ШТАТНЫМИ функциями для случая неограниченной длины строки

Эрхафан писал : Теперь все же осталось найти способ решить задачу ШТАТНЫМИ функциями для случая неограниченной длины строки

Чем же VBA не штатное средство?

e_zhuk писал :Чем же VBA не штатное средство?

Ну... Эдак я могу воспринимать вставки ассемблера в TP или C как "штатное" средство

VBA для майкрософтвоского офиса штатное средство, ибо идет с ним в комплекте фиг знает с какой версии (чуть ли не с самых первых).

Mad Hatter писал(а) :фиг знает с какой версии (чуть ли не с самых первых).

Ну в 1996 я точно им пользовался (хотя от "программирования" отошел в 1994... в личных целях использовал, в общем)