Если ячейка X, то значение ячейки справа от нее будет Y для всего столбца в VBA Excel.

Question

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

У меня есть 2 столбца

Lvl1 Lvl2
A - - X
A - - X
A - - X
B - - X

Если Lvl2 равен "X", то я хочу, чтобы он был заменен тем же значением, что и Lvl1. Таким образом, с первого по третий ряд Lvl2 будет «А», а в 4-м ряду Lvl2 будет «B».

Другой способ увидеть это будет, если Lvl1 - A, тогда текст Lvl2 - также A. Если Lvl1 - B, то текст Lvl2 будет B и т. Д.

Answer 1

Вот код, который поможет вам начать работу -

1. Перебери свои ряды. Здесь от 2 до 4, при реализации вы захотите создать динамический цикл (For i = 2 to LastRow). Как это сделать хорошо документировано здесь
2. Проверьте, является ли значение в Column B = X - Если да, укажите Column B значение из Column A

---

Dim ws as Worksheet: Set ws = ThisworkBook.Sheets("Sheet1")
Dim i as Long

For i = 2 to 5
    If ws.Range("B" & i) = "X" Then
        ws.Range("B" & i).Value = ws.Range("A" & i).Value
    End If
End if