Поиск значения, найти значение соседней ячейки и изменить значение этой ячейки

Question

В этой таблице у меня есть некоторые данные:

• Я хочу найти значение (от D7) в столбце A
• найдите его рядом со столбцом C (выведите его в E7)
• и измените значение ячейки C на новое значение в столбце (с F7).

До сих пор я нашел способ поиска значения и поиска соседней ячейки, используя =VLOOKUP(D7,A1:C4,3,0) в E7.

Теперь, если я напишу что-то в F7, это должно изменить значение в Col C, которое мы нашли в E7.

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

Answer 1

Невозможно достичь с чистыми формулами.Решение vba выглядит следующим образом:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim temp As Range
    If Not Intersect(Target, Range("D7")) Is Nothing Then
        Set temp = Range("A1:A4").Find(Trim(Range("D7")), LookIn:=xlValues, lookat:=xlWhole)
        If Not temp Is Nothing Then
            Range("E7") = temp.Offset(0, 2)
            temp.Offset(0, 2) = Range("F7")
        End If
    End If
End Sub