EXCEL如何根据前一个工作表自动在新的工作表生成数据？

在工作表1的单元格改变事件中添加代码

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim i As Integer

i = Target.Row

Sheets("sheet2").Cells(1, 1) = Sheets("sheet1").Cells(1, 1)

Sheets("sheet2").Cells(2, 1) = Sheets("sheet1").Cells(2, 1)

End Sub

可产生以下功能，在sheet1的第一个单元格中输入一个内容，在sheet2的第一个单元格中同时输入相同的内容。只要修改Sheets("sheet2").Cells(2, 1)中Cells(2, 1)单元格位置代码可实现任意位置