这个问题,你没有固定修改数据,引发事件的区域,你在粘贴C列数据时,有100个单元格数据改变了,而IF函数不知道取哪个的值判断,解决问题,有两种办法,
一个是固定区域,才引发事件,另一个是用代码暂时禁止事件,因为不知道你的条件区域,所以用第二种办法,修改了一下,如下:
Private Sub Worksheet_Change(ByVal Target As Range) If Target = 1 Then Range("A2:A100").Select Selection.Copy Application.EnableEvents = False '禁用所有事件 Range("C2:C100").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.EnableEvents = True '解禁所有事件 ActiveSheet.Calculate End IfEnd Sub