Здравствуйте, друзья. У меня появился непростой вопрос.
В ячейке C7 есть вот такой текст: "et344h h34f8734n 8778 A1текст+А4слово, f347fg3478fb83 fb64f 63f 3fb634gf346 fbf34bf6 634fb34bf А24слово, 783bf b4f4fb43f bf34 b3fb347fb A8образец, 3fb3 fb3 f3847fb b3"
Как формулой удалить из этой строки все текстовые элементы, начинающиеся с буквы А, и некоей однозначной или двузначной цифры. И заканчивающейся символом "+" или ","
Здравствуйте, друзья. У меня появился непростой вопрос.
В ячейке C7 есть вот такой текст: "et344h h34f8734n 8778 A1текст+А4слово, f347fg3478fb83 fb64f 63f 3fb634gf346 fbf34bf6 634fb34bf А24слово, 783bf b4f4fb43f bf34 b3fb347fb A8образец, 3fb3 fb3 f3847fb b3"
Как формулой удалить из этой строки все текстовые элементы, начинающиеся с буквы А, и некоей однозначной или двузначной цифры. И заканчивающейся символом "+" или ","
В тексте некоторые буквы А кириллица, а другие латиница. et344h h34f8734n 8778 A1текст+А4слово, f347fg3478fb83 fb64f 63f 3fb634gf346 fbf34bf6 634fb34bf A24слово, 783bf b4f4fb43f bf34 b3fb347fb A8образец, 3fb3 fb3 f3847fb b3 из этого получается.
Здравствуйте! Вот такая массивная формула удалит три указанных фрагмента:
В тексте некоторые буквы А кириллица, а другие латиница. et344h h34f8734n 8778 A1текст+А4слово, f347fg3478fb83 fb64f 63f 3fb634gf346 fbf34bf6 634fb34bf A24слово, 783bf b4f4fb43f bf34 b3fb347fb A8образец, 3fb3 fb3 f3847fb b3 из этого получается.Светлый
Function rr$(s$) On Error GoTo err With CreateObject("vbscript.regexp") .Global = True .Pattern = "(\s*[AÀ][0-9]{1,2}\S*?[,+])" If Not .test(s) Then Exit Function rr = .Replace(s, "") End With Exit Function err: rr = "Error " & err End Function
[/vba]
вариант с UDF[vba]
Код
Function rr$(s$) On Error GoTo err With CreateObject("vbscript.regexp") .Global = True .Pattern = "(\s*[AÀ][0-9]{1,2}\S*?[,+])" If Not .test(s) Then Exit Function rr = .Replace(s, "") End With Exit Function err: rr = "Error " & err End Function