макрос и ВПР

[alex77755]

этот справочник можно держать например в отдельном файле

Справочник возможных и невозможных грамматических ошибок, описок и прочих неточностей да и просто ляпусов? это уже интересно.
Напоминает анекдот про выставку автомобилей 4х4, 6х6 и даже 8х8.
Иностранцы всё время удивлялись: Ну эти русские на всё пойдут лишь бы дороги не строить.

[kuklp]

А что, для ускорения работы очень даже. Еще идея - что нашлось в словаре исправили и скрыли исправленые строки. А те что остались, правим вручную и все это логом, программно добавляется в словарь. С каждым разом работы будет все меньше. Хотя юзеры такие затейники:-)
Было, чел в слове "еще" делал 5 ошибок. Как? Писал "исчьо". Тут словари бессильны...

[Hugo121]

Сообщение от alex77755

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

Как будто не понял
Пока такой:
ябл*
гр*
сл*
манг*
манд*
апе*
апи*
мнд*

Можно ещё посмотреть, что там путают, типа винград или виногард...
В конце концов, список фруктов в магазинах не такой уж большой, можно один раз и посидеть часик за работой.

[flacon45]

Прикрепляю файл. При запуске макроса выдает ошибку. Помогите разобраться.

спасибо.

[kuklp]

Пока так:

Sub Macro()
    stolb_proverka = 1    '   TextBox1.Value 'задается столбец для проверки
    col = 3    'TextBox2.Value  'новый столбец с исправленными названием
    q_strok = Sheets("исходник").Cells(Rows.Count, 1).End(xlUp).Row   'TextBox3.Value   'кол-во строк
' заголовок
    Sheets("исходник").Cells(1, col) = "Исправленный"
    ' цикл на исправление
    For i = 2 To q_strok
        Sheets("справочник").Cells(19, "F") = Sheets("исходник").Cells(i, stolb_proverka)
        If Not IsError(Sheets("справочник").Cells(19, "G")) Then
            Sheets("исходник").Cells(i, col) = Sheets("справочник").Cells(19, "G")
        Else
            Sheets("исходник").Cells(i, col) = Sheets("исходник").Cells(i, stolb_proverka)
        End If
    Next i
End Sub

Только настоятельно бы советовал Вам первой строкой в модулях ставить Option Explicit и обьявлять все переменные. Это убережет Вас от многих ошибок.

[Hugo121]

Я свой код добавил, посмотрите.
А справочник имхо лучше типа такого сделать:

ябл*	яблоки
гр*	груши
сл*	сливы
манг*	манго
манд*	мандарины
апе*	апельсины
апи*	апельсины
мнд*	мандарины

Если есть варианты с кавычками - добавьте и их тоже, или поставьте и * в начале тоже.
Но тогда по *гр* могут найтись и огурцы, если будут написаны с ошибкой.

[flacon45]

Спасибо всем.