Поиск и замена в столбце

[Garrison]

Всем привет.
Подскажите как произвести замену определенных символов по всему диапазону столбца?
Например:
На листе ексель есть какие-либо данные в столбце J.
Сколько строк будет в этом столбце неизвестно, может быть 100, а может 300....В этом столбике есть числовые данные, но в некоторых случаях заместо цифр присутствует буква N. Так вот, задача у меня состоит в том, чтобы после окончания загрузки данных в лист ексель, с помощью какой-либо комбинации клавиш заменить в столбце J данные со значением N, на ноль.
Подскажите как мне это реализовать.....а то голову сломал уже.....Думаю что с помощью цикла и функции Replace().....но что-то не получается у меня ничего.....

[pivas]

Ctrl+H. Выделяйте столбец, пишите что на что заменить, жмите Заменить все.

[Garrison]

Вот макрос, который получился после Ctrl+H
Sub Макрос1()

Selection.Replace What:="N", Replacement:="0", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub

Как мне прописать в этой процедуре диапазон столбца J?

[pivas]

В начало кода:

Range("J1:J65536").Select

т.е. весь столбец J/

[Garrison]

pivas
Спасибо)

[Sasha_Smirnov]

Вот ваш макрос без излишеств.

Sub EditColumn()

Columns("j").Select             'выделение 10-й колонки (J)'

Selection.Replace _
What:="N", Replacement:="0"     'замена в выделенном "N" на "0"

End Sub

Не худо было бы запрограммировать ещё и ввод номера столбца, да?

[SAS888]

Вот ваш макрос без излишеств.

Select - это излишество.

Sub EditColumn(): [J:J].Replace What:="N", Replacement:="0": End Sub

[EducatedFool]

Ну, если уж укорачивать макрос, то тогда так:

Sub EditColumn(): [J:J].Replace "N", 0: End Sub

[onenures]

А как сделать следующую замену значений в столбцах? Построчно, например, - в A1 есть какое-то значение, а в J1 есть текст с "ключевым" словом N. Как будет выглядеть макрос, заменяющий N на значение из A1, не трогая остальной текст в J1.

Ясно, что в

Sub EditColumn(): [J:J].Replace "N", 0: End Sub

надо заменить 0 на значение определенной ячейки, но как, не могу понять, надо знать VBA...

[EducatedFool]

например, так:

Sub EditCell(): [J1].Replace "N", [a1]: End Sub