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

在工作表1单元格15上，我有一个单元格，它是用于选择簇的数据验证，我希望当我从下拉列表中选择一个值时，它会复制并粘贴到另一个工作表中的另一个单元格，该单元格由公式读取

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

这是我目前拥有的，但它不起作用

我是不是让这对我自己来说太难了？

试试看

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 transfer不会像复制粘贴那样复制格式，但您应该能够适应这种情况，或者切换到复制粘贴。

为什么

xlPasteValidation

？如果要粘贴值，

xlPasteValues

在

End If

Target.Address=“I15”

应该是

Target.Address=“$I$15”

，也应该是

Sheets（“Front”）.Range（“I15”）.Copy

应该是

Target.Copy

（只需简单地看一下，并利用

工作表\u Change

内置参数）您的

.rows.count

？；）问题来自MVP，您更喜欢检查

Target.Address=…

或

如果不相交（目标，范围（“I15”））然后性能没有任何差别吗？代码确实粘贴在C列中，但不粘贴在C2中，它进入单元格C39，然后从那里继续往下。好的，您已经注释掉了
。End（xlUp）
，但我认为您想粘贴到C列的下一个空白单元格中。上面修复了总是在C2中发布的问题。@ShaiRado-
如果相交（…
将覆盖目标中的多个单元格，但有时您只需要一个单元格。OP似乎只想粘贴到“团队假日日历”！C2中，这对于多单元格值传输是不可能的（或至少是有问题的）。