Question

在工作表1单元格15上我有一个单元格，这是一个选择集群的数据验证，我希望如此，当我从下拉列表中选择一个值时，它会复制＆amp;粘贴到另一个由公式读取的工作表中的另一个单元格。

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "I15" Then
    With Sheets("Team Holiday Calender").Cells(2, "C") '.End(xlup)(2)
    Sheets("Front").Range("I15").Copy
            .PasteSpecial xlPasteValidation
            Application.CutCopyMode = False

    End If

End Sub

我目前拥有的是什么，但它没有完成这项工作。

我为自己做的太难了吗？

Answer 1

试一试，

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address(0, 0) = "I15" Then
        With Sheets("Team Holiday Calender")
            .Cells(2, "C") = Target.Value
        end with
    End If

End Sub

直接.Value传输不会像Copy和＆amp ;;一样复制格式。粘贴，但您应该能够容纳它或切换到复制＆amp;糊。

Excel：更改数据验证后，将该值复制到特定单元格

1 个答案: