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

在工作表1单元格15我有一个单元格是一个数据validationselect一个集群，我想这样做，当我从下拉列表中select一个值复制并粘贴到另一个单元格中读取公式的另一个单元格。

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传输不像复制和粘贴一样复制格式，但是您应该能够适应这种情况，或切换到复制和粘贴。