Excel VBA之函数篇-3.15数据筛选无烦恼 多样组合来助力

前景提要

在日常的工作中,数据筛选是我们经常都需要面对的事情,excel在这方面提供的选择并不算是很多,最常见的筛选功能,只能选择指定的几种类型,比方说开头,或者等于等,在大数据时代,数据的来源更加的广泛,网络来源数据,手工报表数据,多方采集的人工填写数。。。。,数据也是多种多样,比方说我们之前举例过的不同的网上商城之间的订单号也是不尽相同,在数据分析的时候,我们面对这样的一大堆杂乱无章的数据肯定是非常的苦恼的,虽然我们知道最好的办法就是规范各种数据的来源,但是这明显很难,碰到数据很大的时候,不停的筛选还会导致死机,蓝屏,内存不足等情况出现,最最重要的是,有些时候普通的筛选菜单完全不能满足我们的筛选要求,想要的数据无从下手

这样的苦恼,相信大家经常都会碰到有的,那么既然VBA是office的官方支持的脚本语言,那么他在处理这类问题的时候,有没有独特的方法,能够帮助我们筛选出各种不同类型的数据组合,让我们在进行数据筛选和后续的分析中能够轻松一点呢?

函数说明

想要实现上述的功能,我们还是继续捡起我们之前学习过的like()函数,看来like()的功能真的是好多啊,好了,前面的复述我就略过了,今天直接进入重点,上代码!

上代码

假设我们现在需要根据下面的三种要求,分别找出数据这三个商城的订单,一方面我们后面进行汇总

image.png

这里我们来一个个的实现(为了后续筛选的方便,我们在查找要求的数据之后,我们将单元格的背景色标记为黄色,这样后续我们就可以直接筛选颜色来找到我们要的数据了。)

1.以A~D开头第2位是2的数量

Sub B9000b()

Dim i&

For i = 2 To 10

    If Cells(i, "g") Like "[A-D]2*" Then

        Cells(i, "g").Interior.Color = vbYellow

    End If

Next i

End Sub

放眼一看,满足我们要求的数据有。。。太难找了,直接运行代码

image.png

完美的找出来符合要求的数据。这里我们要留意第二个数据,因为我们的要求是大写的A-D,所以小写的就不在这个范围了,这点大家要注意,like()函数虽然说是模糊查找,但是在这个事情,他还是非常的认真的区分大小写的哦。

2.以A~D开头第2位是7-9的数量

Sub B9000b()

Dim i&

For i = 2 To 17

    If Cells(i, "g") Like "[A-D][7-9]*" Then

        Cells(i, "g").Interior.Color = vbYellow

    End If

Next i

End SuB

我们看下运行的结果

image.png

依然非常完美的找到了我们想要的数据。

3.第2位后全是数字的数量

这个要求似乎有点高级了,那么会很难实现吗?

Sub B9000b()

Dim i&

For i = 2 To 17

    If Cells(i, "g") Like "?#####" Then

        Cells(i, "g").Interior.Color = vbYellow

    End If

Next i

End Sub

不难,来看看效果

image.png

依然成功的找到了符合要求的参数了。

代码解析

细心的童鞋一定能够发现,小编在写代码的过程中也是不断的增加数据源的数据,没错啦,确实是这样的,因为构造这种数据源还是比较费脑子的,但是我们工作中各种奇怪的数据源又是非常出现的,所以为了能够体现效果,我就会每次调试的时候再增加一点数据源,这样效果会更好一点。

代码方面也是非常的简单,大家会发现我从头到尾只改动了一句话,就是

If Cells(i, "g") Like "[A-D]2*" Then

这句话,就是like()函数的使用方法,前面两个都比较的好理解,大家对这要求来理解下就好了。

这里我重点说下最后一个

第2位后全是数字的数量,看这个要求非常的奇怪,其实也不难,我们需要抓住两个重点,第2位,然后后面全部是数量,我们来分析,第二位,在like()函数中,有几个特殊的符号,代表的就是占位符,在前面我们学习起始符和包含于的时候都用到了这个,他就是霸位的那种人,不管你后面有什么要求,这个位置她先占了,他占在最前面,那就是代表了第一位,那么后面的#代表的就是数字,它不仅仅是占位符,同时还是数字的意思,既然第一位被霸占了,那就只能去第二位咯,后面有几个位置呢?5个位置,那就是5个数字,合起来就是第二位开始到后面都是数字的6个字符串的文本,这样大家能够理解吧。

©著作权归作者所有,转载或内容合作请联系作者
  • 序言:七十年代末,一起剥皮案震惊了整个滨河市,随后出现的几起案子,更是在滨河造成了极大的恐慌,老刑警刘岩,带你破解...
    沈念sama阅读 214,875评论 6 496
  • 序言:滨河连续发生了三起死亡事件,死亡现场离奇诡异,居然都是意外死亡,警方通过查阅死者的电脑和手机,发现死者居然都...
    沈念sama阅读 91,569评论 3 389
  • 文/潘晓璐 我一进店门,熙熙楼的掌柜王于贵愁眉苦脸地迎上来,“玉大人,你说我怎么就摊上这事。” “怎么了?”我有些...
    开封第一讲书人阅读 160,475评论 0 350
  • 文/不坏的土叔 我叫张陵,是天一观的道长。 经常有香客问我,道长,这世上最难降的妖魔是什么? 我笑而不...
    开封第一讲书人阅读 57,459评论 1 288
  • 正文 为了忘掉前任,我火速办了婚礼,结果婚礼上,老公的妹妹穿的比我还像新娘。我一直安慰自己,他们只是感情好,可当我...
    茶点故事阅读 66,537评论 6 386
  • 文/花漫 我一把揭开白布。 她就那样静静地躺着,像睡着了一般。 火红的嫁衣衬着肌肤如雪。 梳的纹丝不乱的头发上,一...
    开封第一讲书人阅读 50,563评论 1 293
  • 那天,我揣着相机与录音,去河边找鬼。 笑死,一个胖子当着我的面吹牛,可吹牛的内容都是我干的。 我是一名探鬼主播,决...
    沈念sama阅读 39,580评论 3 414
  • 文/苍兰香墨 我猛地睁开眼,长吁一口气:“原来是场噩梦啊……” “哼!你这毒妇竟也来了?” 一声冷哼从身侧响起,我...
    开封第一讲书人阅读 38,326评论 0 270
  • 序言:老挝万荣一对情侣失踪,失踪者是张志新(化名)和其女友刘颖,没想到半个月后,有当地人在树林里发现了一具尸体,经...
    沈念sama阅读 44,773评论 1 307
  • 正文 独居荒郊野岭守林人离奇死亡,尸身上长有42处带血的脓包…… 初始之章·张勋 以下内容为张勋视角 年9月15日...
    茶点故事阅读 37,086评论 2 330
  • 正文 我和宋清朗相恋三年,在试婚纱的时候发现自己被绿了。 大学时的朋友给我发了我未婚夫和他白月光在一起吃饭的照片。...
    茶点故事阅读 39,252评论 1 343
  • 序言:一个原本活蹦乱跳的男人离奇死亡,死状恐怖,灵堂内的尸体忽然破棺而出,到底是诈尸还是另有隐情,我是刑警宁泽,带...
    沈念sama阅读 34,921评论 5 338
  • 正文 年R本政府宣布,位于F岛的核电站,受9级特大地震影响,放射性物质发生泄漏。R本人自食恶果不足惜,却给世界环境...
    茶点故事阅读 40,566评论 3 322
  • 文/蒙蒙 一、第九天 我趴在偏房一处隐蔽的房顶上张望。 院中可真热闹,春花似锦、人声如沸。这庄子的主人今日做“春日...
    开封第一讲书人阅读 31,190评论 0 21
  • 文/苍兰香墨 我抬头看了看天上的太阳。三九已至,却和暖如春,着一层夹袄步出监牢的瞬间,已是汗流浃背。 一阵脚步声响...
    开封第一讲书人阅读 32,435评论 1 268
  • 我被黑心中介骗来泰国打工, 没想到刚下飞机就差点儿被人妖公主榨干…… 1. 我叫王不留,地道东北人。 一个月前我还...
    沈念sama阅读 47,129评论 2 366
  • 正文 我出身青楼,却偏偏与公主长得像,于是被迫代替她去往敌国和亲。 传闻我的和亲对象是个残疾皇子,可洞房花烛夜当晚...
    茶点故事阅读 44,125评论 2 352

推荐阅读更多精彩内容