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

[competing]

Проблема заключается в следующем:
Есть ячейки содержащие названия(буквы и цифры). Необходимо вывести первую цифру из названия. Число букв перед цифрой варьируется от 1 до 3. Пример:
CM3001 вывести 3
L4023 вывести 4
TAA6110 вывести 6
Есть ли стандартные средства для решения этой проблемы?

[kuklp]

UDF

Function GetNumeric(t$) As Integer
    Dim j As Integer, l As String
    For j = 1 To Len(t)
        If IsNumeric(Mid(t, j, 1)) Then
            GetNumeric = Mid(t, j, 1)
            Exit Function
        End If
    Next j
End Function

[competing]

спасибо большое! а куда код вставлять? в Module1

[kuklp]

Ну да. Вы пример смотрели?

[competing]

всё, разобрался) еще раз спасибо

[The_Prist]

Ну и формулами:

=ИНДЕКС(ПСТР(A1;СТРОКА($1:$199);1);ПОИСКПОЗ(ЛОЖЬ;ЕОШ(--ПСТР(A1;СТРОКА($1:$99);1));0))

Формула массива(ввод завершается сочетанием клавиш Ctrl+Shift+Enter)

И формула простая(т.е. вводится обычно):

=ПРОСМОТР(ЛОЖЬ;НЕ(ЕОШ(--ПСТР(A1;СТРОКА($1:$100);1)));ПСТР(A1;СТРОКА($2:$101);1))

[competing]

kuklp, не получается у меня использовать вашу функцию в рамках другой:

Function VLOOKUP2(Table As Range, SearchColumnNum As Integer, SearchValue As Variant, _
N As Integer, ResultColumnNum As Integer)
Dim i As Integer
Dim iCount As Integer

For i = 1 To Table.Rows.Count
If Table.Cells(i, SearchColumnNum) = SearchValue Then
iCount = iCount + 1
End If
If iCount = N Then
VLOOKUP2 = Table.Cells(i, ResultColumnNum)
Exit For
End If
Next i
End Function


Почему то N воспринимает только числовые значения, даже вставляя в другую ячейку вашу функцию, а в VLOOKUP2 ссылку на ячейку(позиция N в функции VLOOKUP2) все равно не работает. Можно как-то сделать чтобы они взаимодействовали?

[kuklp]

А можно выложить Ваш пример, с тем что не получается?

[competing]

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

[The_Prist]

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

чтобы в ячейку при объединении значений из нескольких ячеек заносились все значения кроме нуля и ставился знак препинания (запятая или "или").

не знаю какое это имеет отношение к данной теме, но вот здесь я функцию выкладывал - по описанию вроде то, что Вам надо.