Excelで文字列から小数値を抽出するにはどうすればよいですか？

このチュートリアルでは、Excelの文字列から小数値のみを抽出する方法について説明します。

Excelで数式を使用して小数値を抽出する
ExcelでVBAを使用して小数値を抽出する
Kutools for Excelで簡単に小数値を抽出する

Excelで数式を使用して小数値を抽出する

文字列から小数値を抽出するのに役立つ2つの数式があります。必要に応じてどちらかを選んでください。

値の符号に関係なく動作する数式：

セルを選択し、この数式 =ABS(A1-TRUNC(A1))（A1は小数値を抽出したいセル）を数式バーに入力し、 Enterキーを押します。最初の結果セルを選択したまま、フィルハンドルを下にドラッグしてすべての結果を取得します。以下のように、符号なしで小数値が抽出されたことが確認できます。

値の符号を反映する数式：

セルを選択し、この数式 =A1-TRUNC(A1)（A1は小数値を抽出したいセル）を数式バーに入力し、Enterキーを押します。最初の結果セルを選択したまま、フィルハンドルを下にドラッグしてすべての結果を取得します。以下のように、符号付きで小数値が抽出されたことが確認できます。

ExcelでVBAを使用して小数値を抽出する

文字列から符号付きで一括して小数値を抽出できるVBAがあります。

1. Alt + F11 を押して Microsoft Visual Basic for Applications ウィンドウを開きます。

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

3. F5キーを押してコードを実行します。すると Kutools for Excel ダイアログボックスが表示されるので、小数値を抽出したい範囲を選択し、OKボタンをクリックします。スクリーンショットをご覧ください：

4. さらに別の Kutools for Excel ダイアログボックスが表示されます。抽出された小数値を配置するセルを選択してください。スクリーンショットをご覧ください：

指定された数値の小数部分のみが抽出され、特定の範囲に配置されました。以下のスクリーンショットをご覧ください。

Kutools for Excelで簡単に小数値を抽出する

数式やVBAの方法が気に入らない場合、ここでは便利なツールである Kutools for Excel をご紹介します。Extract Text ユーティリティを使用すると、Excelの範囲からすべての小数値を簡単に抽出できます。

1. 抽出したい小数値を持つ範囲を選択し、Kutools > テキスト > テキストの抽出 をクリックします。スクリーンショットをご覧ください：

2. テキストの抽出 ダイアログボックスで、 .* をテキストボックスに入力し、追加ボタンをクリックします。最後にOKボタンをクリックします。スクリーンショットをご覧ください：

3. 別の テキストの抽出 ダイアログボックスが表示されたら、結果を配置する空白セルを選択し、OKボタンをクリックします。

選択した範囲内のすべての小数値がすぐに抽出されます。スクリーンショットをご覧ください：

関連記事：

• Excelで時間または時刻のみを抽出する