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

Вход

Регистрация

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

 

= Мир MS Excel/Удаление только цифр из ячейки с текстом. - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Удаление только цифр из ячейки с текстом. (Формулы/Formulas)
Удаление только цифр из ячейки с текстом.
doberman Дата: Пятница, 25.11.2016, 22:39 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Доброго времени суток. Подскажите пожалуйста кто знает как удалить цифры из ячейки с текстом, а оставить только текст без цифр. Образец прикладываю. Формулами или VBA не важно.
К сообщению приложен файл: 1702724.xlsx(5Kb)
 
Ответить
СообщениеДоброго времени суток. Подскажите пожалуйста кто знает как удалить цифры из ячейки с текстом, а оставить только текст без цифр. Образец прикладываю. Формулами или VBA не важно.

Автор - doberman
Дата добавления - 25.11.2016 в 22:39
buchlotnik Дата: Пятница, 25.11.2016, 22:45 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 2049
Репутация: 613 ±
Замечаний: 0% ±

2010, 2013, 2016 RUS / ENG
UDF: [vba]
Код
Function undigit$(t$)
    With CreateObject("VBScript.Regexp")
        .Global = True
        .Pattern = "\d+"
        undigit = .Replace(t$, "")
    End With
End Function
[/vba]
К сообщению приложен файл: 1702724.xlsm(15Kb)


платная помощь:
ЯД: 410012595572239; WM: 311017577133
buchlotnik@mail.ru
 
Ответить
СообщениеUDF: [vba]
Код
Function undigit$(t$)
    With CreateObject("VBScript.Regexp")
        .Global = True
        .Pattern = "\d+"
        undigit = .Replace(t$, "")
    End With
End Function
[/vba]

Автор - buchlotnik
Дата добавления - 25.11.2016 в 22:45
Karataev Дата: Пятница, 25.11.2016, 22:46 | Сообщение № 3
Группа: Проверенные
Ранг: Ветеран
Сообщений: 641
Репутация: 226 ±
Замечаний: 0% ±

Excel
Макрос для файла из поста 1: берет данные из "A2", вставляет измененные данные в "A4":
[vba]
Код
Sub Удалить_цифры()
    Dim strText As String, i As Long
    strText = Range("A2").Value
    For i = 0 To 9 Step 1
        strText = Replace(strText, i, "")
    Next i
    strText = WorksheetFunction.Trim(strText)
    Range("A4").Value = strText
End Sub
[/vba]


 
Ответить
СообщениеМакрос для файла из поста 1: берет данные из "A2", вставляет измененные данные в "A4":
[vba]
Код
Sub Удалить_цифры()
    Dim strText As String, i As Long
    strText = Range("A2").Value
    For i = 0 To 9 Step 1
        strText = Replace(strText, i, "")
    Next i
    strText = WorksheetFunction.Trim(strText)
    Range("A4").Value = strText
End Sub
[/vba]

Автор - Karataev
Дата добавления - 25.11.2016 в 22:46
sv2014 Дата: Пятница, 25.11.2016, 23:52 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 156
Репутация: 37 ±
Замечаний: 0% ±

Excel 2013
doberman, добрый вечер,еще вариант функции в столбце G

[vba]
Код
Function yyyy$(t$)
   Dim i%
With CreateObject("VBScript.RegExp"):  .Pattern = "\D+": .Global = True
    For i = 0 To .Execute(t).Count - 1: yyyy = yyyy + .Execute(t)(i): Next
End With
End Function
[/vba]
К сообщению приложен файл: example_25_11_2.xls(32Kb)
 
Ответить
Сообщениеdoberman, добрый вечер,еще вариант функции в столбце G

[vba]
Код
Function yyyy$(t$)
   Dim i%
With CreateObject("VBScript.RegExp"):  .Pattern = "\D+": .Global = True
    For i = 0 To .Execute(t).Count - 1: yyyy = yyyy + .Execute(t)(i): Next
End With
End Function
[/vba]

Автор - sv2014
Дата добавления - 25.11.2016 в 23:52
Nic70y Дата: Суббота, 26.11.2016, 22:14 | Сообщение № 5
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3473
Репутация: 722 ±
Замечаний: 0% ±

Excel 2013
этим макрописцам лишь бы макросы писать, маленькая формула:
Код
=ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A2;0;);1;);2;);3;);4;);5;);6;);7;);8;);9;)
Код
=СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A2;0;);1;);2;);3;);4;);5;);6;);7;);8;);9;))


ЯД(poison) 41001841029809
+7 978 049 98 74 (мтс)


Сообщение отредактировал Nic70y - Суббота, 26.11.2016, 22:17
 
Ответить
Сообщениеэтим макрописцам лишь бы макросы писать, маленькая формула:
Код
=ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A2;0;);1;);2;);3;);4;);5;);6;);7;);8;);9;)
Код
=СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A2;0;);1;);2;);3;);4;);5;);6;);7;);8;);9;))

Автор - Nic70y
Дата добавления - 26.11.2016 в 22:14
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Удаление только цифр из ячейки с текстом. (Формулы/Formulas)
Страница 1 из 11
Поиск:

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