1、代码如下：
Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect([A1:U50], Target) Is Nothing Then Exit Sub
Call Macros1
End Sub
2、如果是整个工作表，上述代码取消条件那句即可。如果是整个工作簿，则为工作簿的事件，第一行为：Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
3、如果打开文件就运行宏，也是工作簿事件：Private Sub Workbook_Open()
4、要麻烦一些，将两个区域的数据存入数组中进行比较要快一些
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024