EXCEL vba选择指定区域，A1的值等于指定区域中选中单元格的值，该如何实现？

Question

如图，当选中指定区域I1:I9时，A1的值就等于该区域中选中的值，而选择该区域外任何单元格则无任何反应，请问该如何实现？

Answer 1

工作表事件，代码如下：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Target.Count = 1 And Target.Row <= 9 And Target.Column = 9 Then

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

    End If

End Sub

对照图：

Answer 2

Range("a1") = ActiveCell

Answer 3

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Range("i1:i9"), Target) Is Nothing Then
Range("a1") = ""
Else
Range("a1") = Target
End If

End Sub本回答被提问者采纳

Answer 4

Sub a()
Dim i
For i = 1 To 9

If ActiveCell = Range("I" & i) Then

Range("a1") = Range("I" & i).Value

End If

Next i

End Sub