.Text = "[0-9a-zA-Z\-\*?%&/~\+#]@\@*.com".Replacement.Text = "【邮箱地址】".Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = False.MatchAllWordForms = False.MatchSoundsLike = False.MatchWildcards = TrueEnd WithSelection....
Dim mc As Match reg.Pattern = "[\u4E00-\u9FA50-9A-Za-z]+" Dim row As Integer row = 1 If reg.test(Content) Then Debug.Print reg.Execute(Content)(0).Value '输出张三 End If 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 【例2】匹配所有满足条件的内容 Sub test() Worksheets("s...
With Selection.Find .Text = "[0-9a-zA-Z\-\*?%&/~\+#_]@\@*([!^2-^8^15-^122])" .Replacement.Text = "【邮箱地址】\1" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchAllWordForms = False .Match...
If temp Like "[一-龥]" Then '截取前26个半角字符 If length + 2 > 26 Then Exit For Else length = length + 2 tmpExp = tmpExp & temp End If '判断是否是英文、数字、英文半角句号和空格 ElseIf temp Like "[0-9a-zA-Z. ]" Then '截取前26个半角字符 If length + 1 > 26 Then Exit ...
nCharacter_LengthAsLongSetnText_Range=Intersect(Range("B4:B11"),ActiveSheet.UsedRange)ForEachmnRInnText_RangeIfmnR.Value<>""ThenmnS=Replace(mnR.text,"-","")nCharacter_Length=Len(mnS)FormnI=1TonCharacter_LengthIfNotMid(mnS,mnI,1)Like"[0-9a-zA-Z ]"ThenmnR.Interior.Color=vbGreenEndIfNext...
= c.Value MyStr = ""If s <> "" Then For x = 1 To Len(s)t = Mid(s, x, 1)If t Like "[0-9a-zA-Z.]" Then MyStr = MyStr & t Else MyStr = MyStr & Chr(13) & Chr(10) & Mid(s, x)c.Value = MyStr Exit For End If Next x End If Next End Sub 公...
Case 3 s = "\D" '取数字 Case 4 s = "[^a-zA-Z]" '取字母 Case 5 s = "[\u4e00-\u9fa50-9a-zA-Z]" '取符号 End Select .Pattern = s Cells(i, j) = .Replace(Cells(i, 1), "") Next j End With Next End Sub
.Pattern = "[^0-9A-Za-z一-龥]"qczf = .Replace(A, "")End With End Function 取一串字符串中的数字 Sub RegTest()Dim oRegExp As Object Dim oMatches As Object Dim sText As String sText = "柴塘河节制闸3300×4960平面钢闸门AAA9999BBB888"Set oRegExp = CreateObject("...
[a-z] 匹配任何小写字母。 [A-Z] 匹配任何大写字母。 [0-9] 匹配任何数字。 例如: vba. If str Like "[A-Za-z]pple" Then. ' 匹配任何一个字母后面跟着"pple"的字符串。 End If. 3. 使用"!"来排除特定字符: "[!a-z]" 匹配任何不是小写字母的字符。 例如: vba. If str Like "p[!a-z...
regex.Pattern ="^[0-9A-Za-z]+[0-9A-Za-z]$"regex.Global=TrueSetMatchSet = regex.Execute(string1)IfMatchSet.Count >0ThenisDightOrLetter =TrueElseisDightOrLetter =FalseEndIfEndIfEndFunctionFunctiongetAllMails()DimoutlookItemAsObject'Dim outlookMail As MailItem'Dim outlookFldr As Folder'Dim ...