首页 > 解决方案 > 查找一个值,找到其相邻单元格的值并更改该单元格的值

问题描述

Excel 截图

在这张表中,我有一些数据:

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

现在,如果我在 F7 中写一些东西,它应该改变我们在 E7 中找到的 Col C 中的值。

我该如何做到这一点?

标签: excelvbaexcel-formulavlookup

解决方案


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

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

在此处输入图像描述


推荐阅读