Question

请EXCEL高手来，A2单元格的数自动复制到指定单元格中，如果A2单元格数字变动它会自动向下粘贴

如一个工作簿的A1单元格是1的话在C1单元格显示1如果A1单元格变0的话它会自动粘贴到C2的单元格而C1仍然是0，依次类推，即每次A2发生变化都会自动依次粘贴到B列，而之前粘贴的数值不变化。

Answer 1

Excel 内按 Alt+F11    视图--代码窗口,

把如下代码复制进去   即可， 注意   要开启宏 才可使用，excel 2007 以上版本要另存为 xlsm格式

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address = "$A$1" And Target <> "" Then
   If [C1] = "" Then
      [C1] = Target.Value
   Else
      [C65536].End(xlUp).Offset(1) = Target.Value
   End If
End If
End Sub

Answer 2

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
    Application.EnableEvents = False
    Range("C1").Insert
    Range("C1").Value = Target.Value
    Application.EnableEvents = True
End If
End Sub

设置工作表事件代码如以上。运行代码后，满足楼主要求。

追问

谢谢高手，但是如果A1为公式或者外部链接的话，能实现吗

谢谢高手，但是如果A1为公式或者外部链接的话，能实现吗

追答

试试看。