Excel 中如何实现数据更新记录？

这个要用代码搞定，

右键 点公式表名， 查看代码，如下代码复制进去，

需要另存为启用宏的 工作薄，并且启用宏使用

Option Base 1

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False

Dim jrr(1 To 10, 1 To 1)

arr = Range("A2:A11")

If Target.Address = "$A$1" And [a1] <> "" Then

jrr(1, 1) = [a1]

For i = 1 To 9

jrr(i + 1, 1) = arr(i, 1)

Next

End If

[a2:a11] = jrr

Application.EnableEvents = True

End Sub