Dim x, y
Private Sub Worksheet_Change(ByVal Target As Range)
If Sheet2.Cells(x, y).Value = Sheet1.Cells(x, y).Value Then
Sheet2.Cells(x, y + 1).Value = Sheet1.Cells(x, y + 1).Value
Sheet1.Cells(x, y + 1).Value = ""
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
x = ActiveCell.Row
y = ActiveCell.Column
End Sub
你的表1（sheet1)是数据原
在工作表名字上右键（就是下面那里sheet)查看代码，把上面的复制到里面就行了,不要复制多余的空格啊。我试测没问题。
如果引用后就删除原数据，那么公式如何执行？当你一删除原表数据，则新表中引用的数据就会丢失！要想引用成功须保留原数据，再把新工作表中的数据复制粘贴为数值之类的无公式数据，回过头再删除原表数据。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024