Как найти все N-значения и заменить их на значения из 2-х ячеек?

[Smile2007]

Мне нужно найти все буквы К и заменить их на другое значение, но это значение состоит из двух ячеек, вот пример:



Как это сделать?

[motorway]

Можно же объединить значения в одну ячейку с помощью формул. Или в макросе использовать конкатенацию &

[Smile2007]

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

Можно же объединить значения в одну ячейку с помощью формул. Или в макросе использовать конкатенацию &

Мне как раз не нужно объединять ячейки, а нужно например Найти все «111» и заменить все эти значения на значение которое состоит из 2-х ячеек.

[motorway]

Тогда используйте конкатенацию Cells(i,j).Value &Cells(i,j+1).Value

[Serge 007]

Почему К в 28-й строке отличается от остальных К?

[Smile2007]

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

Тогда используйте конкатенацию Cells(i,j).Value &Cells(i,j+1).Value

Я была бы тебе очень благодарна, если бы ты мне подробнее объяснил и на примере показал. Если можешь объясни пожалуйста.

[Smile2007]

Сообщение от Serge 007

Почему К в 28-й строке отличается от остальных К?

ошиблась, должно быть AAA1

[motorway]

Предположим, что в диапазоне A1:F6 расположены числа 11. В ячейке H1 число 1, I1 - 2. Мы хотим заменить все эти числа на 12, то есть, слияние H1 и I1.
Это делается так (код вызывается при смене ячейки):

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 1 To 6
For j = 1 To 6
' вот тут с помощью & объединяются значения в ячейках
Cells(i, j).Value = Replace(Cells(i, j).Value, 11, [h1] & [i1])

Next

Next

End Sub

[SAS888]

Рациональнее делать через массивы (ибо быстрее), либо организовывать цикл только по требуемым ячейкам. Например, так:

Sub Main()
    Dim x As Range: Application.ScreenUpdating = False
    [A:E].AutoFilter Field:=1, Criteria1:="K"
    With ActiveSheet.AutoFilter.Range.Columns(1)
    For Each x In .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlVisible)
        x = x.Offset(, 3) & x.Offset(, 4)
    Next: [A:E].AutoFilter: End With
End Sub

Пример во вложении.Откройте файл и запустите макрос "Main".

[vikttur]

В примере "B" соответствуют и "Z", и "S". Тоже ошибка?