excel表格单个单元格中0和1如何互相替换

希望将输入excel表格中的单个单元格的0和1互换,也就是说输入0变成1,输入1变成0,仅对该单元格有效,另外不是仅仅把0显示成1,而是变成1.

按ctrl+F,弹出查找替换的对话框,如先要把输入的0变成1,先输入查找内容0,然后替换输入1,后面有个格式,点击格式选中填充,随便选个背景色,如下图:这样替换了之后变成的单元格就会填充下颜色,可辨别稍后将原来的1要替换成0.

 

然后再将原来单元格没有标颜色的数字1替换成0.

 希望可以帮到你!

温馨提示:答案为网友推荐,仅供参考
第1个回答  2014-01-23

看你的要求,这需要宏命令才能解决问题:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub                   '判断选定单元格是否只有一个
    If Not Target.Address = "$A$1" Then Exit Sub        '判断是否为指定单元格
    If Target = "" Then Exit Sub                        '判断单元格内容是否为空
    Application.EnableEvents = False                    '关闭事件触发(防止循环触发)
    If Target = 0 Then
        Target = 1
    Else
        Target = 0
    End If
    Application.EnableEvents = True
End Sub

需要设置哪个单元格就在第三行哪里改就行了,这段程序写的是A1单元格。

每次编辑指定单元格过后自动修改,输入1变0,输入0变1

第2个回答  推荐于2016-07-02
是值等于1或0,还是包含?
等于的话按alt+F11把下面的代码粘到所属工作表里,仅对A1单元格有效。

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a1]) Is Nothing Or Len([a1]) = 0 Then Exit Sub
Application.EnableEvents = False
If [a1] = 0 Then
[a1] = 1
ElseIf [a1] = 1 Then
[a1] = 0
End If
Application.EnableEvents = True
End Sub本回答被提问者和网友采纳
第3个回答  2014-01-23
先Ctrl+F,把0替换成其它,比如2,
再把1替换成0,
然后再把2替换成1
第4个回答  推荐于2016-02-21

方法如下:

1.按快捷键CTRL+F,选择把0换位2,再把1换为0,再把2换为1,如图所示:

相似回答