Удалить текст до/после звёздочки.

Автор Волх, 15 июля 2025, 13:31

Волх

Скажите, пожалуйста, как удалить текст до или после *.
Всё хорошо работает с /.

Columns(6).Replace What:="*/", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2 ' Удаляется всё, что после /
       
Columns("E:E").Replace What:="/*", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2 ' Удаляется всё, что до /

Но вот тут же вместо / звёздочку не поставишь. Как тогда так же, но вместо наклонной черты звёздочка?

Администратор

Спецсимволы можно превращать в обычные символы с помощью других спецсимволов. Такое не только в Экселе, а в любой программе.
В Экселе, в Найти и заменить спецсимволы превращаются в обычные символы с помощью символа "~".

    Columns("A").Replace What:="*~*", Replacement:="", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
           
    Columns("B").Replace What:="~**", Replacement:="", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2

Волх

Да, тоже уже нашёл через тильду. Только код чуть по другому получился:

Columns(6).Replace What:= "*~*~", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2 ' Удаляется всё, что после /

Спасибо.