[已解决]or与and间的疑惑

yjwdjfqb

苏子龙 发表于 2016-12-19 08:33
自己想要做什么都不明确，猜测你要的是b列等于车间 和c列等于加工不删除，其他都删除，可以是if not(arr(i, ...

老师你好

的是b列等于车间 和c列等于加工不删除，其他都删除，可以是if not(arr(i,2)="车间" and arr(i,3)="加工") then

现在想行列，用cells(i,"b")的方法怎么表示呀，
Cells(i, "b").Value = "车间" And Cells(i, "c").Value = "加工" Then
请老师帮忙修改下这一句实现（b列等于车间 和c列等于加工不删除，其他都删除）

yjwdjfqb

望帝春心 发表于 2016-12-19 09:35
看你这句“并且关系的话，应该是and才对，但背不过反正了，这儿为什么是or”就懵圈了

就是自己没有搞明白

望帝春心

yjwdjfqb 发表于 2016-12-19 09:34
老师你好，就

是b列等于车间 和c列等于加工不删除，其他都删除

如果是这样，改成三楼那句也行

望帝春心

用CELLS也一样啊，在原来的基础上随便改的

1. Sub test()
   
2.     Dim i&
   
3.     Application.ScreenUpdating = False
   
4.     For i = Cells(1, "b").End(4).Row To 2 Step -1
   
5.         If Cells(i, "b") <> "车间" Or Cells(i, "c") <> "加工" Then   '删除，同时满足，B列不等于“车间”且C列不等于“加工”，以外的其它行
   
6.             Rows(i).Delete
   
7.         End If
   
8.     Next
   
9.     Application.ScreenUpdating = True
   
10. End Sub

复制代码

望帝春心

yjwdjfqb 发表于 2016-12-19 09:37
老师你好

的是b列等于车间 和c列等于加工不删除，其他都删除，可以是if not(arr(i,2)="车间" and arr( ...

具体问题具体分析，不用掌握那么多方法，能解决问题就好了，一切方法都解决问题的工具，工具不是目的，解决问题才是目的

yjwdjfqb

望帝春心 发表于 2016-12-19 09:41
用CELLS也一样啊，在原来的基础上随便改的

谢谢老师了！
这个附件本来是已经实现了功能的
当b列等于“车间”且c列等于“加工”不删除，其他都删除
我搞不明白的就是，并且要用and，或者要用or
但这个是并且关系，为什么要用or
还是得感谢老师！
附件.rar (5.63 KB, 下载次数: 3)

2016-12-19 10:12 上传

点击文件名下载附件

苏子龙

Sub test()
    Dim i&
    Application.ScreenUpdating = False
    For i = Cells(1, "b").End(4).Row To 2 Step -1
        If not(Cells(i, "b") = "车间" and Cells(i, "c") = "加工" )Then   '删除，同时满足，B列不等于“车间”且C列不等于“加工”，以外的其它行
            Rows(i).Delete
        End If
    Next
    Application.ScreenUpdating = True
End Sub
逻辑关系我上面已经说的很清楚了！自己再想想啊

望帝春心

yjwdjfqb 发表于 2016-12-19 10:12
谢谢老师了！
这个附件本来是已经实现了功能的
当b列等于“车间”且c列等于“加工”不删除，其他都删除 ...

因为你用的是不等于啊，两个要同时等于才保留，那么只要其中一个不等于就删除，所以就用OR啊

yjwdjfqb

望帝春心 发表于 2016-12-19 10:36
因为你用的是不等于啊，两个要同时等于才保留，那么只要其中一个不等于就删除，所以就用OR啊

唉呀，老师这句话，终于搞明白了，非常感谢！

望帝春心

yjwdjfqb 发表于 2016-12-19 10:57
唉呀，老师这句话，终于搞明白了，非常感谢！

哈哈，明白了就好