判断一个4位数是否有数字重复vba语句

例如，8890就是一个有数字重复的4位数

2025-04-07 11:39:06

推荐回答（1个）

回答1：

Function ShuZiChongFu(N) As Boolean
    If Len(N) <> 4 Then Exit Function
    Dim Reg
    Dim MS
    Set Reg = CreateObject("VBScript.RegExp")
    Reg.Pattern = "(\d)\1{1,}"
    ShuZiChongFu = Reg.Test(CStr(N))
    Set Reg = Nothing
End Function

调用方法

ShuZiChongFu（8090）

结果 False

ShuZiChongFu（8890）

结果true

ShuZiChongFu（88090）

结果 False