百度360必应搜狗淘宝本站头条
vba高级教程svn连接scheduledtaskmybatis plus结构体数组
当前位置：网站首页 > 编程网 > 正文

VBA|多条件自动筛选、高级筛选提取唯一值

yuyutoo 2024-10-20 13:05 8 浏览 0 评论

数据在Excel表中的筛选，也就是根据定义的条件将需要的数据记录从数据清单中选择出来，同时Excel表只显示你选择的这一部分数据，而不是全部，主要是用来对数据进行整理和分析或数据的提取的。数据筛选相当于数据库中的“查询”(Select)命令(通过子命令Where定义条件)。(Excel中定义的数据筛选源区域也就是数据清单，是有数据库中的表的概念的，表头相当于字段，表头下的每一行就是记录。)

Excel中的数据筛选都需要定义筛选的条件，根据构造条件的方式不同分为自动筛选和高级筛选。自动筛选是通过对话框来构造单一条件，操作比较直观简单便捷。高级筛选是通过数据筛选源数据以外的单元格区域自定义条件，可以定义多个，比较适应多条件、复杂条件的情形。

Excel中的筛选，可以通过工作表选项卡区中的命令直接完成，也可以通过VBA代码完成。（其实也就是将整个筛选操作的过程录制成宏，再适当修改代码。）

1 多条件自动筛选

Sub Filter_MoreCriteria()

Dim Crit As Variant

Application.ScreenUpdating = False

With Worksheets(1)

If .FilterMode = True Then .ShowAllData

.Range("A1").AutoFilter Field:=1, Criteria1:="1243301", Operator:=xlOr, Criteria2:="1288178"

.Range("B1").AutoFilter Field:=2, Criteria1:="ORA"

End With

Application.ScreenUpdating = True

End Sub

2 高级筛选提取唯一值

Sub 高级筛选提取唯一值()

Dim X As Integer

Columns(13).Clear

X = Range("A" & Cells.Rows.Count).End(xlUp).Row

Range("A1:A" & X).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("M1"), Unique:=True

End Sub

3 代码要点

使用AutoFilter或AdvancedFilter方法完成自动筛选或高级筛选：

工作簿.单元格对象.AutoFilter ...

工作簿.单元格对象.AdvancedFilter ...

以上代码完成的如下命令的功能：

数据→筛选…

数据→高级筛选...

(如果不熟悉相关VBA代码，可以通过“录制宏”的方式先录得代码，再适当改动即可。

4 筛选的工作表选项卡区图标命令操作

4.1 自定义筛选

对某列定义筛选条件实现筛选；

4.2 高级筛选

4.2.1 建立条件区域（与需要筛选的数据清单分开）；

4.2.2 可以将筛选结果复制到其它区域；

4.2.3 指定需要筛选的列表区域；

4.2.4 指定条件区域；

相关推荐

苹果要求全新App开发四月起必须支持“齐刘海”

今日消息，苹果公司通过邮件告知应用程序开发者，从2018年4月起提交给AppStore的所有新应用必须支持iPhoneX的超级视网膜显示器。这意味着新应用程序的开发者必须确保它们适应“齐刘海”，并...

耗时一年多，QEMU开发者成功在电脑上模拟了初版iPhone OS

IT之家12月24日消息，用户通过黑苹果（Hackintosh）工具，已经可以在非Mac设备上运行macOS系统。但由于种种限制，至今也没有多少人能够在PC上运行iOS系统。现...

下个月的WWDC后，苹果将发布原生Watch SDK测试版本

在近日Re/code举办的CodeConference上，苹果的运营副总裁JeffWilliams称，目前有4000多个AppleWatch应用上线，而未来的苹果表开发者套件，将允许开发者直接获...

苹果再次提醒:4月起强制要求APP进行适配

点击右上角关注我们，每天给您带来最新最潮的科技资讯，让您足不出户也知道科技圈大事！软件适配对于许多厂商来说都是一个比较头疼的事，苹果在握紧AppStore审核权的情况下情况要好许多。最近他们公布了...

苹果Xcode 16首个Beta版发布，AI代码补全最少需16GB内存

IT之家6月12日消息，在苹果WWDC24开发者大会上，苹果发布了iOS18、macOS15Sequoia等最新版本系统更新。与此同时，苹果推出了Xcode16开发工具的首...

传苹果已向特定开发者开放iWatch SDK

|责编：薄志强苹果会不会在这次发布会中发布全新的智能手表产品iWatch还很难说，不少人认为由于iWatch的消息少之又少，很可能这次还是没有iWatch。不过现在又有外媒传出消息称，苹果已经选定了...

苹果发布Swift 6语言:引入新测试框架、增强C++ 互操作性

IT之家9月20日消息，科技媒体devclass昨日（9月19日）报道，苹果公司在发布iOS/iPadOS18和macOS15Sequoia系统之外，还发布了Sw...

发布Siri SDK 之前苹果还是先想想这个问题

今年的GoogleI/O大会上，在预览GoogleHome时，我们就看到了设备可以互相对话的场景是多么惊艳，苹果快点跟上吧。最近因为亚马逊Echo和谷歌GoogleHome的火热...

iOS 17.2 SDK代码确认古尔曼爆料:免开箱更新苹果iPhone系统

IT之家10月27日消息，彭博社的马克古尔曼（MarkGurman）本月早些时候发布报道，称苹果正在研发新的系统，可以让员工在不拆开包装的情况下，升级iPhone的iOS系统。根据国...

《企业应用架构模式》之事件驱动架构

事件驱动架构(Event-DrivenArchitecture,EDA)是一种强调事件流和异步通信的应用程序架构。在该架构中，应用程序被分解为多个小型、可独立部署的组件，这些组件通过事件进行通信...

k8s中常用的controller以及用途和对应机制

controller的用途ReplicaSet、Deployment、StatefulSet：用于无状态和有状态应用的副本管理。DaemonSet：确保每个节点上都运行一个副本的控制器。...

Disruptor框架源码阅读-如何不重复消费

RingBuffer如何保证数据不丢失由于ringbuffer是一个环形的队列，那么生产者和消费者在遍历这个队列的时候，如何制衡呢？1、生产快，消费慢，数据丢失？生产者速度过快，导致一个对象还没消...

C# 控制电脑睡眠，休眠，关机以及唤醒

最近碰到一个关于芯片测试过程中的问题，这颗芯片是用在笔记本端口上，笔记本客户那边会有一个压力测试，就是频繁的电脑电源状态切换，S0(正常使用的开机状态),S3（睡眠模式）,S4（休眠模式）以及S5（关...

大厂防止超卖的7种实现，很受用!（大厂防止超卖的7种实现,很受用的产品）

高并发场景在现场的日常工作中很常见，特别是在互联网公司中，这篇文章就来通过秒杀商品来模拟高并发的场景。本文环境：...

臻识车牌识别配制MQTT通讯，解析车号

在物联网项目中，我们的软件与车牌识别通讯，通常使用MQTT通讯更简单。...

取消回复欢迎 你 发表评论:

一周热门
最近发表
标签列表