如果单元格 a = b 列中的值，则复制并保存单元格 c 的值

Question

如果有人可以为此提供代码，我需要一些帮助。

场景：单元格A是一个下拉列表

B列有一个静态值

单元格 C 是他们输入值的地方

单元格 D 是存储单元格 c 的值的地方

所以如果单元格 A = B 列中的值，单元格 C 的值应该被复制并保存到单元格 D，因为单元格 A 是一个下拉列表，如果我将单元格 A 更改为另一个值，单元格 c 应该重置为“空白” ，但单元格 D 的值应保持在单元格 A = 单元格 B 的位置。

我在单元格 D 中输入了此代码，但是当我更改单元格 A 的值时，单元格 D 的值也会消失，它应该保留在单元格 a = 单元格 b 的位置

=vlookup(A2,Sheet1!B2:C5,2,FALSE)

我是 excel vba 的新手，所以任何帮助将不胜感激。

谢谢，

Answer 1

过于简化，但这里有一个解决方案......

首先，这是我如何设置数据的屏幕截图...

A 列中的数据使用下拉列表。 可能相同或不同的值被输入到 B 列。C 列是用户输入，D 列在重新计算时得到这些值。

这是重新计算按钮背后的代码......

Option Explicit
Option Base 1
Public Sub Recalculate()
    Dim iLoop As Integer
    For iLoop = 2 To 4
        If Sheets("Sheet1").Cells(iLoop, 1) = Sheets("Sheet1").Cells(iLoop, 2) Then
            Sheets("Sheet1").Cells(iLoop, 4) = Sheets("Sheet1").Cells(iLoop, 3)
        Else
             Sheets("Sheet1").Cells(iLoop, 3) = ""
        End If
    Next iLoop
End Sub

我没有做任何处理添加行等的事情。只是按照您的要求盲目计算。

我更改了 A3 中的值，这是结果的屏幕截图。