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

著者Sun変更日2024-09-12

このチュートリアルでは、Excel で文字列から小数値だけを抽出する方法をご紹介します。

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

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

文字列から小数値を抽出できる数式が2 つ用意されています。必要に応じて、どちらかをお選びください。

値の符号に影響されない数式：

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

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

セルを選択し、次の数式を入力します。=A1-TRUNC(A1)（A1 は小数値を抽出したいセルです）を数式バーに入力し、Enterキーを押します。最初の結果セルを選択したまま、フィルハンドルを下にドラッグすると、すべての結果が一気に表示されます。以下のスクリーンショットのように、符号付きの小数値が正確に抽出されていることをご確認ください。

小数値を抽出し、値の符号を反映

Kutools for Excelのテキストの抽出ユーティリティを使えば、以下のデモのように、指定範囲からすべての小数値を簡単に抽出できます。
今すぐダウンロードしてお試しください！（30 日間無料トライアル）

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

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

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

2。表示されたウィンドウで、「挿入 > Module」をクリックし、次の 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」ボタンをクリックしてください。スクリーンショットをご覧ください。

データリストを選択するVBAコード

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

結果を出力するセルを選択するVBAコード

指定した数値の小数部分のみが抽出され、以下のスクリーンショットのように特定の範囲に配置されていることが確認できます。

小数値が抽出されました

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

数式や VBA がお好みでない方には、便利なツール「Kutools for Excel」をおすすめします！そのテキストの抽出機能を使えば、Excel の範囲からすべての小数値をかんたんに抽出できます。

Kutools for Excelは300 以上の高度な機能を提供し、複雑な作業を効率化して、創造性と生産性を高めます。AI 機能と統合されたKutools は、正確にタスクを自動化し、データ管理を簡単にします。Kutools for Excel の詳細情報。。。 無料トライアル。。。

1。小数値を抽出したい範囲を選択し、「Kutools > Text > テキストの抽出」をクリックしてください。スクリーンショットをご確認ください。

2。「テキストの抽出」ダイアログボックスで、テキストボックスに.*と入力し、「Add」ボタンをクリックしてください。その後、「OK」ボタンをクリックすると完了です。スクリーンショットをご確認ください。

ダイアログボックスでオプションを設定

3。もう一つのポップアップテキストの抽出ダイアログボックスで、結果を配置する空白セルを選択して、「OK」ボタンをクリックします。

結果を配置する空白セルを選択

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

選択範囲内のすべての小数値が抽出されました

このユーティリティの30 日間無料トライアルをご利用になりたい場合は、こちらをクリックしてダウンロードしてください。その後、上記の手順に従って操作を適用してください。

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

最高の Office 業務効率化ツール

🤖	KUTOOLS AI アシスタント：次に基づいてデータ分析を革新します：インテリジェント実行｜コード生成｜カスタム数式作成｜データ分析とチャート生成｜拡張機能呼び出し…
	人気の機能：検索・ハイライト、または重複をマーキング｜空白行を削除する｜データを失うことなく列の結合またはセルを｜数式を使用しない四捨五入...
	スーパー LOOKUP：複数条件 VLookup ｜複数値 VLookup ｜複数シート間 VLookup ｜ファジーマッチ....
	高度なドロップダウンリスト：ドロップダウンリストをすばやく作成｜連動型ドロップダウンリスト｜複数選択可能なドロップダウンリスト....
	列マネージャー：指定した数の列を追加｜列の移動｜非表示列の表示状態を切り替え｜範囲および列の比較...
	注目の機能：グリッドフォーカス｜デザインビュー｜強化された数式バー｜ワークブックとシートマネージャー｜リソースライブラリ（オートテキスト）｜日付ピッカー｜ワークシートの統合｜暗号化／セルの復号化｜リストからメール送信｜スーパーフィルター｜特殊フィルタ（太字のフォントを持つセルをフィルタリング／斜体／取り消し線。。。）。。。
	トップ15 ツールセット：12 テキストツール（テキストの追加、特定の文字を削除、...）｜ 50+チャートタイプ（ガントチャート、...）｜ 40+実用的関数（誕生日に基づいて年齢を計算します、...）｜ 19 挿入ツール（QR コードを挿入、パスから画像を挿入、...）｜ 12 変換ツール（単語に変換する、為替レートの変換、...）｜ 7 結合と分割ツール（高度な行のマージ、セルの分割、...）｜さらに多数

Kutools はお好みの言語でご利用いただけます。英語、スペイン語、ドイツ語、フランス語、中国語、および40+の他の言語をサポートしています！

Kutools for Excel でExcel スキルを強化し、これまでにない効率を体験しましょう。Kutools for Excel は、生産性を高め、時間を大幅に節約できる高度な機能を300 以上提供します。最も必要な機能を今すぐ入手するにはこちらをクリック。。。

Kutools for Excel の詳細はこちら。。。無料ダウンロード。。。

Office Tab は Office にタブインターフェースをもたらし、作業を大幅に簡単にします

Word、Excel、PowerPoint でタブを使った編集と閲覧を有効にします。Publisher、Access、Visio、Project でもご利用いただけます。
複数のドキュメントを、新しいウィンドウではなく、同じウィンドウ内の新しいタブで開いたり作成したりできます。
日々の生産性を50％も向上させ、毎日数百回ものマウスクリックを削減します！