右击工作表标签>查看代码>粘贴下面代码即可在截图所示区域实现. Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Application.EnableEvents = False With Target .Offset(.Column - .Row, .Row - .Column) = 1 - .Value End With Application.EnableEvents = True End Sub