Страницы: 1
RSS
Как макросом удалить слова, содержащие цифры?
 
Как макросом удалить слова, содержащие цифры?
Пример:
было: qwe 1rty
стало: qwe
 
Написать соответствующий макрос и применить его к нужному диапазону
Согласие есть продукт при полном непротивлении сторон
 
Можете помочь?
 
Пожалуйста
Согласие есть продукт при полном непротивлении сторон
 
Доброе время суток.
Вариант
Код
Public Function getWithoutWordsWithDigits(ByVal forText As String) As String
    Dim pReg As Object
    Set pReg = CreateObject("VBScript.RegExp")
    pReg.Pattern = "(?:\d*(?:[a-z]+\d+)+[a-z]*\d*|\d+[a-z]+)"
    pReg.Global = True
    getWithoutWordsWithDigits = Application.Trim(pReg.Replace(forText, ""))
End Function
 
 А как увидеть результат?  
Изменено: getana - 12.07.2019 20:23:36
 
getana, в файле введите в любую ячейку)
Код
=getWithoutWordsWithDigits("qwe 1rty")
 
спасибо
Страницы: 1
Наверх