ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
数据管理利器Foxtable2022下载 Excel 2016函数公式学习大典 Office知识技巧免费学 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 Power Query数据清洗实战攻略 ExcelHome出品 - VBA代码宝免费下载
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 Excel VBA经典代码实践指南
查看: 66|回复: 5

[求助] 根据多个筛选范围来筛选出数据

[复制链接]

TA的精华主题

TA的得分主题

发表于 2021-10-14 09:13 | 显示全部楼层 |阅读模式
P列Q列R列S列 前两行分别做范围,分别做对应A-D列的筛选条件而且能在sheet2对应列得到各自范围条件的数据,有一个老师让我修改下代码,但是我失败了,请各位老师帮我下

数据1111.zip

23.15 KB, 下载次数: 3

TA的精华主题

TA的得分主题

发表于 2021-10-14 10:13 | 显示全部楼层
  1. Sub test()
  2.   Dim r%, i%
  3.   Dim arr, brr
  4.   With Worksheets("sheet1")
  5.     arr = .Range("a1").CurrentRegion
  6.     brr = .Range("p1").CurrentRegion
  7.     ReDim crr(1 To UBound(arr), 1 To UBound(arr, 2))
  8.     For j = 1 To UBound(arr, 2)
  9.       m = 0
  10.       For i = 1 To UBound(arr)
  11.         If arr(i, j) >= brr(1, j) And arr(i, j) <= brr(2, j) Then
  12.           m = m + 1
  13.           crr(m, j) = arr(i, j)
  14.         End If
  15.       Next
  16.     Next
  17.   End With
  18.   With Worksheets("sheet2")
  19.     .Cells.Clear
  20.     .Range("a1").Resize(UBound(crr), UBound(crr, 2)) = crr
  21.   End With
  22. End Sub
复制代码

TA的精华主题

TA的得分主题

发表于 2021-10-14 10:14 | 显示全部楼层
猜测着做的。

数据1111.rar

25.24 KB, 下载次数: 14

TA的精华主题

TA的得分主题

发表于 2021-10-14 10:17 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2021-10-14 12:28 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2021-10-14 12:29 | 显示全部楼层
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关注官方微信,每天学会一个新技能

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2021-10-25 05:59 , Processed in 0.066624 second(s), 14 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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