Подправить макрос.

[ТРИУМФ]

Добрый день, в данный момент я изучаю VBA для Excel по книжки Автора "Срядный А.С. Новейший самоучитель Microsoft Excel 2010" так вот есть листинг .

Sub Replace_code()
Dim i As Integer
Dim strSeach, strReplace


'Изменение название столбца

Worksheets(1).Cells(2, 1) = Worksheets(2).Cells(2, 3)
For i = 3 To Worksheets(1).UsedRange.Rows.Count + 1

'искомый текст
       
       strSearch = Worksheets(1).Cells(i, 1).Value
       For j = 3 To Worksheets(2).UsedRange.Rows.Count + 1
       
       'поиск соотвествий
       
       If strSeach = Worksheets(2).Cells(j, 1).Value Then
       strReplace = Worksheets(2).Cells(j, 3).Value
        
        'замена данных
        
        Worksheets(1).Columns("A").Replace_
            What:=strSearch, Replacement:=strReplace,_
LookAt:=xlWhole, SearchOrder:=xlByColumns,_
MatchCase:=True
End If
Next j
Next i
End Sub

ругается на ситакс ерор

What:=strSearch, Replacement:=strReplace,_
LookAt:=xlWhole, SearchOrder:=xlByColumns,_
MatchCase:=True

В теории он должен выполнять как ВПР, т.е. в одном листе берет код ищет его в другом листе и заменяет рядом стоящий соответствующий надписью.



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

ну, я бы начал с того, что записал это примерно так:

    Worksheets(1).Columns("A").Replace _
        What:=strSearch, Replacement:=strReplace, _
        LookAt:=xlWhole, SearchOrder:=xlByColumns, _
        MatchCase:=True

[ТРИУМФ]

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

ну, я бы начал с того, что записал это примерно так:

    Worksheets(1).Columns("A").Replace _
        What:=strSearch, Replacement:=strReplace, _
        LookAt:=xlWhole, SearchOrder:=xlByColumns, _
        MatchCase:=True

После этого он мне удаляет столбец А на листе где как раз должен был заменить цифры на надписи

[Hugo121]

Я бы начал уже с первой строки:

Dim i As Integer

никак не вяжется с

For i = 3 To Worksheets(1).UsedRange.Rows.Count + 1

Если бы обьявлялась переменная j - вероятно было бы уже 2 ошибки...

[Hugo121]

Не понятно, зачем там +1? И так уже скорее всего на 3 строки цикл пойдёт ниже данных (кстати тоже узкое место)...
Ну а цикл в цикле перебирать ЯЧЕЙКИ - это уж вообще... Ладно бы массив, если словарь пока не проходили...
Хотя вероятно массивы тоже не проходили

[Serge_Bliznykov]

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

Я бы начал уже с первой строки:

Dim i As Integer

никак не вяжется с

For i = 3 To Worksheets(1).UsedRange.Rows.Count + 1

Коллега, я правильно Вас понял, что в тип Integer количество строчек может не поместиться, и нужно использовать тип Long ?

[Hugo121]

Ну конечно.
Если 100% известно, что конкретно у меня именно в этом документе строк никогда не будет много (больше предела Integer) - то можно оставить и так, ошибки не будет.
Но нет смысла - почитайте http://msdn.microsoft.com/en-us/libr...ffice.10).aspx

[ТРИУМФ]

так что в итоге?

[Hugo121]

В итоге Срядный доверия не вызывает...
А что хотите сделать? Просто изучить макрос или что-то сделать практически?
Во втором случае давайте пример в файле - напишем хороший быстрый макрос.

[ТРИУМФ]

Просто изучить, да я ошибся не срядный, а Сурядный