如何从Excel中的文本字符串中提取最后一个数字？

Sub GetLastDigits() Updateby Extendoffice Dim xRg As Range Dim xCell As Range Dim xRegEx As Object Dim xRetList As Object Dim xAddress As String On Error Resume Next xAddress = ActiveWindow.RangeSelection.Address Set xRg = Application.InputBox("Please select the range:", "Kutools for Excel", xAddress, , , , , 8) If xRg Is Nothing Then Exit Sub If xRg.Columns.Count > 1 Then MsgBox "Only one column can be available", vbInformation, "Kutools for Excel" Exit Sub End If Set xRegEx = CreateObject("VBSCRIPT.REGEXP") With xRegEx .MultiLine = False .Global = True .IgnoreCase = True .Pattern = "(\d+)" End With For Each xCell In xRg Set xRetList = xRegEx.Execute(xCell.Value) If xRetList.Count > 0 Then If Left(xRetList(xRetList.Count - 1), 1) = 0 Then xCell.Offset(0, 1) = Right(xRetList(xRetList.Count - 1), Len(xRetList(xRetList.Count - 1)) - 1) Else xCell.Offset(0, 1) = xRetList(xRetList.Count - 1) End If End If Next End Sub

最佳办公生产力工具

在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。 每天将您的工作效率提高50％，并减少数百次鼠标单击！