как вернуть значение в другую ячейку, если ячейка содержит определенный текст в макросе Excel

Question

как вернуть значение в другую ячейку, если ячейка содержит определенный текст в Excel, используя VBA. Предположим, что если любая ячейка в диапазоне от B14 до Z14 содержит «Jun», то ячейка выше, которая должна быть заполнена Q4, и так далее.

Answer 1

Попробуйте этот код:

Sub PopulateCells()
    Dim rng As Range, c As Range
    Set rng = Range("B14:Z14")

    For Each c In rng
        If InStr(1, c.Value, "Jun") > 0 Then c.Offset(-1, 0).Value = "Q4" 
    Next
End Sub

Answer 2

В B13 введите:

=IF(B14="Jun",$Q$4,"")

и скопируйте через.