首先,按下 Alt + F11
打开 Visual Basic for Applications (VBA) 编辑器,然后在左侧的项目资源管理器中,双击你的工作簿,然后选择插入 -> 模块,然后在新的代码窗口中粘贴以下代码:
Function ExtractNumbers(text As String) As String Dim regex As Object Dim matches As Object Dim i As Integer Set regex = CreateObject("VBScript.RegExp") regex.Global = True regex.IgnoreCase = True regex.Pattern = "\d+" Set matches = regex.Execute(text) For i = 0 To matches.Count - 1 ExtractNumbers = ExtractNumbers & matches(i) & " " Next i End Function
然后,在 Excel 中,你可以使用这个自定义函数来提取数字,并将它们用空格分隔开。例如,如果你的文字位于单元格 A1 中,你可以在另一个单元格中输入以下公式:
=ExtractNumbers(A1)
然后按 Enter 键,即可得到将数字提取并用空格分隔的结果。