VBA复制特定列中选定单元格的值

我一直在寻找用VBA编码的方法：当我单击X10:X5000范围内的某个单元格时，Excel应该将该单元格的值复制到特定的单元格B10

目前我有以下内容，但它仅在我选择的单元格为实际值时有效。当我选择的单元格是公式的结果时，目标单元格显示值的时间为几分之一秒，然后单元格变为空白

那么，如何确保始终复制选定单元格的值而不是公式？在这个例子中，我没有考虑范围，只考虑了一个选定的列

谢谢你的帮助

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Column = 19 Then ' check if cell modifed is in column "S"
Target.Copy Range("B10")
End If

End Sub

谢谢

尝试使用

Range("B10").Value = Target.Value

而不是

Target.Copy Range("B10")

这将传递值，而不是公式

尝试使用

Range("B10").Value = Target.Value

而不是

Target.Copy Range("B10")

这将传递值，而不是公式