使用自定义筛选就可以了
步骤:
1
选择需要的列
2
设置好筛选
3
选择筛选中的自定义筛选
4
输入多个条件
这样就可以显示符合多个条件的数据了
开发工具——宏——编辑宏——输入代码如下——运行宏,结果筛选出A列数据中的大于5的数值,如图:
按ALT+F11,打开VBE编辑器,插入——模块,然后复制粘贴下面的代码,按F5键运行。
Sub 多个条件筛选()
Range("A2:C65536").ClearContents
Sheets("表一").Range("A1:G16").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("E1:F3"), CopyToRange:=Range("表二!A1:C1"), Unique:= _
False
End Sub
思路提示:可以将方法一介绍的高级筛选录制宏操作一遍,然后再适当修改代码得到。
其中:Sheets("表一").Range("A1:G16"):表示查找的范围。
CriteriaRange:=Range("E1:F3"):表示查询条件,包括字段名称。
CopyToRange:=Range("表二!A1:C1"):表示结果的保存范围,包括字段名称。
第一列是 日期 单位名称 联系内容
办法:在第二行,点开始选项中的“筛选”,第二行出现一个向下的“箭头标志”,
下一步:点B列的“箭头标志”,把需要的“公司3”的框前打勾,就会自动筛选出 所有公司3的内容
请参考
在你数据当前的左下角sheet 鼠标右键 点击最后一个 查看代码 把下面的代码复制到里面
使用的时候 03版是 菜单 工具----宏---宏---找到test的宏执行 即可
Sub test()
Application.ScreenUpdating = False
Dim rng As Range
Dim r1, i As Long
Dim findvalue As Range
r1 = ActiveSheet.Range("B65536").End(xlUp).Row
i = 1
For Each rng In ActiveSheet.Range("B1:B" r1)
Set findvalue = ActiveSheet.Columns(1).Find(what:=rng.Value)
If Not findvalue Is Nothing Then
Cells(i, 3).Value = rng.Value
i = i + 1
End If
Next
Application.ScreenUpdating = True
End Sub
本文地址: :,,。以上内容关于excel宏的筛选功能(excel宏导出筛选数据到文本)
今天面试了一位00后应届毕业女生,感觉真的和以前的90后求职者不一样,进来办公室就把包往桌子上一丢,用手挽了挽头发,轻松的说了句:“不好意思,来晚了,我们可以开始了。”我颇感诧异,这气势上就给人一种统治力和压迫感,高挑的身材,带着口罩,双眼化了妆,看起来颜值很高。 她把简历放在桌子上,用手拍了...
因为比较受到环境限制,所以小城市可落地的项目真的不是很多,你会发现,小城市,人流基本都聚集在学校附近,或者景区附近,或者儿童游乐场,这些地方,并且大多数的孩子是由爷爷奶奶来照顾的,所以消费能力基本比较有限制,所以能落地的,就会较少了。 看市场 前面我们有说到过,小城市,基本都是爷爷奶奶在照顾...
随着互联网的高速发展,企业网站建设早已成为企业运营的一种必要手段。企业拥有一个自己的官网是非常重要的,也是一个企业互联网战略的基础。任何一个企业都应该有一个属于自己的网站,这个网站 随着互联网的高速发展,企业网站建设早已成为企业运营的一种必要手段。企业拥有一个自己的官网是非常重要的,也是一个企业互...
想要成为淘宝店铺的商家,首先要做的就是拥有自己的淘宝店铺,这就需要进行店铺的注册,下面学得起课堂就详细的为大家介绍淘宝如何注册网店,淘宝注册网店的详细流程。1、淘宝账号申请还没有申 想要成为淘宝店铺的商家,首先要做的就是拥有自己的淘宝店铺,这就需要进行店铺的注册,下面学得起课堂就详细的为大家介绍淘...
对于很多考生和家长来说,选择专业一直是一个比较困难的事情,很多家长在报考志愿的时候,都会问专家,孩子学这个专业有没有前途。其实这是一个很笼统的问题,它包含了专业发展前景、对口行业的 对于很多考生和家长来说,选择专业一直是一个比较困难的事情,很多家长在报考志愿的时候,都会问专家,孩子学这个专业有没有...
“什么网络电话软件靠谱?”,很多有通话需求的都有这疑问,小编觉得现阶段打电话不再只追求便宜了,通话软件APP在打电话和通话的过程中首先要解决的是通话质量,电话必须要打得通,音质 “什么网络电话软件靠谱?”,很多有通话需求的都有这疑问,小编觉得现阶段打电话不再只追求便宜了,通话软件APP在打...
微信目前严打的就四个方面;频繁加人;外挂软件;用户投诉和违法信息。当然,还有非常严重的连坐效应。所以,养好自己的号,至关重要,今天先和大家说说加人方式和他的上限规则。通讯录导入加人 微信目前严打的就四个方面;频繁加人;外挂软件;用户投诉和违法信息。当然,还有非常严重的连坐效应。所以,养好自己的号,...
快手和抖音是现在发展的比较好的短视频平台,越来越多的商家们开始利用这些平台达到带货的目的,也有很多的达人愿意利用自己的名气来接广告获取佣金,快手直播带货平台怎么收费?一、快手直播带 快手和抖音是现在发展的比较好的短视频平台,越来越多的商家们开始利用这些平台达到带货的目的,也有很多的达人愿意利用自己...
每一个个人站长都具有相当大的执行力和爆发力,能够几天不睡觉,开发一套网站程序,构架一个大型的网站;更能够一夜之间让什么都没有的网站内容无数。这样的速度和执行力在公司是没有的,只有我 每一个个人站长都具有相当大的执行力和爆发力,能够几天不睡觉,开发一套网站程序,构架一个大型的网站;更能够一夜之间让什...
谁用谁火!1.每个帅哥都说我好看,我就开播了2.宝,假装着迷一下,可以吗?3.美女营业请查看。4.少爷,您的夫人正在直播5.我没有装,我只是厚着脸皮6.我,一个比奥利奥 谁用谁火! 1. 每个帅哥都说我好看,我就开播了 2. 宝,假装着迷一下,可以吗? 3. 美女营业请查看。 4. 少爷,...
做自媒体一天收入相当于我一年工资了,走,做自媒体去。也是从这两次事件开始,自媒体火了。可是,两年过去了,99%的自媒体人还在苦苦探索盈利模式。做自媒体,收这样高级别的广告费,除了文 做自媒体一天收入相当于我一年工资了,走,做自媒体去。也是从这两次事件开始,自媒体火了。可是,两年过去了,99%的自媒...
买奥迪A8的人基本都是老板级别的了,因为奥迪A8本身就不便宜,今年推出新款,也有很多营销出来。不过奥迪A8是属于比较低调的车型,同等价位的都会去买奔驰或者宝马了。买奥迪A8都是什么人奥迪A8的知名度不亚于奔驰S级,车子正 买奥迪A8的人基本都是老板级别的了,因为奥迪A8本身就不便宜,今年推出新款,...
五块钱的牛排肯定不是真的,超市比较便宜的牛排,或者网上卖的,都是属于合成牛排,这种是可以吃的,但肯定不是真牛排,吃起来的口感也不是很好,建议大家买原切牛排哦!五块钱的牛排是真的吗不是真的,很明显是合成牛排。就是牛身上的 五块钱的牛排肯定不是真的,超市比较便宜的牛排,或者网上卖的,都是属于合成牛排,...
嘴唇疱疹是病毒性感染,和自身免疫力低有关,是具有传染性的,当你将嘴唇疱疹戳破后,很容易感染到新的地方,其他人碰到也会被传染。那么,嘴唇疱疹能彻底治愈吗?一起来看看久久派带来的相信介绍吧!嘴唇疱疹会传染给别人吗唇疱疹会传染 嘴唇疱疹是病毒性感染,和自身免疫力低有关,是具有传染性的,当你将嘴唇疱疹戳破...
电解质水可以长期喝吗 电解质水是不是智商税? 各大电商平台爆发式销售,一瓶健身教练,社交平台策略笔记铺天盖地..电解质这一概念,早已风靡全网,相关产品的销量也随之上升。 根据2022年电解质饮料趋势报告,电解质饮料已成为饮用水轨道的新出风口,销量同比增长225%,超过能量饮料...