<ul id="siqks"></ul>

如何從Excel中的字符串中提取十進制值？

網友投稿 425 2025-04-02

如何從Excel中的字符串中提取十進制值？

本教程將告訴您如何僅從Excel中的字符串中提取十進制值。

在Excel中使用公式提取十進制值

在Excel中使用VBA提取十進制值
輕松提取十進制值 Kutools for Excel 在Excel中使用公式提取十進制值

有兩個公式可以幫助您從字符串中提取十進制值，并根據需要選擇其中一個。

與值的符號無關的公式：

選擇一個單元格并鍵入此公式 = ABS（A1-TRUNC（A1））（A1是要從中提取十進制值的單元格）到編輯欄，然后按輸入鍵。繼續選擇第一個結果單元格，向下拖動填充手柄以獲取所有結果。您可以看到十進制值僅提取而沒有符號，如下面的屏幕截圖所示。

反映值符號的公式：

選擇一個單元格并鍵入此公式 = A1-TRUNC（A1） （A1是要從中提取十進制值的單元格）到編輯欄，然后按輸入鍵。繼續選擇第一個結果單元格，然后向下拖動填充手柄以獲取所有結果。您可以看到十進制值以符號提取，如下圖所示。

在Excel中輕松從選定范圍中提取十進制數字：

Kutools for Excels 提取文字

實用程序可幫助您輕松地從指定范圍中提取所有十進制值，如下面的演示所示。

立即下載并試用！ (30-天自由行)

在Excel中使用VBA提取十進制值

有一個VBA只能從字符串中批量提取帶有符號的十進制值。

1。按 Alt + F11鍵 打開 Microsoft Visual Basic應用程序 窗口。

2.在彈出窗口中，單擊插頁 > 模塊，然后將以下VBA代碼粘貼到模塊中。

VBA：僅提取十進制值

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

Copy

3。按 F5 鍵來運行代碼。然后一個 Kutools for Excel 彈出對話框，請選擇僅從中提取十進制值的范圍，然后單擊 OK 按鈕。看截圖：

4.然后另一個 Kutools for Excel 彈出對話框，您需要選擇一個單元格來定位提取的十進制值。看截圖：

您只能看到指定數字的十進制值被提取并放置在特定范圍內，如下面的scrrenshot所示。

輕松提取十進制值 Kutools for Excel

如果您不喜歡公式和VBA方法，在這里我為您介紹一個方便的工具- Kutools for Excel。隨著它 提取文字 實用程序，您可以輕松地從Excel范圍中提取所有十進制值。

申請前 Kutools for Excel請 首先下載并安裝.