1、按Alt+F11打开代码编辑器。2、在左侧栏中双击需要添加代码的工作表。3、在右侧输入或粘贴代码。4、如图，你只修改两个参数即可，其他代码不用动。5、改好后关闭代码编辑器即可。Private Sub Worksheet_Change(ByVal Target As Range) '值变更时触发事件 'Dim s As Range, c$, r& Set s = ...