Question

如何以公式的形式在EXCEL通过VBA宏实现数字字母分离

Answer 1

Alt+F11插入模块，复制粘贴以下代码。

Function RegExpTest(patrn, strng, Optional ByVal fgf As String = "")
  Dim regEx, Match, Matches
  Set regEx = CreateObject("vbScript.regexp")
  regEx.Pattern = patrn
  regEx.IgnoreCase = True
  regEx.Global = True
  
  Set Matches = regEx.Execute(strng)
  For Each Match In Matches
    RetStr = RetStr & fgf & Match
  Next
  RegExpTest = Mid(RetStr, Len(fgf) + 1)
End Function

如图，B1输入公式=RegExpTest("[a-zA-Z]",A1)，下拉公式。

C1输入公式=RegExpTest("\d",A1)，下拉公式。