这个可以用VBA实际,大致代码如下
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 And Target.Column = 1 Then '设定当A1改变时运行代码
a = Sheet2.Cells(65536, 1).End(xlUp).Row + 1 '获取sheet2的A列中最后一个空单元格的行号
If Sheet2.Cells(1, 1) = "" Then '将A1中的内容记录到sheet2的A列中
Sheet2.Cells(a - 1, 1) = Target.Value
Else
Sheet2.Cells(a, 1) = Target.Value
End If
End If
End Sub
附件里的文件时写好的,你可以看下
注:由于用到了宏,所以需要将宏安全性改为“中”并且在打开Excel时选择启用宏即可。
03版安全性修改 在 工具——宏——安全性 中修改,然后重新打开Excel