Искать текст в столбце B и вставлять другой текст в столбец L, если это правда

Question

Мне нужно выполнить поиск в столбце B: B определенного текста, затем, если true, вставьте другой текст в столбец L: L, например:

Sub teste()
    Application.ScreenUpdating = False

    last = Cells(Rows.Count, "B").End(xlUp).Row

    For i = last To 1 Step -1    
        If (Cells(i, "B").Value) = "string_1" Then    
            Range("L2").Select
            ActiveCell.FormulaR1C1 = "some_text_1"

            'LastRow = Range("A" & Rows.Count).End(xlUp).Row
            'Range("L2").AutoFill Destination:=Range("L2:L" & LastRow)
        End If
    Next i
End Sub

Я могу вставить только первый текст, если оно истинно, или заполнить столбец L: L тем же текстом.

Answer 1

Sub teste()
Application.ScreenUpdating = False

s1 = "first_text"
s2 = "second_text"
s3 = "third_text"

last = Cells(Rows.Count, "B").End(xlUp).Row

For i = last To 1 Step -1

If (Cells(i, "B").Value) = "string_1" Then
    Cells(i, "L").Value = s1
ElseIf (Cells(i, "B").Value) = "String_2" Then
    Cells(i, "L").Value = s2
ElseIf (Cells(i, "B").Value) = "string_3" Then
    Cells(i, "L").Value = s3
End If

Next i

End Sub

Answer 2

Вы имеете в виду что-то подобное?

• Если столбец B равен string_1, скопируйте столбец C в столбец L

---

For i = last To 1 Step -1    
    If (Cells(i, "B").Value) = "string_1" Then    

        'copy value from C to L
        Cells(i, "L").Value = Cells(i, "C").Value

    End If
Next i

Возможно, вы выиграетеиз чтения Как избежать использования Select в Excel VBA .