Найти первую цифру в ячейке

[kuklp]

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

kuklp, стал пример писать - вроде разобрался) просто не туда функцию вставлял. Осталось сделать так чтобы в ячейку при объединении значений из нескольких ячеек заносились все значения кроме нуля и ставился знак препинания (запятая или "или"). Можете помочь?
не могу найти как файл прицепить

Как на картинке.

[competing]

The_Prist, спасибо

[cherepushka]

Добрый день, а есть простой способ - вставить знак тире только перед первым числом. Есть код, но он не работает. Помогите пожалуйста

Sub Znak()
Dim cel As Range
Set cel = ActiveSheet.UsedRange
For Each cel In cel.Cells
If IsNumeric(cel.Value) Then ' находим число в ячейке
' если число в ячейке то
cel.NumberFormat = "@" ' переводим в строку
cel = "-" & cel.Value & "-" ' добавляем тире

Next cel

End Sub

[cherepushka]

Сколько не смотрел в хэлпе, ничего найти не могу, похоже тут без маски не обойтись. Есть ли в Excel регулярные выражения?

[svsh2016]

еще вариант функции в столбце C

Function uuu%(t$)
 With CreateObject("VBScript.RegExp"): .Pattern = "\d":
    uuu = .Execute(t)(0)
 End With
End Function

[cherepushka]

А куда можно вставить регулярное выражение? типа
[a-zA-Z]* - любое количество символов до числа \d

[svsh2016]

вариант функции uuu1 для #13 в столбце D

Function uuu1(t$)
 With CreateObject("VBScript.RegExp"): .Pattern = "\d"
    uuu1 = .Replace(t, "-$&")
 End With
End Function

[cherepushka]

Спасибо, всё чётко

[cherepushka]

Все работает, отлично. Спасибо. Данных очень много и к примеру была строка FFFF15, стала FFFF-15, но есть данные уже с тире и получается АААА--14. Я конечно заменил два тире на одно. Но есть ли возможность указать в коде опережающее правило, которое не действует на два тире. Больше двух тире быть не может.