Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Убрать только буквы
 
#1
15.11.2012 15:37:50
Имеется база клиентов, телефон и комментарий в одной ячейке. Количество строк более 10 000; встречающихся комментариев много; возможно 2 и 3 телефонных номера, как сотовые, так и городские; комментарий может стоять в любом месте. Необходимо выделить только номера, т.е. убрать БУКВЫ. Помогите автоматизированно убрать только буквы, оставив пробелы, запятые, точки и тире.    
Excel 2003
 
 
 
#2
15.11.2012 15:47:18
=ПСТР(A1;ПОИСКПОЗ(ИСТИНА;ЕЧИСЛО(1*ПСТР(A1;СТРОКА($1:$9);1));0);СЧЁТ(1*ПСТР(A1;СТРОКА($1:$9);1)))  
Формула массива: вводится Ctrl+Shift+Enter
 
 
 
#3
15.11.2012 15:59:06
Baklanoff спасибо  
можно прикрепить файл, не получается у меня
 
 
 
#4
15.11.2012 16:01:42
Извините, а можно спросить, что значит 1*ПСТР(), ну т.е. почему умножается на 1?
 
 
 
#5
15.11.2012 16:06:23
=ПСТР(C6;ПОИСКПОЗ(ИСТИНА;ЕЧИСЛО(1*ПСТР(C6;СТРОКА($1:$99);1));0);СЧЁТ(1*ПСТР(C6;СТРОКА($1:$99);1)))  
так правильно
 
 
 
#6
15.11.2012 16:11:55
Функция Val (VBA) возвращает числа, содержащиеся в строке, как числовое значение соответствующего типа.  
 
Val (строка)  
 
 
Val("10 Main Street") return 10  
Val("34 10 Main Street") return 3410  
Val("  34 10 Main Street") return 3410  
Val("  34 - 10 Main Street") return 34  
Val("075") return 75
 
 
 
#7
15.11.2012 16:27:08
формула массива не работает у меня на третью строку "147852963 мама 456258  
" - выводит 147852963 мама
 
 
 
#8
15.11.2012 16:29:27
UDF в модуль книги  
=OnlyCyfra(C6)  
 
Option Explicit  
 
Function OnlyCyfra(myCell As Range)  
Dim i As Long  
For i = 1 To Len(myCell)  
If IsNumeric(Mid(myCell, i, 1)) Or Mid(myCell, i, 1) = "," _  
Or Mid(myCell, i, 1) = "." Or Mid(myCell, i, 1) = " " Then  
OnlyCyfra = OnlyCyfra + Mid(myCell, i, 1)  
End If  
Next  
End Function
 
 
 
#9
15.11.2012 16:32:00
Kuzmich СПАСИБО
 
 
 
#10
15.11.2012 16:35:21
konstantin_  
Функция Val (VBA) возвращает числа, содержащиеся в строке, как числовое значение соответствующего типа.  
 
необходимо для столбца максимум, для отдельной ячейки в идеале.  
ввела ваш вариант, при отработке функции Val открывается окно редактора VBA... видимо я что-то не правильно делаю, подскажите что)
 
 
 
#11
15.11.2012 16:40:00
У меня еще вопрос: данную фунцию OnlyCyfra необходимо прописать для каждого пользователя? или она будет доступна для всех в определенном файле?  
с подобными данными работает человек 6-8, необходимо каждому дать возможность работы каждому
 
 
 
#12
15.11.2012 17:37:43
Фунцию OnlyCyfra перенесите в модуль книги.  
В ячейке, например Е6, введите =OnlyCyfra(C6)  
и протащите вниз, получите результат как у вас  
в столбце D
 
 
 
#13
16.11.2012 01:26:56
вариант: макрос, работающий с ячейками выделенного диапазона.  
 
Sub убрать_лишнее()  
 Set re = CreateObject("vbscript.regexp")  
 re.Global = True  
 re.Pattern = "[^\d\., ]+"
 Selection.NumberFormat = "@"  
 For Each c In Selection  
   c.Value = Application.Trim(re.Replace(c.Text, ""))  
 Next  
End Sub
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#14
17.11.2012 02:31:36
=ТЕКСТ(СУММ(ПСТР(0&C8;НАИБОЛЬШИЙ(ЕЧИСЛО(-ПСТР(C8;СТРОКА($1:$99);1))*СТРОКА($1:$99);СТРОКА($1:$15))+1;1)*10^СТРОКА($1:$15)/10);ПОВТОР(0;МИН(СЧЁТ(1/(ПСТР(C8;СТРОКА($1:$99);1)+1));15)))  
 
------------  
16868
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
 
 
Страницы: 1
Читают тему
Наверх