EXCEL高手请进，关于筛选的，有问题求救~~~~
1、筛选条件：A(X)X代表某个数字，单元格数值是15，并且往上两个单元格B(X-1）数值为0和B（X-2)数值为1同时满足这三种条件的，三行给筛选出来...
1、筛选条件： A(X) X代表某个数字，单元格数值是15，并且往上两个单元格B(X-1）数值为0 和 B（X-2) 数值为 1 同时满足这三种条件的，三行给筛选出来
展开
3个回答
展开全部
Sub 符合条件标记红色()
endrow = Range("A65536").End(xlUp).Row
For i = 1 To endrow
If Cells(i, 2) = 1 Then
If Cells(i + 1, 2) = 0 And Cells(i + 2, 1) = 15 Then
a = Cells(i, 2).Address(0, 0) & "," & Cells(i + 1, 2).Address(0, 0) & "," & Cells(i + 2, 1).Address(0, 0)
Range(a).EntireRow.Interior.ColorIndex = 3
End If
End If
Next
End Sub
endrow = Range("A65536").End(xlUp).Row
For i = 1 To endrow
If Cells(i, 2) = 1 Then
If Cells(i + 1, 2) = 0 And Cells(i + 2, 1) = 15 Then
a = Cells(i, 2).Address(0, 0) & "," & Cells(i + 1, 2).Address(0, 0) & "," & Cells(i + 2, 1).Address(0, 0)
Range(a).EntireRow.Interior.ColorIndex = 3
End If
End If
Next
End Sub
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
ZESTRON
2024-09-04 广告
表界面分析在材料科学及化学领域占据核心地位，它深入探索物质表面与界面的微观结构、化学组成及相互作用。通过电商平台射线光电子能谱（电商平台PS）、扫描电子显微镜（SEM）及原子力显微镜（AFM）等先进技术手段，我们Dr. O.K. Wack ...
点击进入详情页
本回答由ZESTRON提供
展开全部
用宏
sub chiefzjh()
dim i%
i=1
do while i<= [b65536].end(3).row
if cells(i,2).value=1 and cells(i+1,2)=0 and cells(i+3,1).value=15 then
rows(i).hidden=true:i=i+1
else
i=i+3
end if
loop
end sub
sub chiefzjh()
dim i%
i=1
do while i<= [b65536].end(3).row
if cells(i,2).value=1 and cells(i+1,2)=0 and cells(i+3,1).value=15 then
rows(i).hidden=true:i=i+1
else
i=i+3
end if
loop
end sub
更多追问追答
追问
具体怎么操作
追答
右击工作表标签，查看代码，把我的代码（第一行除外）贴过去，按一下F5运行就可以了
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
你可以通过辅助列来判断B(X-1)和B(X-2)，然后运用多级筛选来实现。
追问
具体怎么操作？
追答
你发给我一个样本，我给你示范一下。邮箱1046086753@qq.com
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（1）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
