单击一个单元格并将其文本/值分配给另一个单元格

Question

标题几乎概括了一切，

简单地说，我希望能够单击单元格 A2 并将其内容自动分配给单元格 A15

最终“用户”会选择单元格 A2、B2 或 C2 等，并将所选单元格的值分配给 A15

搜索了整个 U 管，但几乎所有相关内容都是 5 岁以上

感谢您的时间和考虑

Answer 1

请尝试一下。

• 右键单击工作表选项卡 >

  View Code

  ，粘贴代码

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Const SRC_RANGE = "A2:C2"
    Const DES_CELL = "A15"
    With Target
        If .CountLarge = 1 Then
            If Not Application.Intersect(Target, Me.Range(SRC_RANGE)) Is Nothing Then
                Me.Range(DES_CELL).Value = .Value
            End If
        End If
    End If
End Sub