请教怎么用正则提取字符串中字母前面(不含字母)的字符串

tender888

字母前面字符为除英文字母外的所有字符，包括数字、汉字、点、括号等所有字符

请教怎么用正则提取字符串中字母前面(不含字母)的字符串
112～115号KJ12→返回：112～115号

103#-ZA12‘→返回：103#-
及提取字符串中首字母开始后面(含字母)的字符串
112～115号KJ12→返回：KJ12

103#-ZA12‘→返回：ZA12‘

cidanji

(.+?)([A-Z]+.+)

tender888

cidanji 发表于 2023-12-22 21:35
(.+?)([A-Z]+.+)

谢谢！怎么我试了不行？

limonet

关键字：￥

limonet

Sub limonet()
    Dim i%
    With CreateObject("vbscript.regexp")
        .Pattern = "(.*?)([A-Z].*)"
        For i = 1 To 3
            Cells(i, 2).Resize(1, 2) = Split(.Replace(Cells(i, 1), "$1￥$2"), "￥")
        Next i
    End With
End Sub

cidanji

tender888 发表于 2023-12-22 21:47
谢谢！怎么我试了不行？

可能用法你不会，详见4楼

tender888

limonet 发表于 2023-12-22 22:12
关键字：￥

非常感谢兄弟！

tender888

cidanji 发表于 2023-12-22 22:20
可能用法你不会，详见4楼

非常感谢兄弟！

伊可赛二

tender888

伊可赛二 发表于 2023-12-23 07:48

非常感谢！