给工作簿添加如下的事件响应，我是拿第一列作为例子，不知道你要对比那些数据，你自己举一反三吧。添加的方法是按Alt+F11打开代码编辑器，然后按Ctrl+R打开工程资源管理器，再双击ThisWorkbook，在右边的代码输入窗口里吧下面的代码贴进去就行了Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim 原有数据 As Range
输入数据 = Sheet1.Cells(1, 1)
Set 原有数据 = Sheet2.Cells(1, 1)
Do
