Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Извлечь текст не содержащий цифр. Текст содержится в одной из трех ячеек
 
#1
13.12.2013 15:27:25
Доброго времени суток уважаемые знатоки!

Буду признателен вам если поможете мне в от с таким вопросом: В ячейках А1, B1, C1 есть различные значения. В ячейке А1 имеется значение 12345, в ячейке B1 имеется Иван Иванов, а в ячейке C1 имеется Иван123Иванов. Я хочу чтобы в ячейке D1 была бы функция которая бы выбирала из трех ячеек именно ту которая отображает значение состоящее из букв. Или скажем по другому значение которое не содержит цифр. В данном случае это будет ячейка B1 Иван Иванов. Можно формулами, можно пользовательской функцией или макросом мне все равно лишь бы было решение.

Заранее благодарю!!
 
 
 
#2
13.12.2013 15:35:12
Цитата
Я знаю что ничего не знаю
и знать ничего не хочу...  ;)
ps В поиск "Извлечь текст". Читаем "Правила", посещаем "Приемы." Прилагаем свои - реальные в форматах и структуре - примеры.
Изменено: Z - 13.12.2013 15:35:38
"Ctrl+S" - достойное завершение ваших гениальных мыслей!.. ;)
 
 
 
#3
13.12.2013 15:39:52
Уважаемый Z ! Я нашел конечно кое-что, но это не соответствовало моим требованиям. В найденных мною примерах фнкция  находила только из одной ячейки, а тут сразу три ячейки. Поэтому я честно пытался сначала сделать сам, знал что меня тут ругать будут   :oops:    но не смог подогнать под свою задачку.
Изменено: Самир Мамедов - 13.12.2013 15:40:47
 
 
 
#4
13.12.2013 15:41:11
:D
Код
=етекст
 
 
 
#5
13.12.2013 15:49:03
kalbasiatka ЕТЕКСТ не пойдет. "Патров123" это текст но внутри его есть цифры.
 
 
 
#6
13.12.2013 15:57:11
Код
Function text$(rCells As Range)
Application.Volatile
Dim rCell As Range
For Each rCell In rCells
    If rCell.Value Like "*" & "[0-9]" & "*" Then
        text = ""
    Else
        text = rCell.Value
        Exit Function
    End If
Next
End Function

В аргументах ваши три ячейки.
SkyPro
 
 
 
#7
13.12.2013 16:17:09
Потестируйте эту формулу массива:
=ИНДЕКС(A1:C1;МОДА(ЕСЛИ(ЕТЕКСТ(A1:C1);ЕСЛИОШИБКА(ЕСЛИ(КОДСИМВ(ПСТР(A1:C1;СТРОКА(1:20);1))>58;СТОЛБЕЦ(A1:C1));ЛОЖЬ))))
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
 
 
#8
13.12.2013 16:32:48
SKY PRO!!
Огромное спасибо!! То что нужно! Работает!
Владимир: К сожалению формула массива не сработала, но в любом случае и Вам спасибо за ответ!
Тему можно считать закрытой!
 
 
 
#9
13.12.2013 17:37:57
Простите, не соглашусь...
Изменено: Владимир - 05.10.2014 11:01:23
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
 
 
#10
13.12.2013 18:45:33
обычная формула на примере Владимира:
Код
=ИНДЕКС(A2:C2;ПОИСКПОЗ(;МУМНОЖ({1;1;1;1;1;1;1;1;1;1};1-ЕОШ(ПОИСК({0:1:2:3:4:5:6:7:8:9};A2:C2)));))
 
 
 
#11
14.12.2013 11:29:16
Уважамый Владимир и МСН !

Формула тоже отлично работает! Спасибо большое! Я почему-то был уверен что такую сложную задачу просто невозможно решить формулой! Как я ошибался  :|
Мне до этих формул еще расти и расти. Спасибо огромное что безвозмездно помогаете людям и делаете благое дело!
 
 
 
#12
29.03.2016 07:42:26
Всем привет, не подскажите, а как такую задачку решить? Тоже нужно вытянуть текст, только из одной ячейки при этом сохранить формат, табуляцию, регистр (желательно чтобы знаки припенания, скобки и знаки вычисления остались) и т.д.

Заранее спасибо
 
 
 
#13
29.03.2016 08:11:15
вложенные =подставить(подставить(подставить(подставить(подставить(ячейка;цифры;""), или пользовательская функция (в #6 сообщении вполне себе справляется) или макрос
Лень двигатель прогресса, доказано!!!
 
 
 
#14
29.03.2016 09:10:44
Сергей, спасибо за ответ, я вот попробовал из 6-го поста функцию, просто я в VBA не силен, и получается так что если в тексте нет цифр он просто копирует ячейку, а если есть цифры то ячейка становится пустой (я пробовал выделять и одну и по три ячейки....). Плиз подскажите может надо в коде подправить че-нить чтоб оно на моем примере заработало? Понимаю в каком то моменте туплю просто не могу понять где)))
 
 
 
#15
29.03.2016 09:30:13
попробуйте такой вариант
Код
Function ikki$(s$)
    Static r As Object: If r Is Nothing Then Set r = CreateObject("vbscript.regexp"):
    r.Global = 1:
    r.Pattern = "[a-zA-z0-9/]+"
    ikki = r.Replace(s, "")
End Function
Лень двигатель прогресса, доказано!!!
 
 
 
#16
29.03.2016 10:05:37
Сергей, все мега супер!!! аж жить хочется ))))) спасибо огромное
 
 
 
Страницы: 1
Читают тему
Наверх