Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Удалить текст только после цифр - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Удалить текст только после цифр (Формулы/Formulas)
Удалить текст только после цифр
alex-vl Дата: Пятница, 20.03.2015, 13:09 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Добрый день, есть три типа данных, хотелость бы отсечь последний текстовой символ, только в "циферных"названиях, например
есть BBM 371306 A необходимо BBM 371306
есть BBM99026B необходимо BBM99026
есть ABILLITA необходимо ABILLITA те в текстовых названиях, последний символ отсекать не надо
Все данные находятся в одном столбце.

Зараннее благодарен за помощь.
К сообщению приложен файл: 9671298.xlsx (7.8 Kb)
 
Ответить
СообщениеДобрый день, есть три типа данных, хотелость бы отсечь последний текстовой символ, только в "циферных"названиях, например
есть BBM 371306 A необходимо BBM 371306
есть BBM99026B необходимо BBM99026
есть ABILLITA необходимо ABILLITA те в текстовых названиях, последний символ отсекать не надо
Все данные находятся в одном столбце.

Зараннее благодарен за помощь.
Автор - alex-vl
Дата добавления - 20.03.2015 в 13:09
Nic70y Дата: Пятница, 20.03.2015, 13:17 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 9133
Репутация: 2416 ±
Замечаний: 0% ±

Excel 2010
Код
=СЖПРОБЕЛЫ(ЕСЛИ(ЕОШ(-ЛЕВБ(ПРАВБ(ПОДСТАВИТЬ(A3;" ";);2)));A3;ЛЕВБ(A3;ДЛСТР(СЖПРОБЕЛЫ(A3))-1)))
как-то так примерно
К сообщению приложен файл: _Xl0000026.xls (21.5 Kb)

ЮMoney 41001841029809
 
Ответить
Сообщение
Код
=СЖПРОБЕЛЫ(ЕСЛИ(ЕОШ(-ЛЕВБ(ПРАВБ(ПОДСТАВИТЬ(A3;" ";);2)));A3;ЛЕВБ(A3;ДЛСТР(СЖПРОБЕЛЫ(A3))-1)))
как-то так примерно
Автор - Nic70y
Дата добавления - 20.03.2015 в 13:17
alex-vl Дата: Пятница, 20.03.2015, 13:30 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Nic70y, Спасибо вам большое, работает.
 
Ответить
СообщениеNic70y, Спасибо вам большое, работает.
Автор - alex-vl
Дата добавления - 20.03.2015 в 13:30
_Boroda_ Дата: Пятница, 20.03.2015, 13:54 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 16901
Репутация: 6613 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
А если после цифр 2 слова? Например, "BBM 371306 A д". Я понимаю, что в примере такого нет, но ...
предлагаю так:
Код
=ЕСЛИОШИБКА(ПСТР(A3;1;ПРОСМОТР(;-1/ПСТР(A3;СТРОКА($1:$99);1);СТРОКА($1:$99)));A3)
К сообщению приложен файл: _Xl0000026_1.xls (23.0 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеА если после цифр 2 слова? Например, "BBM 371306 A д". Я понимаю, что в примере такого нет, но ...
предлагаю так:
Код
=ЕСЛИОШИБКА(ПСТР(A3;1;ПРОСМОТР(;-1/ПСТР(A3;СТРОКА($1:$99);1);СТРОКА($1:$99)));A3)
Автор - _Boroda_
Дата добавления - 20.03.2015 в 13:54
alex-vl Дата: Пятница, 27.03.2015, 14:56 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Добрый день, в таблице обнаружились данные типа
ACAPULCO lurex 40
AGNETTA 30
Используя вышенаписаные формулы режется последний символ, это можно как-то побороть?
Спасибо.
К сообщению приложен файл: 9159452.xls (24.0 Kb)
 
Ответить
СообщениеДобрый день, в таблице обнаружились данные типа
ACAPULCO lurex 40
AGNETTA 30
Используя вышенаписаные формулы режется последний символ, это можно как-то побороть?
Спасибо.
Автор - alex-vl
Дата добавления - 27.03.2015 в 14:56
_Boroda_ Дата: Пятница, 27.03.2015, 15:03 | Сообщение № 6
Группа: Админы
Ранг: Местный житель
Сообщений: 16901
Репутация: 6613 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Нолик не учел последний. Вот так нужно
Код
=ЕСЛИОШИБКА(ПСТР(A3;1;ПРОСМОТР(;-1/ПСТР(A3;СТРОКА($1:$99)-1;1);СТРОКА($1:$99)));A3)

Не Не так.
Ща поправлю
вот так
Код
=ЕСЛИОШИБКА(ПСТР(A3;1;ПРОСМОТР(1;-ПСТР(A3;СТРОКА($1:$99);1);СТРОКА($1:$99)));A3)
К сообщению приложен файл: 9159452_2.xls (25.0 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеНолик не учел последний. Вот так нужно
Код
=ЕСЛИОШИБКА(ПСТР(A3;1;ПРОСМОТР(;-1/ПСТР(A3;СТРОКА($1:$99)-1;1);СТРОКА($1:$99)));A3)

Не Не так.
Ща поправлю
вот так
Код
=ЕСЛИОШИБКА(ПСТР(A3;1;ПРОСМОТР(1;-ПСТР(A3;СТРОКА($1:$99);1);СТРОКА($1:$99)));A3)
Автор - _Boroda_
Дата добавления - 27.03.2015 в 15:03
alex-vl Дата: Пятница, 27.03.2015, 15:15 | Сообщение № 7
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Спасибо вам огромное
 
Ответить
СообщениеСпасибо вам огромное
Автор - alex-vl
Дата добавления - 27.03.2015 в 15:15
alex-vl Дата: Пятница, 27.03.2015, 16:18 | Сообщение № 8
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
К сожалению, последняя формула перестала отрезать последний символ "B" BBM99026B в таком типе данных.
 
Ответить
СообщениеК сожалению, последняя формула перестала отрезать последний символ "B" BBM99026B в таком типе данных.
Автор - alex-vl
Дата добавления - 27.03.2015 в 16:18
alex-vl Дата: Пятница, 27.03.2015, 16:27 | Сообщение № 9
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Извините, просто когда писал, ваш измененный файл был еще не доступен для скачивания. Теперь все отлично!
Еще раз спасибо.
 
Ответить
СообщениеИзвините, просто когда писал, ваш измененный файл был еще не доступен для скачивания. Теперь все отлично!
Еще раз спасибо.
Автор - alex-vl
Дата добавления - 27.03.2015 в 16:27
МВТ Дата: Пятница, 27.03.2015, 20:11 | Сообщение № 10
Группа: Проверенные
Ранг: Обитатель
Сообщений: 476
Репутация: 137 ±
Замечаний: 0% ±

Excel 2007
Или так можно, для простоты
upd перемудрил, исправил
[vba]
Код
Function LastA(S As String) As String
Dim aStr, aChar As String, L As Long
aStr = Application.WorksheetFunction.Trim(S)
L = Len(aStr)
For I = L To 1 Step -1
         If InStr("0123456789", Mid(aStr, I, 1)) <> 0 Then
         LastA = Left(aStr, I)
         Exit Function
     End If
Next I
LastA = aStr
End Function
[/vba]


Сообщение отредактировал МВТ - Пятница, 27.03.2015, 20:15
 
Ответить
СообщениеИли так можно, для простоты
upd перемудрил, исправил
[vba]
Код
Function LastA(S As String) As String
Dim aStr, aChar As String, L As Long
aStr = Application.WorksheetFunction.Trim(S)
L = Len(aStr)
For I = L To 1 Step -1
         If InStr("0123456789", Mid(aStr, I, 1)) <> 0 Then
         LastA = Left(aStr, I)
         Exit Function
     End If
Next I
LastA = aStr
End Function
[/vba]
Автор - МВТ
Дата добавления - 27.03.2015 в 20:11
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Удалить текст только после цифр (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!