Всем доброго времени суток. Нужна помощь!!! Требуется отделить в ячейке набор текста от первой (произвольной от 0 до 9) начинающейся цифры, после которой может так же идти набор текста и цифр. Пример во вложении с исходной базой и желаемого результата.
Всем доброго времени суток. Нужна помощь!!! Требуется отделить в ячейке набор текста от первой (произвольной от 0 до 9) начинающейся цифры, после которой может так же идти набор текста и цифр. Пример во вложении с исходной базой и желаемого результата.Max_82
Max_82, здравствуйте. Если у Вас 2016/2013 Excel и если дадите больший массив данных в примере, то Вашу задачу, возможно, можно решить при помощи инструмента "Мгновенное заполнение" (находится в ленте на вкладке Данные).
Max_82, здравствуйте. Если у Вас 2016/2013 Excel и если дадите больший массив данных в примере, то Вашу задачу, возможно, можно решить при помощи инструмента "Мгновенное заполнение" (находится в ленте на вкладке Данные).Che79
Добрый день. Вариант пользовательской функцией [vba]
Код
Function Rexp(txt As String, part As Boolean) With CreateObject("VBScript.RegExp") .Pattern = "\d.*" If Not .test(txt) Then Rexp = IIf(part, "", txt) Exit Function End If Rexp = IIf(part, .Execute(txt).Item(0), .Replace(txt, "")) End With End Function
[/vba] у функции два аргумента 1. это ссылка на ячейку с текстом 2. вариант требуемого результата (0-для первого варианта, 1-для второго)
Добрый день. Вариант пользовательской функцией [vba]
Код
Function Rexp(txt As String, part As Boolean) With CreateObject("VBScript.RegExp") .Pattern = "\d.*" If Not .test(txt) Then Rexp = IIf(part, "", txt) Exit Function End If Rexp = IIf(part, .Execute(txt).Item(0), .Replace(txt, "")) End With End Function
[/vba] у функции два аргумента 1. это ссылка на ячейку с текстом 2. вариант требуемого результата (0-для первого варианта, 1-для второго)sboy