Замена слов определенного цвета в ячейках

[linguist]

Добрый день.

Подскажите, как можно реализовать такую функцию:

В ячейке есть текст разного цвета: красный, зеленый, черный. Нужно сделать макрос, который будет заменять пробелы между словами красного и зеленого цвета на "_".

Например, исходный вариант:
В этой ячейке есть слова разного цвета, нужно заменять пробелы между ними.

После обработки макросом:
В этой ячейке_есть_слова разного цвета, нужно_заменять пробелы между ними.

Пробовал записать макрос замены, но так работает только если в ячейке изначально был только один цвет, если добавить слова с другим цветом, то будет заменять всё на один цвет:

    Columns("L:L").Select
    Range("L2").Activate
    With Application.FindFormat.Font
        .Superscript = False
        .Subscript = False
        .Color = 37632
        .TintAndShade = 0
    End With
    Selection.Replace What:=" ", Replacement:="_", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=True, _
        ReplaceFormat:=True
   
    Columns("L:L").Select
    Range("L2").Activate
    With Application.FindFormat.Font
        .Superscript = False
        .Subscript = False
        .Color = 255
        .TintAndShade = 0
    End With
    Selection.Replace What:=" ", Replacement:="_", LookAt:=xlPart, _
         SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=True, _
         ReplaceFormat:=True

[IgorGO]

макросы делают не то, что Вы задумали а то, что в макросе написали...

замените в ячейке цвет 1 (любого) символа. запишите свои действия макрорекордером, изучайте записанный макрос

[svsh2016]

добрый вечер,linguist,вариант макроса для красного цвета,кнопки
color и повтор

Sub color()
        With Range("A1")
          For i = 1 To .Characters.Count
               With .Characters(Start:=i, Length:=1)
                   If .Font.color = 255 And .Text = " " Then .Text = "_"
               End With
          Next
        End With
End Sub

[Hugo121]

В условии не написано что пробелы тоже имеют такой же цвет.
И по условиям нужно анализировать цвет всех символов слова - ведь могут быть и разноцветные слова, раз это жёстко не оговорено

[svsh2016]

добавил кнопки color1 color2,а макрос use меняет все соответствующие
пробелы на знак подчеркивания.файл-пример сделал копированием фрагмента из сообщения создателя темы

[Hugo121]

Так значит это вот откуда в примере не всегда пробелы между словами...

[IgorGO]

а пробелы

В этой ячейке есть слова разного цвета, нужно заменять пробелы между ними.

не такого же цвета как и слова, которые они разделяют?

[svsh2016]

добрый вечер,IgorGo,в теме создателя нет файл-примера,
скопировал Ваш фрагмент в ячейку A2,макрос use1
меняет все нужные пробелы на знак подчеркивания.

Sub use1()
With Range("A2")
          For i = 1 To .Characters.Count
               With .Characters(Start:=i, Length:=1)
                   If (.Font.color = 255 Or .Font.color = 32768) And .Text = " " Then .Text = "_"
               End With
          Next
        End With
End Sub

[Hugo121]

Что будете делать с пробелами, которые не пробелы? Ещё навешивать OR?
Думаю пока лингвист всё не растолковал с примером всех вариантов слов и пробелов - торопиться не надо.

[linguist]

Всем спасибо за ответы.

Всегда ищем сочетания слов только зеленого или красного цвета. Остальные слова могут быть любого цвета, но мы их игнорируем. Одно слово не может быть разноцветным, т.е. в рамках одного слова все символы строго одного цвета.
Смысл такой, что если мы видим символ красного цвета, и через пробел тоже есть символ красного цвета, то между этими символами пробел меняем на подчеркивание. Аналогично с зеленым цветом. Между символами красного и зеленого цвета пробел на подчеркивание не меняется.