Добрый день, подскажите пожалуйста, как можно массово заменить текст в ячейках таблицы
часть текста в ячейки такой: а заменить примерно на такой же, но с не большими доработками
<strong>Доставка по Москве:</strong>
Москва в пределах МКАД - бесплатно
Москва за МКАД - 350 р. + 25 р. за 1 км.
Подъем - бесплатно
Сборка - 450 р. (за 1 ед.)
<strong>Доставка в регионы России и МО:</strong>
Смотреть в разделе Доставка и Сборка.
За этот товар компенсируем <font color="red"><strong>40%</strong> </font> <font color="red"> <strong></strong></font> стоимости услуг по доставке.<font color="red"><strong>

_Igor_61,  попробовал этот макрос который выложил Игорь

Sub ЧисткаHTML()
   Dim cell As Range
   For Each cell In ActiveSheet.UsedRange.Columns(31).Cells
       cell = HTML_DeleteAttributes(cell)
   Next cell
End Sub

Function HTML_DeleteAttributes(ByVal txt$)
   On Error Resume Next
   With CreateObject("VBScript.RegExp")
       .Global = True
       .Pattern = "(<[A-Za-z1-6]+)[^<>]*(>)"
       txt$ = .Replace(txt$, "$1$2")
       .Pattern = ">\s*<"
       txt$ = .Replace(txt$, "><")
   End With
   HTML_DeleteAttributes = txt$
End Function

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