如何从Excel中的字符串中提取十进制值？

在Excel中轻松从选定范围中提取十进制数字：

Kutools for Excels 提取文字

 实用程序可帮助您轻松地从指定范围中提取所有十进制值，如下面的演示所示。 

立即下载并试用！ (30-天自由行)

Sub GetNumber() Dim xSRg As Range Dim xDRg As Range Dim xPRg As Range Dim xSRgArea As Range Dim xRgVal As String Dim xAddress As String Dim I As Long Dim K As Long Dim KK As Long On Error Resume Next xAddress = Application.ActiveWindow.RangeSelection.Address Set xSRg = Application.InputBox("Please select range:", "KuTools For Excel", xAddress, , , , , 8) If xSRg Is Nothing Then Exit Sub Set xDRg = Application.InputBox("Select single cell:", "KuTools For Excel", , , , , , 8) If xDRg Is Nothing Then Exit Sub Set xDRg = xDRg(1) For I = 1 To xSRg.Areas.Count Set xSRgArea = xSRg.Areas.Item(I) For K = 1 To xSRgArea.Count xRgVal = xSRgArea(K).Value KK = xSRgArea(K).Row - xSRg.Row If IsNumeric(xRgVal) Then xDRg.Offset(KK) = xRgVal - VBA.Fix(xRgVal) End If Next Next End Sub

申请前 Kutools for Excel请 首先下载并安装.

  如果您想免费试用（30-day) 这个实用程序， 请点击下载，然后按照上述步骤进行操作。

最佳办公生产力工具

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