Excel精英培训网

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

[已解决]请问老师多条件筛选的代码,如何写,谢谢!

[复制链接]
发表于 2014-3-23 23:48 | 显示全部楼层 |阅读模式
按附件中的部分多条件如何写代码,请老师帮忙写出代码,结果区域在t2:z38.谢谢老师了!
最佳答案
2014-3-24 13:58
如果筛选条件过多的话,用辅助列筛选,结果放在另一张表比较好

sx.rar

26.46 KB, 下载次数: 13

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
 楼主| 发表于 2014-3-24 13:04 | 显示全部楼层
有谁会吗?
重新做了说明。

sx.rar

27.3 KB, 下载次数: 3

回复

使用道具 举报

发表于 2014-3-24 13:55 | 显示全部楼层
  1. Sub Macro1()
  2. Dim arr, brr, i&, j%, n&, s&, s2&, s3&
  3. arr = Range("aj2").CurrentRegion
  4. brr = [i16:j18]
  5. n = 1
  6. For i = 2 To UBound(arr)
  7.     s = 0: s2 = 0: s3 = 0
  8.     For j = 1 To UBound(arr, 2)
  9.         If arr(i, j) Mod 2 = 1 Then s = s + 1
  10.         If arr(i, j) > 28 Then s2 = s2 + 1
  11.         s3 = s3 + arr(i, j)
  12.     Next
  13.     If s >= brr(1, 1) And s <= brr(1, 2) And s2 >= brr(2, 1) And s2 <= brr(2, 2) And s3 >= brr(3, 1) And s3 <= brr(3, 2) Then
  14.         n = n + 1: Cells(i, "aj").Resize(1, 7).Copy Cells(n, "t")
  15.     End If
  16. Next
  17. End Sub
复制代码

评分

参与人数 1 +1 收起 理由
zhu918918 + 1 很给力!

查看全部评分

回复

使用道具 举报

发表于 2014-3-24 13:58 | 显示全部楼层    本楼为最佳答案   
如果筛选条件过多的话,用辅助列筛选,结果放在另一张表比较好

2.zip

25.54 KB, 下载次数: 27

回复

使用道具 举报

 楼主| 发表于 2014-3-24 20:14 | 显示全部楼层
dsmch 发表于 2014-3-24 13:58
如果筛选条件过多的话,用辅助列筛选,结果放在另一张表比较好

dsmch老师的结果非常正确!谢谢dsmch老师!
回复

使用道具 举报

 楼主| 发表于 2014-3-25 02:25 | 显示全部楼层
dsmch 发表于 2014-3-24 13:58
如果筛选条件过多的话,用辅助列筛选,结果放在另一张表比较好

dsmch老师,我还有几个问题用不到,请见附件老师。谢谢dsmch老师指导!

2.rar

47.87 KB, 下载次数: 2

回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-28 21:48 , Processed in 0.335230 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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