前景提要
在日常的工作中,数据筛选是我们经常都需要面对的事情,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个字符串的文本,这样大家能够理解吧。
网友评论