Private Sub CommandButton1_Click()
s = Range("J2")
Set regex = CreateObject("vbscript.regexp")
With regex
.Global = True
.Pattern = "\d+"
' .Pattern = "[\u4e00-\u9fa5]+"
For Each te In .Execute(s)
txt = txt & te
Next
End With
Range("l2") = txt
txt=""
End Sub