Подмена английских букв русскими

[plutimati]

Добрый день, уважаемые специалисты! Помогите пожалуйста. Вопрос вот в чем: есть два столбца, на разных листах, мне нужно их сравнить на предмет совпадений. Но беда в том, что в одной некоторые английские буквы заменены на русские (а именно те которые похожи по написанию). Использую Excel 2007. Подскажите пожалуйста, что с этим можно поделать? Спасибо

[VictorM]

Посмотрите вот это Как определить содержит ли строка кириллицу или латиницу
Ну, а дальше - по обстоятельствам, например такое Пример программного удаления всех букв кириллицы.

[EducatedFool]

Я бы сначала макросом произвёл на обоих листах все необходимые замены,
(заменяем русскую А на латинскую А, и т.д. для всех букв алфавита)
а потом сравнил бы при помощи формул (типа =ПОИСКПОЗ или =СЧЁТЕСЛИ),
подсветив совпадающие значения условным форматированием.

[vikttur]

Вариант работает дальше, чем макрос, но быстрее, чем написание оного
Выделить данные, меню Правка-Найти/Заменить. За 3-4 минуты будет исправлено.

[plutimati]

Спасибо большое за советы! Скажите пожалуйста, а как должен выглядеть макрос для замены русских букв на латинские?

[VictorM]

Вот так можно, для 2-х букв, дальше по аналогии (укажите свой диапазон)

Sub Replac()
    With [a1:f15]
        .Replace What:="c", Replacement:="с", LookAt:=xlPart
        .Replace What:="a", Replacement:="а", LookAt:=xlPart
    End With
End Sub