Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Удаление текста в выделенной области, кроме цифро-буквенных значений.
 
#1
26.07.2012 14:03:45
Есть прайс. Нужно в выделенной области из ячеек удалить весь текст кроме цифро-буквенных выражений.    
Дякую, Максег
 
 
 
#2
26.07.2012 14:04:45
давайте кусок прайса, и результат на выходе
Редко но метко ...
 
 
 
#3
26.07.2012 14:07:08
есть:  
велосипед трёхколёсный SR86S-XTX, розовый с  красным"                                    
 
а должно выйти:  
SR86S-XTX
 
 
 
#4
26.07.2012 14:10:52
Можно выделять последнее слово перед запятой. Но всегда ли будет так?
Я сам - дурнее всякого примера! ...
 
 
 
#5
26.07.2012 14:16:33
{quote}{login=KukLP}{date=26.07.2012 02:10}{thema=}{post}Можно выделять последнее слово перед запятой. Но всегда ли будет так?{/post}{/quote}  
 
Можно и так, но не так не всегда попадается....  
Но вы все-равно напишите, что хотели)))
 
 
 
#6
26.07.2012 14:22:20
.
Я сам - дурнее всякого примера! ...
 
 
 
#7
26.07.2012 14:24:53
формулой, см файл
Редко но метко ...
 
 
 
#8
26.07.2012 14:25:00
смущает то, что в первой строке "022", явно относящееся к коду, расположено через пробелы :(  
сравните со строками 5 и 6, например.  
 
может быть удалять любое слово, содержащее хотя бы один символ кириллицы?  
примерно так:  
Function myCode$(r As Range)  
 x = Split(r.Value)  
 For Each xe In x  
   If xe > "" Then  
     y = Split(xe, ",")  
     For Each ye In y  
       If ye Like "*[À-ßà-ÿ¨¸]*" Then ye = "" Else myCode = myCode & ye
     Next  
   End If  
 Next  
End Function  
 
кстати, в примере есть некириллические буквы не только в коде :(
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#9
26.07.2012 14:25:27
Чуть подправленная от МСН  
http://www.excelworld.ru/forum/2-1957-1  
 
Function ExtractNum$(txt$)  
   Dim i&, s$, m$  
   For i = 1 To Len(txt)  
       m$ = Mid$(txt, i, 1)  
       If m Like "[А-яЁё,]" Then m = " "
       s = s & m  
   Next i  
   ExtractNum = Application.Trim(s)  
End Function
 
 
 
#10
26.07.2012 14:26:26
If ye Like "*[А-Яа-яЁё]*" ...
 
прошу прощения
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#11
26.07.2012 14:32:30
Формула массива:  
 
=ПСТР(B1;ПОИСКПОЗ(1;ПОИСКПОЗ(КОДСИМВ(ПСТР(B1&"a";СТРОКА($1:$99);1)&1);{65;123}););ПОИСК(" ";ПСТР(B1;ПОИСКПОЗ(1;ПОИСКПОЗ(КОДСИМВ(ПСТР(B1&"a";СТРОКА($1:$99);1)&1);{65;123}););20))-1)  
 
 
---------  
60306
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
 
 
#12
26.07.2012 14:37:40
чуть упростил формулу:  
=ПСТР(B1;ПОИСК("@";ПОДСТАВИТЬ(B1;" ";"@";3))+1;ПОИСК(",";B1)-ПОИСК("@";ПОДСТАВИТЬ(B1;" ";"@";3))-1)  
 
см файл
Редко но метко ...
 
 
 
#13
26.07.2012 15:08:01
А можно проще... Выделяем диапазон ячеек с наименованиями, нажимаем ctrl+f, вкладка "заменить", в поле "найти" вводим ",*" без кавычек, нажимаем заменить все. Тем самым удаляем ту часть что идет после запятой, включая саму запятую.  
Затем вводим в найти " * * " с пробелами и без кавычек. Опять нажимаем заменить все. Удаляется часть наименования идущая до цифро-буквенного индекса. Все)
 
 
 
#14
26.07.2012 15:43:20
Это если часть наименования идущая до цифро-буквенного индекса всегда будет из двух слов. А не факт...
Я сам - дурнее всякого примера! ...
 
 
 
Страницы: 1
Читают тему
Наверх