基于活动单元格动态更新特定单元格值

Question

示例：当我使用向下箭头向下移动B1:B10的范围时，我想动态更新单元格A1。

例如，如果我在单元格B1:B10中分别有1-10个单元格，则单元格A1将始终更新到指定范围内活动单元格的内容。

我当前的代码是：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not (Intersect(ActiveCell, Range("$B$1:$B$10")) Is Nothing) Then
Cells(1, 1).Value = Cells(Selection.Row, 1)
End If
End Sub

此代码不会使用活动单元格的值更新单元格。但是，如果我在A1中输入一个数字，然后选择指定范围内的任何单元格，它将删除单元格A1的内容。

我对VBA的了解非常有限，所以如果你能回答我的问题，我会非常感谢你对它的工作原理的解释。

Answer 1

只需更改第三行的列编号。。。我刚试过你的代码，它运行得很好。唯一错误的是第三行的那列。

单元格(Selection.Row，第2列！(

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not (Intersect(ActiveCell, Range("$B$1:$B$10")) Is Nothing) Then
Cells(1, 1).Value = Cells(Selection.Row, 2) '<--- CHANGE IT HERE
End If
End Sub

或者你可以试试

Range("A1") = Range("B" & Target.Row)

而不是

Cells(....)

整个第三行。