VBA通配符,看这一篇就够了!

1.通配符的分类:

1.星号(*):表示任意多个字符(可以为0个)
2.问号(?):表示任意一个字符(必须为1个)
3.井号(#):表示任意一个数字(必须为1个)
4.感叹号(!):逻辑非,表示不是,如[!0-9]表示非数字
5.方括号([]):表示一个范围,如[A-Z a-z]表示全部字母

2.通配符的使用:

在VBA中,使用LIKE指示后面的搜索模式是利用通配符而不是直接相等匹配进行比较。

1)星号(*)的使用

1.找出以"VBA"开头的记录:(包括记录"VBA")

sub test()
dim i as integer
for i =1 to 100
if range("a" & i) like "VBA*" then
range("a" & i) .interior.color=65535
endif
next
end sub

2)问号(?)的使用

2.找出以"V"开头,7个字符、第5位是“B”的记录。

Sub test()
Dim i As Integer
For i = 1 To 100
If Range("a" & i) Like "V???B??" Then
Range("a" & i).Interior.Color = 65535
End If
Next
End Sub

3)方括号[]的使用

3.找出第一位以"A-H"开头的记录。

Sub test()
Dim i As Integer
For i = 1 To 100
If Range("a" & i) Like "[A-H]*" Then
Range("a" & i).Interior.Color = 65535
End If
Next
End Sub

4)井号(#)的使用

4.找出前两位以数字开头,8个字符的记录。

Sub test()
Dim i As Integer
For i = 1 To 100
If Range("a" & i) Like "##??????" Then
Range("a" & i).Interior.Color = 65535
End If
Next
End Sub

5)逻辑非(!)的使用

5.找出第一位以数字开头 第三位不是数字的记录。

Sub test()
Dim i As Integer
For i = 1 To 100
If Range("a" & i) Like "#?[!0-9]*" Then
Range("a" & i).Interior.Color = 65535
End If
Next
End Sub
最后编辑于
©著作权归作者所有,转载或内容合作请联系作者
平台声明:文章内容(如有图片或视频亦包括在内)由作者上传并发布,文章内容仅代表作者本人观点,简书系信息发布平台,仅提供信息存储服务。

推荐阅读更多精彩内容

  • 1.1 VBA是什么 直到90年代早期,使应用程序自动化还是充满挑战性的领域.对每个需要自动化的应用程序,人们不得...
    浮浮尘尘阅读 22,004评论 6 49
  • 官网 中文版本 好的网站 Content-type: text/htmlBASH Section: User ...
    不排版阅读 9,945评论 0 5
  • 引子 思路:看到两个序列去匹配的问题,最自然的想法是双层循环尝试对齐匹配,我们假设表格数字为1代表匹配成功,0代表...
    闫品品阅读 4,925评论 1 1
  • 人真的是一种很奇妙的生物,有时候可能一种你并不是很需要的东西时时刻刻在你面前的时候,你不会感觉到你对他的需...
    唐宋一元明清阅读 1,436评论 0 1
  • 到了某个年纪,爱情不再是生活的必须,而只是一个调味品。 昨天我的朋友很悲伤地说,“我要去相亲了,我已经无路可走了。...
    芦苇_2019阅读 1,560评论 0 3