使用自定义筛选就可以了
步骤:
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宏导出筛选数据到文本)
1 红烧肉,最解馋的一道菜。制作方法不复杂,其制作的关键点是烧炖的时间。没有一个多小时的烧炖,就烧不出软糯的口感。现在正是桂花盛开的时候,摘一把桂花放入肉中烧炖,别有一番滋味。 原料:五花肉750克,广东菜心200克,桂花适量,冰糖40克,草菇老抽1勺,蒸鱼豉油1勺,蚝油适量,香叶2片,桂皮1块,...
如果只看、大V、直播红人的造假行为,只能看到简单的操作,比如刷阅读量,刷点赞,直播通过机器或者水军制造假观众。深层次上,我们需要从数据造假黑产业的技术内核出发,回溯产业链的各个环节,才能透过表面看到数据造假给行业带来多大的影响和破坏力。 数据造假不仅发生在网红经济,也肆虐于游戏、、互联网金融等...
今天面试了一位00后应届毕业女生,感觉真的和以前的90后求职者不一样,进来办公室就把包往桌子上一丢,用手挽了挽头发,轻松的说了句:“不好意思,来晚了,我们可以开始了。”我颇感诧异,这气势上就给人一种统治力和压迫感,高挑的身材,带着口罩,双眼化了妆,看起来颜值很高。 她把简历放在桌子上,用手拍了...
相信大家都很熟悉平台盈利的逻辑。基本上开通了创作者身份后就可以发表作品了,有了播放量就有收益了。不过,这部分钱也不是那么容易拿到的。对于新手来说,最不可控的就是根本不知道自己发哪种视频,播放量才会高,所以很多新手做自媒体,基本上不到7天就放弃了。 那么有没有什么活动只要发布视频就能赚到钱的? 答...
跟前几年比,现在的钱是真的难赚。对普通人来说,有哪些比较靠谱的创业机会?投入最低的,当然也是零成本的,是去蜂鸟众包或者美团做骑手,如果还有点钱,可以做网约车司机。如果钱再多一点,很多人都会选择做加盟,自己当老板,给自己打工。前两年很多人都选择加盟奶茶店或者某些连锁餐饮小店,很不巧,赶上了疫情...
USBclean for Mac是一款纯绿色的辅助杀毒工具,USBCleaner具有侦测1000余种U 盘病毒,U 盘病毒广谱扫描,U 盘病毒免疫,修复显示隐藏文件及系统文件,安全卸载移动盘盘符等功能,一体化修复杀除 U 盘病毒。同时USBCleaner 能迅速对新出现的U 盘病毒进行处理。...
讲真,如果说你安装监控的地方没有WiFi,没有无线网络,有想要远程查看实时视频,这种情况下有没有符合条件的摄像头呢?不要怀疑,这种还真的有。毕竟在科技高度发展的今天,上太空的飞船都造出来,还造不出这种物联网技术运用的无线传输设备吗?所以,今天速名网要说到的话题就是在没有网络的情况下,我们可以...
不思议迷宫第五期挑战迷宫怎么完成,下面就给大家分享一下挑战迷宫攻略。 第五期挑战迷宫开始了,这一期的挑战迷需要通关混沌深渊后方可开启,新迷宫以冒险者之森为原型,本次挑战最少需要打两次挑战迷宫即可完成。除了不使用灵魂链接达到80层一项外,都可以在1次内完成。 第一次用王昭君...
至于为什么加盟骗局加盟骗局这么说?这和加盟的大环境有很大的关系。加盟是由公司先创立实体店,进行营销,达到招商时限后。由公司发布广告吸引加盟商,加盟商考察招商公司后,和招商公司签署加 至于为什么加盟骗局加盟骗局这么说?这和加盟的大环境有很大的关系。加盟是由公司先创立实体店,进行营销,达到招商时限后。...
快手和抖音是现在发展的比较好的短视频平台,越来越多的商家们开始利用这些平台达到带货的目的,也有很多的达人愿意利用自己的名气来接广告获取佣金,快手直播带货平台怎么收费?一、快手直播带 快手和抖音是现在发展的比较好的短视频平台,越来越多的商家们开始利用这些平台达到带货的目的,也有很多的达人愿意利用自己...
最近美国大选轰轰烈烈,新闻里总有白宫幕僚这个词出现,随着所追捧的候选人胜者为王,大选期间作为幕僚参与竞选团队的人也能够得到白宫里的一席之地,那么幕僚这个职位在中国古代又是什么发展路 最近美国大选轰轰烈烈,新闻里总有白宫幕僚这个词出现,随着所追捧的候选人胜者为王,大选期间作为幕僚参与竞选团队的人也能...
看到有人将用了5年的AppleWatch一代转出去,还值三百块钱。这是几年前的产品,而且苹果公司每年都推出换代新品,到现在竟然还能值几百块钱。你觉得AppleWatch保值吗? 看到有人将用了5年的Apple Watch一代转出去,还值三百块钱。这是几年前的产品,而且苹果公司每年都推出换代新品,到...
转眼一个月又过去了,2022年已经过去一半。按照惯例,今天芝麻科技讯更新一下手机CPU天梯图。本月芯片厂商发布的新处理器不多,所以文章相对简单一些,手机CPU天梯图2022年6月最新版来了,快来看看都有哪些新变 转眼一个月又过去了,2022 年已经过去一半。按照惯例,今天芝麻科技讯更新一下手机CP...
堂弟在美国生活了将近20年了,是平时很少回来,前一阵子突然回到国内还有些不适应,习惯了花美元的他冷不丁的用上了人民币,我就向他打听了一下人民币和美元的差别。体现在购买力上的话,通常美国那边称重是按照每磅来算的,我们拿猪肉 堂弟在美国生活了将近20年了,是平时很少回来,前一阵子突然回到国内还有些不适...
扫墓立碑是作为小辈必做的事情之一,这不眼见着就要寒衣节了了,由于很多地方都有立碑这一说到,所以关于立碑墓碑上刻什么图案好一直是大家讨论的焦点,下面小编就和大家一起看看。墓碑上刻什么图案好这要看地方的讲究。墓地是相当有气运 扫墓立碑是作为小辈必做的事情之一,这不眼见着就要寒衣节了了,由于很多地方都有...