Excel VBA AutoFilter 多字段筛选_用vba实现任意列包含字符的高级筛选

已于 2024-05-10 07:49:30 修改
阅读量992 收藏 8
点赞数 20
分类专栏： 程序员 文章标签： excel 服务器 数据库
于 2024-05-10 07:49:28 首次发布
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.youkuaiyun.com/2401_83621634/article/details/138645091
版权

先自我介绍一下，小编浙江大学毕业，去过华为、字节跳动等大厂，目前在阿里

深知大多数程序员，想要提升技能，往往是自己摸索成长，但自己不成体系的自学效果低效又漫长，而且极易碰到天花板技术停滞不前！

因此收集整理了一份《2024年最新Linux运维全套学习资料》，初衷也很简单，就是希望能够帮助到想自学提升又不知道该从何学起的朋友。
img
img
img
img
img

既有适合小白学习的零基础资料，也有适合3年以上经验的小伙伴深入学习提升的进阶课程，涵盖了95%以上运维知识点，真正体系化！

由于文件比较多，这里只是将部分目录截图出来，全套包含大厂面经、学习笔记、源码讲义、实战项目、大纲路线、讲解视频，并且后续会持续更新

需要这份系统化的资料的朋友，可以点击这里获取！

注意，以上参数都是可选参数。

下面给出两个实例：
Case 1.筛选指定区域里的参数结果：

'选择啤酒字段的所有值
Worksheets("Data").range("A2:C1000
最低0.47元/天 解锁文章
Excel VBA AutoFilter 多字段筛选_用vba实现任意列包含字符的高级筛选(3)
2401_83621634的博客
05-10 1597
(Field：=2,Criteria1：=Array(“啤酒”，“面包”，“香肠”),Operator：=xlFilterValues）(Field：=2,Criteria1：=Array(“啤酒”，“面包”，“香肠”),Operator：=xlFilterValues）(Field：=2,Criteria1：=“猪排”,Operator：=xlOr，Criteria2：=“蛋糕”）(Field：=2,Criteria1：=“啤酒”，Operator：=xlFilterValues）
Excel VBA AutoFilter 多字段筛选
m0_62872215的博客
10-24 1万+
Excel VBA中使用Autofilter方法进行多个字段的筛选
VBA多条件筛选，单列多条件，多列条件
weixin_46610533的博客
08-04 3115
在Range区域内，对Field列进行筛选，条件为后面的内容。
VBA数据筛选（多列数值条件_每列条件都有一个数值区间）.xlsm
03-01
VBA数据筛选（多列数值条件_每列条件都有一个数值区间）.xlsm VBA拆分工作表
Excel VBA AutoFilter 多字段筛选_用vba实现任意列包含字符的高级筛选(1)
2401_84411822的博客
04-28 1051
这段代码和Case 1最大不同就是筛选范围是动态的，即A列和C列包含数据的区域，需要注意的是，range(“A1”,[C1].end(xldown))来表示活动区域时，如果运行的工作表不止一个，需要写成range(“A1”,sheets(“Data”).[C1].end(xldown)).假定所有字段分别为“啤酒”，“面包”，“香肠”，“牛排”，“蛋糕”，“猪排”，需要筛选除“猪排”外所有字段，与此类似，如果反选有“猪排”和“蛋糕”两个字段，Criteria2参数加上即可，如下述。理想很丰满，现实很骨感。
vba autofilter 筛选
weixin_38640809的博客
08-26 5585
国外网站介绍VBA autofilter 很不错 https://trumpexcel.com/vba-autofilter/#Example-Multiple-Criteria-With-Different-Columns 说实话国外的网站对于VBA的资料相对于国内来说内容更丰富更具有实用性。当然是Bing搜索引擎与百度引擎相比较。 1 显示所有数据，不隐藏数据 (仅在Autofilte...
excel vba筛选
muyuruo
02-10 1万+
excel 中有两个筛选 1、筛选，vba 代码为 set rg=range("a1:a100") rg.AutoFilter Field:=1, Criteria1:="内容" rg 为筛选区域， Criteria1为筛选的值，比如在A1列内筛选内容为北京区的 ，则 Criteria1="北京区" 2、高级筛选  Rg.AdvancedFilter Action:=xlFilte
VBA多条件筛选
01-18
Visual Basic for Applications（VBA）是Visual Basic的一种宏语言，是微软开发出来在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。
VBA多列数据筛选输出提取表.txt
03-02
VBA多列数据筛选输出提取 数组形式，几十万数据可以快速处理完成 代码简洁
EXCEL自动筛选源代码程序
11-28
该程序提供了EXCEL的自动查找功能，对成千上万条不同的数据标签进行自动对应
利用VBA自动筛选示例
05-12
这是一个利用VBA自动筛选的实例 附有数据库及全套代码
Excel VBA 多条件筛选及汇总统计
jfmyes的博客
04-22 2万+
在日常工作中，面对Excel表格数据，为了分类进行统计，通过对表格数据筛选获取分类条目，再按条目实行汇总统计。要完成上面的工作，有人工操作和开发程序两种方法，本文通过一个实例，详细介绍这两种方法。
Excel对单列/多列数据筛选和高级筛选
热门推荐
2401_85876101的博客
07-24 6万+
本文介绍了Excel中的各种筛选操作，包括单列数据筛选、多列数据同时筛选和高级筛选（多个条件满足不必同时满足，可实现更复杂的筛选）。
陈表达VBA笔记-Excel VBA 编程-在表格做自动筛选的功能
陈表达的博客
06-01 1777
Excel VBA 编程，在表格做自动筛选的功能下面的例子是自动筛选85列的内容，筛选内容为处方
Excel·VBA多条件筛选组合结果
hhhhh_51的博客
12-02 4187
对于一组数据按照一定数量进行组合，按照既定条件筛选符合的结果。专门的函数判断True/False便于条件4指定不定数量的筛选条件时，不用修改代码就可运行，但也必然导致代码运行速度下降，因而固定条件的筛选不必如此使用函数。中的上下限为最终结果的组合元素个数，但在代码中会转换为“非必选名称”的组合元素个数的上下限。中，“必选名称”每个组合结果必须有，因此仅对“非必选名称”进行组合；对于一组数据按照一定数量进行组合，按照既定条件筛选符合的结果。判断组合对应的某几列的中位数是否符合既定条件，单独定义。
Excel VBA 根据筛选条件自动汇总统计（for 铁虎）
liuxiang860927的专栏
09-02 9102
Sub st1()     Dim r&, i&     Dim arr, brr     Dim x, y, z, t, k     Set d = CreateObject("scripting.dictionary")     Set d2 = CreateObject("scripting.dictionary")     Set s = CreateObject("scrip
VBA多条件筛选求和
最新发布
01-15
### 使用 VBA 实现多条件筛选并求和 为了实现在 Excel 中基于多个条件进行筛选并对特定列中的数值求和，在 VBA 中可以采用 `AutoFilter` 方法结合 `Subtotal` 函数来完成这一操作。下面是一个具体的例子，展示如何针对给定范围内的数据执行此功能。 假设有一个工作表包含销售记录，其中 A 列为地区名称，B 列为客户类别，C 列为产品线，D 列则存储销售额度。目标是从这些数据中找出属于某个地区的某类客户购买某一类产品所花费的总金额。 #### 定义变量与初始化设置 首先定义必要的变量，并设定要处理的工作表对象以及待过滤的数据区域： ```vba Dim ws As Worksheet Set ws = ThisWorkbook.Sheets("Sheet1") ' 将 "Sheet1" 替换为目标表格名 ``` 接着指明需要应用筛选器的具体单元格区间： ```vba With ws.Range("A1:D10") .AutoFilter Field:=1, Criteria1:="华北区", Operator:=xlAnd _ ,Field:=2, Criteria1:="VIP" End With ``` 上述代码片段设置了两个字段上的筛选标准——即第 1 字段 (A 列) 的值应等于 “华北区”，而第 2 字段 (B 列) 应匹配字符串 “VIP”。注意这里使用了 `Operator:=xlAnd` 参数表示这两个条件之间存在逻辑 AND 关系[^1]。 #### 执行子总计计算 一旦完成了初步筛选之后，则可以通过调用 `SubTotal` 来获取满足以上所有约束条件下 D 列内各条目之累加结果： ```vba Dim sumResult As Double sumResult = Application.WorksheetFunction.Subtotal(9, ws.Range("D2:D10")) MsgBox ("符合条件的总额：" & sumResult) ``` 此处函数参数 `9` 对应于 SUM 操作符；因此这段程序会返回由当前视图可见范围内第四列表项组成的数组经过求和运算后的最终值得到的结果。 通过这种方式即可轻松实现对复杂业务场景下的数据分析需求，同时保持良好的可读性和维护性。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值