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

分类: 完美体育365 发布时间: 2025-11-18 20:19:50 作者: admin

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

上一篇: 超全!古巴哈伯纳斯雪茄品牌汇总 下一篇: 吃掉牲畜被转移,吃掉人就安乐死

相关文章

华为手机中的Mate、P、nova等到底是什么意思?现在终于明白了!

华为手机中的Mate、P、nova等到底是什么意思?现在终于明白了!

《蜀门》大家常用商城物品之物价换算

《蜀门》大家常用商城物品之物价换算

足球经理(FM):如何搭配和决定单后腰与双后腰的策略分析(上篇)

足球经理(FM):如何搭配和决定单后腰与双后腰的策略分析(上篇)

蘋果花(薔薇科植物):形態特徵,生長環境,分布範圍,起源地,主要價值,沖泡方式,注

蘋果花(薔薇科植物):形態特徵,生長環境,分布範圍,起源地,主要價值,沖泡方式,注

汉语词典> 昵狎

汉语词典> 昵狎

红字装备性价比分析,红字书用在关键部位

红字装备性价比分析,红字书用在关键部位