请问excel能不能实现这样的功能：

请问excel能不能实现这样的功能：

代码如下，详见附件
Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address <> "$A$1" Or IsEmpty([A1]) Then Exit Sub
   Set ra = Sheet2.[A65536].End(3)
   Target.Copy IIf(IsEmpty(ra), ra, ra.Offset(1))
End Sub

用数据透视表追问具体怎么做呢？

控件不行，VBA可以追问具体怎么做呢？追答Private Sub Worksheet_Change(ByVal Target As Range)
sheet(sheet1).cells(1,1).Copy sheet(sheet2).cells(1,2)
End Sub
代码不一定全对 ，大概意思是这样的

可以通过VBA实现。稍等测试后附上代码。