VBA - Написать макрос, который должен удалять текст всех ячеек выделенной области, если он удовлетворяет условию
Формулировка задачи:
Здравствуйте, помогите, пожалуйста, с написание макроса. Макрос MTextClear должен удалять текст всех ячеек выделенной области, если он удовлетворяет условию. Условие: в тексте есть в разных местах два одинаковых слова из 2-х букв. Заранее огромное спасибо!
Решение задачи: «VBA - Написать макрос, который должен удалять текст всех ячеек выделенной области, если он удовлетворяет условию»
textual
Листинг программы
Sub Eff()
Dim re As Object, x, c As Range
Set re = CreateObject("vbscript.regexp")
re.ignorecase = True
re.Pattern = "(^|[^a-zа-яё])([a-zа-яё]{2})(?=[^a-zа-яё]|$)"
re.Global = True
On Error Resume Next
For Each c In Intersect(Selection, ActiveSheet.UsedRange)
With New Collection
For Each x In re.Execute(c.Text)
.Add 0, x.submatches(1)
If Err Then
Err.Clear
c.ClearContents
Exit For
End If
Next
End With
Next
End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д