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

Вход

Регистрация

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

 

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

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

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

Автор - doberman
Дата добавления - 25.11.2016 в 22:39
buchlotnik Дата: Пятница, 25.11.2016, 22:45 | Сообщение № 2
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3443
Репутация: 923 ±
Замечаний: 20% ±

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(14.6 Kb)
 
Ответить
Сообщение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
Группа: Проверенные
Ранг: Старожил
Сообщений: 1232
Репутация: 464 ±
Замечаний: 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]


Киви-кошелек: 9166309108
Яндекс-деньги: 410014131888288
 
Ответить
СообщениеМакрос для файла из поста 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
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 203
Репутация: 58 ±
Замечаний: 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(31.5 Kb)
 
Ответить
Сообщение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
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4620
Репутация: 997 ±
Замечаний: 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 из 1
  • 1
Поиск:

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