Private Sub Worksheet_SelectionChange(ByVal Target As Range)'点击AG列单元格自动打√
If Target.Row < 5 Or Target.Row > 24 Then End
If Target.Column <> 33 Then End
Dim r As Range
For Each r In Target
If r.Value <> "√" Then
r.Value = "√"
Else
r.Value = ""
End If
Next
End Sub