求大神EXCEL VBA代码 点击一个单元格，另一单元格显示该单元格内容

Question

求大神EXCEL VBA代码 问题一：光标点击 B2:H5 任意一个单元格 ,点击的单元内容自动显示在A2单元格内。问题2：光标点击 I2:I5 任意一个单元格 , 点击的单元格内容自动显示A3单元格内。

Answer 1

答：右键工作表名，点击"查看代码"，复制如下代码。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Union(Target.Cells(1, 1), Range("B2:H5")).Address = Range("B2:H5").Address Then
        Range("A2") = Target.Cells(1, 1)
    ElseIf Union(Target.Cells(1, 1), Range("I2:I5")).Address = Range("I2:I5").Address Then
        Range("A3") = Target.Cells(1, 1)
    End If
End Sub

Answer 2

我会写这样的代码，有实际的文件更方便测试