提供VBA代码，获得指定单元格内的数字，去掉其他字符

可以使用VBA中的正则表达式来提取指定单元格内的数字，并去掉其他字符。以下是一个示例函数，该函数将返回单元格中所有数字的字符串：

Function ExtractNumbers(CellText As String) As String
    Dim regEx As Object
    Set regEx = CreateObject("VBScript.RegExp")
    
    ' 正则表达式模式，匹配所有数字
    regEx.Pattern = "\D+"
    regEx.Global = True
    
    ' 替换掉所有非数字字符
    ExtractNumbers = Replace(CellText, regEx.Execute(CellText), "")
End Function

您可以将此函数复制到Excel的VBA编辑器中的模块里。使用时，在单元格中输入=ExtractNumbers(A1)，其中A1是包含混合字符的单元格，函数将返回A1单元格中所有数字组成的字符串。61