假设你的表一表二分别是sheet1 sheet2
alt+F11
左边列表中双击sheet1
将下面代码复制到右边的空白区
然后存盘退出，重新打开，打开时按照提示，最终需要你点击“启用宏”
然后，你可以在sheet1表的A1输入内容了
sheet2表的A列将会分别存储你要的内容
代码如下
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
With Sheets("sheet2")
i = Application.WorksheetFunction.Count(.Range("A:A")) + 1
.Range("A" & i) = Target.Value
End With
End Sub