如何制作复制公式，如果 z3 = csl，则值从 A3 复制到 B3

Question

是否有一个公式可以从 A3 汽车下拉列表中复制文本值，将文本值粘贴到 B3 中，一旦我将 CSl 放入 Z3。然后我可以删除 A3，但 B3 中仍然有文本值。

或者这只能通过宏完成，我是否每次都必须为每一行编写该宏。

我可以在 Z3 中放置一个复选框，将“CSL”输入其中。然后让宏执行复制粘贴值。这个宏可以用于下一行单元格 B4，并继续向下移动吗？

谢谢。

Answer 1

是的，你需要在工作簿的工作表模块中添加类似这样的内容 -

Private Sub worksheet_change(ByVal target As Range)
If Not Intersect(target, Range("Z3")) Is Nothing Then
    If Range("Z3") = "CSI" Then
        Range("B3") = Range("A3")
        Range("A3").ClearContents
    End If
End If
End Sub

您可以更改范围来引用整个列并用来offset定义更改的内容。