Страницы: 1
RSS
выбрать из текста все отдельные пары заглавных латинских букв
 
Всем Привет помогите исправит макрос в результате получилось, как в столбце “D” Заранее всем. Спасибо
Изменено: Юрий М - 28.04.2022 22:58:26
 

Здесь правелний пример

 
Зачем оставлять неправильный пример? Свои сообщения можно редактировать, в том числе удалять/добавлять файлы.
Название темы плохое - невозможно понять задачу. Что должен делать макрос?
Предложите новое - модераторы поменяют.
 
название темы:
выбрать из текста все отдельные пары заглавных латинских букв

ответ:
Код
Function FindAB$(a As Range, b As Range)
  Dim re, ms, m, s$
  Set re = CreateObject("VBScript.RegExp"): re.Global = True
  re.Pattern = "\W([A-Z]{2})\W": s = a & " " & b
  If re.Test(s) Then
    Set ms = re.Execute(s)
    For Each m In ms: FindAB = FindAB & "-" & m.SubMatches(0): Next
  End If
  If Len(FindAB) Then FindAB = Right(FindAB, Len(FindAB) - 1)
End Function
Изменено: Ігор Гончаренко - 28.04.2022 22:54:40
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Страницы: 1
Наверх