Страницы: 1
RSS
Удалить часть текста (слова состоящие из заглавных букв)
 
Здравствуйте. Нужна помощь с текстом. В ячейках есть текст и мне из него нужно удалить, слова которые состоят только из заглавных букв и заглавных букв и цифр. Пример прилагаю.
 
UDF
Код
Function iText(cell$) As String
 With CreateObject("VBScript.RegExp")
   .Global = True
   .Pattern = "[A-Z \d]+\b"
   iText = .Replace(cell, "")
 End With
End Function
 
Добрый вечер!
Можете так же посмотреть в силу мгновенного заполнения.
Если все ваши исходные данные однотипны с представленными в файл-примере, то эксель справиться и сам.
 
Kuzmich, вроде работает, только пробелы съело между словами.
Aleksey1107, в 80% случаев отлично сработало.
 
Попробуйте заменить:
Код
.Pattern = "[A-Z \d]+\b"
на
Код
.Pattern = "[A-Z. \d+]+ \b"

Вы можете также составить себе список исключённых слов и использовать простой макрос с методом "Replace" и циклом, например "For ... Next"
... или вручную "Ctrl+H" ... (?) ... если немного слов для обмена.

пс:
Простите (любознательному коту ... :) ... ), зачем в вашем файле такой странный "пиджин" польско-германский ?
 
в Power Query. формулу позаимствовал на сайте excel-vba.ru
 
ну так как это только первые слова, то
=REPLACE(A2;1;FIND(TRIM(RIGHT(SUBSTITUTE(LEFT(A2;MIN(IF(IFERROR(MOD(MATCH(CODE(MID(A2;ROW($A$1:$A$99);1));{97;123;184;185;224});2);0);ROW($A$1:$A$99))));" ";REPT(" ";99));99));A2)-1;)
По вопросам из тем форума, личку не читаю.
 
Цитата
вроде работает, только пробелы съело между словами.
Код
Function iText(cell$) As String
 With CreateObject("VBScript.RegExp")
   .Global = True
     .Pattern = "[A-Z\d\.]+\b"
   iText = Application.Trim(.Replace(cell, ""))
 End With
End Function

или
Код
Function iText_(cell$) As String
 With CreateObject("VBScript.RegExp")
   .Pattern = "[A-Z][a-z]"
   iText_ = Mid(cell, .Execute(cell)(0).FirstIndex + 1)
 End With
End Function
Изменено: Kuzmich - 10.11.2019 13:49:06
 
artyrH, ocet p, спасибо за помощь. Текст действительно кривоват)), вроде какой-то польский мультиязычный сайт, кот.до конца не перевели. Ко мне уже попал в таком виде).
 
Не мне ... :) ... только Кузьмичу скажите спасибо за это, я был просто редактором его кода ... и не знаю, хорошим или плохим.
 
Kuzmich, огромное спасибо за помощь.
Изменено: Oleksiy Babenko - 10.11.2019 21:22:20
Страницы: 1
Наверх