Excel自动复制需求：A1输入回车后同步至Sheet2并逐行追加

基础公式没法实现这个需求——因为A1输入新值后会覆盖旧值，公式没法追踪历史输入记录，必须用简单的VBA宏来完成，操作步骤很简单，不用懂编程：

1. 打开你的Excel文件，右键点击要输入数据的工作表标签（比如Sheet1），选择「查看代码」。
2. 在弹出的VBA编辑器窗口里，直接粘贴下面的代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅响应A1单元格的内容变化
    If Target.Address = "$A$1" Then
        ' 跳过空输入
        If Target.Value <> "" Then
            ' 定位Sheet2中A列的下一个空行
            Dim lastRow As Long
            lastRow = Sheets("Sheet2").Cells(Rows.Count, "A").End(xlUp).Row + 1
            ' 把A1的内容复制到Sheet2的对应行
            Sheets("Sheet2").Cells(lastRow, "A").Value = Target.Value
            ' 可选：自动清空A1方便下次输入，不需要就删掉这行
            Target.Value = ""
        End If
    End If
End Sub

3. 关闭VBA编辑器，回到Excel界面测试：在Sheet1的A1输入内容按回车，数据会自动追加到Sheet2的A列最后一行；再次输入新内容回车，会继续加到下一行。

注意事项 #

• 保存文件时要选择「Excel启用宏的工作簿（*.xlsm）」格式，不然宏会失效。
• 如果你的目标工作表不是默认的Sheet2，把代码里的Sheets("Sheet2")改成实际的工作表名称，比如Sheets("数据存档")。

内容的提问来源于stack exchange，提问作者Jonnel Garcia