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

[onenures]

EducatedFool
Спасибо за ответ, но это не совсем то. Меня интересует прогон по столбцу. Т.е. значение из A1 попадает в J1, A2-J2 и т.д.

[EducatedFool]

Меня интересует прогон по столбцу. Т.е. значение из A1 попадает в J1, A2-J2 и т.д.

Sub test()
    Dim cell As Range, ra As Range: Application.ScreenUpdating = False
    Set ra = Range([a1], Range("A" & Rows.Count).End(xlUp))
    For Each cell In ra.Cells
      cell.Offset(, 9).Replace "N", cell
    Next cell
End Sub

[onenures]

EducatedFool
Спасибо, не написал бы такое

[Leva-net]

Уважаемые Гуру, есть похожий вопрос
В столбце A наименование, которое содержит производителя и модель
В столбце B производитель
Необходимо в столбце С, получить только модель без производителя.
как осуществить сие чудо?

[IgorGO]

для Домино не сложилось... а в остальном нормально

[Leva-net]

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

для Домино не сложилось... а в остальном нормально

Большое спасибо, очень помогло.
По сути дела, есть еще 2 вопроса.
1. Обнаружил, что не во всех случаях, данная функция выполняется. В одном (то что заметил), ничего не происходит, как есть так и перемещается. В вложенном примере выделено желтым.
2. Можно ли, реализовать функцию (или макрос), который будет выполнять поиск с заменой (как ctrl+f) но только для искомого значения брал строчку из столбца E искал ее в столбце D и заменял на пустоту (удалял). Имеется в виду по очереди Что б в итоге получилось, то что в столбике F. Имеется в виду по очереди сначала то что в E1 нашел в D и заменил, затем E2 нашел в D и заменил, и т.д. При учете что столбик E будет больше и периодически дополнятся или изменятся. Ну или как-то так.
Буду ОЧЕНЬ признателен за помощь.

[Hugo121]

Можно так:

Sub tt()
    Dim a, b
    For Each a In Selection.Cells
        For Each b In [h1:h19].Cells
            a.Value = Trim(Replace(UCase(a.Value), UCase(b.Value), ""))
        Next
    Next
End Sub

В [h1:h19] список замен:
Kaiser
Thomas
Samsung
Siemens
Electrolux
Samsung
Toshiba
Siemens
Siemens
Kaiser
Daewoo
Bosch
Teka
Whirlpool
Smeg
Electrolux
Вытяжка
Domino
Черная

Перед запуском выделить A1:A16

P.S. - только что заметил, что там два раза Samsung и три раза Siemens... Но это принцип не меняет, и код можно не менять...
Разве что Trim() в первой версии забыл добавить.

[IgorGO]

в колонке G первый проход, в H второй (из-за черной вытяжки)))

[Leva-net]

Огромное спасибо, именно то что искал!!!

[Taurus_UA]

Уважаемые программисты помогите чайнику в таком вопросе

Sub СменаID()
'В поле А множество уникальных значений целых чисел
'В поле В множество повторяющихся значений из поля А
'Кол. строк А=В
'? сменить все значения в поле А на значения попорядку начиная с 1 до пустого значения _
не потеряв численную связь с полем В

'
Dim a0, a1
For i = 1 To 10
    Range("A" & i).Select
    Selection.Copy
    a0 = Range("A" & i)     'храню исходное значение
  
    
    Range("A" & i).Select
    ActiveCell.FormulaR1C1 = i  'вставляю № по порядку
    
    Range("A" & i + 1).Select 'устанавливаю курсор на 1 стоку ниже
    
    Cells.Find(What:=i, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
    ActiveCell.Replace What:=i, Replacement:=a0, LookAt:=xlWhole, _
        SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False  
'ячейка целиком _
    (делаю поиск дубликата ячейки А1 для заменя на  предыдущее значение А1, предыдущее значение храниться в )
    Next
    
End Sub

Код не дописан, т.к. при выполнении этого куска кода, в нижней части (поиск и замена), меняется повторно значение "i" на предыдущее, а надо спуститься на одну строчку вниз и сделать поиск и замену.
Другими словами: верхнюю часть перебранных полей не трогать, а идти дальше и перебирать код.
Не пойму - какая то интересная ситуация, в 1-м проходе (ячейка А1) он срабатывает, а в остальных нет!!!
Помогите пожалуйста чайнику... Буду благодарен эквивалентом)