Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Формулой оставить только цифры
 
#1
19.07.2012 15:51:50
возможно, уже обсуждалось  
реально ли (и как) с помощью формулы удалить из ячейки, содержащей буквы, цифры, знаки препинания, спецсимволы и пр. все символы, кроме цифр?  
то есть формула должна превращать текст вида (к примеру):  
"фф.45з1-11"  
"17235.44.00 "  
"_ы9,0--22$"  
 
в  
"45111"  
"172354400"  
"9022"  
 
(значения намеренно взяты в кавычки, чтобы показать, что они по сути своей и до преобразования и после являются текстом)
 
 
 
#2
19.07.2012 15:57:18
Тяжко. Такой формулой только пугать пользователей :)  
А если строка еще длиннее... Лучше макросом.
 
 
 
#3
19.07.2012 16:55:57
Конечно обсуждалось. Можно было бы и поиском воспользоваться.  
Формула МСН:  
 
=ТЕКСТ(СУММ(ПСТР(0&A1;НАИБОЛЬШИЙ(ЕЧИСЛО(-ПСТР(A1;СТРОКА($1:$99);1))*СТРОКА($1:$99);СТРОКА($1:$15))+1;1)*10^СТРОКА($1:$15)/10);ПОВТОР(0;МИН(СЧЁТ(1/(ПСТР(A1;СТРОКА($1:$99);1)+1));15)))
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
 
 
#4
19.07.2012 17:09:26
Function ВЫБРАТЬЧИСЛА(ИСХОДНЫЙ_ТЕКСТ As String) As String  
   Dim i As Integer  
   Dim str As String  
   Dim k  
   For i = 1 To Len(ИСХОДНЫЙ_ТЕКСТ)  
       k = Mid(ИСХОДНЫЙ_ТЕКСТ, i, 1)  
       If IsNumeric(k) Then  
           str = str & k  
       End If  
   Next  
   ВЫБРАТЬЧИСЛА = str  
End Function
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
 
 
 
#5
19.07.2012 17:53:12
да, спасибо, это оно, поиском пользовался, но не находилось..  
:(  
только необходимо добавить (для тех, кто может быть, захочет воспользоваться формулой), что эта формула массива
 
 
 
Страницы: 1
Читают тему
Наверх