Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 3258|回复: 19

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

[复制链接]
发表于 2016-12-18 20:19 | 显示全部楼层 |阅读模式
or与and间的疑惑

Sub test()
    Dim arr, i&
    arr = ActiveSheet.Range("A1").CurrentRegion
    Application.ScreenUpdating = False
    For i = UBound(arr) To 2 Step -1
        If arr(i, 2) <> "车间" Or arr(i, 3) <> "加工" Then    '删除,同时满足,B列不等于“车间”且C列不等于“加工”,以外的其它行
            Rows(i).Delete
        End If
    Next
    Application.ScreenUpdating = True
End Sub

目的是: '删除,同时满足,B列不等于“车间”且C列不等于“加工”,以外的其它行

并且关系的话,应该是and才对,但背不过反正了,这儿为什么是or
If arr(i, 2) <> "车间" Or arr(i, 3) <> "加工" Then
请老师们指点下,谢谢老师们了,这一句有没有其它的表示方法。
VBA满足多条件时,执行.rar (7.04 KB, 下载次数: 6)
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2016-12-18 20:40 | 显示全部楼层
本帖最后由 望帝春心 于 2016-12-18 21:41 编辑

手机看的,怎么越看越晕呢
回复

使用道具 举报

发表于 2016-12-18 20:44 | 显示全部楼层
本帖最后由 望帝春心 于 2016-12-19 09:18 编辑

If arr(i, 2) & arr(i, 3) <> "车间加工" Then  
回复

使用道具 举报

发表于 2016-12-19 08:33 | 显示全部楼层
本帖最后由 苏子龙 于 2016-12-19 08:49 编辑

自己想要做什么都不明确,猜测你要的是b列等于车间 和c列等于加工不删除,其他都删除,可以是if not(arr(i,2)="车间" and arr(i,3)="加工") then
而你现在用的是<>,和 or 相当于二个同为false,才不满足,就删除,也就是当b列等于车间 和c列等于加工同时存在时不满足。是否有点绕晕!a*b=非(非a+非b)或者 非(a*b)=非a+非b

评分

参与人数 1 +12 收起 理由
yjwdjfqb + 12 很给力

查看全部评分

回复

使用道具 举报

发表于 2016-12-19 08:53 | 显示全部楼层
1*1=1,
非(0+0)=非(0)=1;
或者
非(1*1)=非(1)=0,
0+0=0
是个逻辑运算关系
回复

使用道具 举报

发表于 2016-12-19 09:11 | 显示全部楼层
“删除,同时满足,B列不等于“车间”且C列不等于“加工”,以外的其它行”那就是要保留B列等于车间,C列等于加工的行了?如果是那样就得用AND,如果要保留B列是车间或C列是加工的行,就要用OR
回复

使用道具 举报

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

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

对,就是这样的老师。
回复

使用道具 举报

 楼主| 发表于 2016-12-19 09:34 | 显示全部楼层
望帝春心 发表于 2016-12-19 09:11
“删除,同时满足,B列不等于“车间”且C列不等于“加工”,以外的其它行”那就是要保留B列等于车间,C列等 ...

老师你好,就

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

我表述的不清楚
回复

使用道具 举报

发表于 2016-12-19 09:35 | 显示全部楼层
yjwdjfqb 发表于 2016-12-19 09:34
老师你好,就

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

那样就该和AND才对
回复

使用道具 举报

发表于 2016-12-19 09:35 | 显示全部楼层
看你这句“并且关系的话,应该是and才对,但背不过反正了,这儿为什么是or”就懵圈了
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 08:38 , Processed in 0.586200 second(s), 15 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表