查找值,找到其相邻单元格的值并更改该单元格的值

时间:2019-04-14 07:59:10

标签: excel vba excel-formula vlookup

Excel Screenshot

在此表中,我有一些数据:

  • 我要在A列中查找一个值(从D7
  • C列中找到其相邻对象(在E7中进行打印)
  • 并将此列C的单元格值更改为新值(从F7)。

到目前为止,我已经找到了一种使用E7中的=VLOOKUP(D7,A1:C4,3,0)查找值并找到其相邻单元格的方法。

现在,如果我在F7中写一些东西,它应该更改在E7中发现的Col C中的值。

我如何做到这一点?

1 个答案:

答案 0 :(得分:0)

用纯公式不可能实现。 解决方案如下:

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

enter image description here