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

Question

我一直在寻找一种在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

谢谢！

Answer 1

尝试使用

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

而不是

Target.Copy Range("B10")

这应该传递值，而不是公式