Как правильно изменить макрос

[yana33311]

Такой макрос

Public Sub www()
Dim c As Range
For Each c In ActiveSheet.UsedRange.Columns(3).Cells
c = Replace(c, "<p align=\^justify\^><span style=\^margin-left: 50px\#\^>", "Ваш текст", , , 1)
Next
End Sub

Нужно изменить этот макрос так, чтобы он заменял не только текст <p align=\^justify\^><span style=\^margin-left: 50px\#\^>, но и все что после него. В идеале этот текст не должен заменяться, а просто удаляться со всем текстом который идет после него в ячейке.И по возможности нужно чтобы все замененные ячейки залились в например желтый цвет.

И еще хотела бы спросить, что нужно изменить в макросе, чтобы поменять колонку в которой будет происходить замена. Буду очень благодарна.

[IgorGO]

но и все что после него

- поставте звездочку последним символом "...50px\#\^>*"

а просто удаляться со всем текстом который идет после

- вместо "Ваш текст" поставте ""

чтобы поменять колонку

- вот это не наводило Вас на мысли: Columns(3)

[yana33311]

- поставте звездочку последним символом "...50px\#\^>*"

Так не получится. Замена так не проходит. Возможно в макросе * нужно писать другим способом.

[IgorGO]

а пример можно?
1. исходные данные в ячейке
2. как выглядит эта строка в макросе c = Replace(c, "<p align=\^justify\^><span style=\^margin-left: 50px\#\^>", "Ваш текст", , , 1)
3. и что получилось в итоге?

[yana33311]

Вот пример файла в котором нужно делать замену. Замена нужна всех ячеек в столбце C

[IgorGO]

извините, сам заблудился и Вас ввел в заблуждения
удалить все за этим "<p align=\^justify\^><span style=\^margin-left: 50px\#\^>" можно так:

C = Left(C, InStr(C, "<p align=\^justify\^><span style=\^margin-left: 50px\#\^>") - 1)