首页 文章

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

提问于
浏览 次
1

在第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

是我现在拥有的，但它没有做到这一点 .

我对自己这么难吗？

excel vba excel-vba validation

1 回答

  • 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传输不像复制和粘贴一样复制格式，但您应该能够适应或转换为复制和粘贴 .

    回复于

相关问题