Удаление только цифр из ячейки с текстом.

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Удаление только цифр из ячейки с текстом. (Формулы/Formulas)

doberman

Дата: Пятница, 25.11.2016, 22:39 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 29

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Доброго времени суток. Подскажите пожалуйста кто знает как удалить цифры из ячейки с текстом, а оставить только текст без цифр. Образец прикладываю. Формулами или VBA не важно.

К сообщению приложен файл: 1702724.xlsx (5.4 Kb)

Ответить

buchlotnik

Дата: Пятница, 25.11.2016, 22:45 | Сообщение № 2

Группа: Заблокированные

Ранг: Участник клуба

Сообщений: 3442

Репутация: 929 ±

Замечаний: 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)

Ответить

Karataev

Дата: Пятница, 25.11.2016, 22:46 | Сообщение № 3

Группа: Проверенные

Ранг: Старожил

Сообщений: 1336

Репутация: 533 ±

Замечаний: 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]

Ответить

sv2014

Дата: Пятница, 25.11.2016, 23:52 | Сообщение № 4

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 226

Репутация: 61 ±

Замечаний: 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)

Ответить

Nic70y

Дата: Суббота, 26.11.2016, 22:14 | Сообщение № 5

Группа: Друзья

Ранг: Экселист

Сообщений: 9130

Репутация: 2415 ±

Замечаний: 0% ±

Excel 2010

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

Код

=СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A2;0;);1;);2;);3;);4;);5;);6;);7;);8;);9;))

ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Суббота, 26.11.2016, 22:17

Ответить

Удаление только цифр из ячейки с текстом. (Формулы/Formulas)

Страница 1 из 1
1