Ошибка синтаксиса поиска и замены VBA

Ошибка синтаксиса поиска и замены VBA

У меня есть поиск и замена для некоторых html-тегов, а также замена вертикальных линий на символы разрыва. Мне нужно заменить вертикальную линию на Chr13, а затем заменить Chr13 на Chr10 в качестве последующего шага - ниже приведен мой VBA, но он выдает "Ошибка компиляции: Синтаксическая ошибка. Кто-нибудь может сообщить мне о проблеме из кода, показанного ниже, пожалуйста:

SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Выборка.Заменить Что:="—", Замена:="-", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Выборка.Заменить Что:="", Замена:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Выборка.Заменить Что:="", Замена:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Выборка.Заменить Что:="ü", Замена:="u", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Выборка.Заменить Что:=">", Замена:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Выборка.Заменить Что:="<", Замена:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Выборка.Заменить Что:=";", Замена:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Ячейки.Заменить Что:="|", Замена:="" & Chr(13) & "", LookAt:=xlPart, Порядок поиска:=xlByRows, СоответствиеРегистру:=Ложь, Формат поиска:=Ложь, ЗаменитьФормат:=Ложь ЗаменитьФормат:=Ложь Ячейки.Заменить Что:="Chr(13)", Замена:="" & Chr(10) & "", LookAt:=xlPart, Порядок поиска _ :=xlByRows, СоответствиеРегистру:=Ложь, Формат поиска:=Ложь, ЗаменитьФормат:=Ложь

решение1

Вам не хватаетзапятаядоReplaceFormat:=Ложь

Связанный контент