メインコンテンツへスキップ

Excelの単一のセルで数値を合計または加算する方法は？

多くの場合、1つのセルですべての数値を合計する必要があります。 たとえば、セルA2にテキスト文字列Class 1 Grade 1があり、これらの数値を加算した結果は2 + 3 = XNUMXになります。 この記事では、XNUMXつのセルに数値を追加する方法と詳細を説明します。

ユーザー定義関数を使用して単一セルの数値を合計する
数回クリックするだけで、XNUMXつのセルに数値を簡単に合計できます

ユーザー定義関数を使用して単一セルの数値を合計する

以下のユーザー定義関数を使用して、XNUMXつのセルの数値を合計できます。

1。 押す 他の + F11 キーを同時に開いて Microsoft VisualBasicアプリケーション 窓。

2。 の中に Microsoft VisualBasicアプリケーション ウィンドウ、クリック インセット > モジュール。 次に、以下のVBAをにコピーします。 モジュール 窓。

VBA：単一セルの数値の合計

Function SumNums(pWorkRng As Range, Optional xDelim As String = " ") As Double
	Dim arr As Variant
	Dim xIndex As Long
	arr = Split(pWorkRng, xDelim)
	For xIndex = LBound(arr) To UBound(arr) Step 1
		SumNums = SumNums + VBA.Val(arr(xIndex))
	Next
End Function

3.Press 他の + Q を閉じるためのキー Microsoft VisualBasicアプリケーション 窓。

4.空白のセルを選択して結果を出力します。 以下の式を入力して、 入力します キー（A2は、単一の数値を合計するセルです）。

=SUMNUMS(A2)

5.次に、結果セルの塗りつぶしハンドルをドラッグして、数式を他の必要なセルに適用します。

注意:：このユーザー定義関数は、数値形式のセルには適用されません。

数回クリックするだけで、XNUMXつのセルに数値を簡単に合計できます

Kutools for Excelさん セル内の数値の合計 数式は、数回クリックするだけで、単一のセル（テキスト形式のセルと数値形式のセルを含む）の数値を簡単に合計するのに役立ちます。

申請する前に Kutools for Excelについては 最初にダウンロードしてインストールします.

1.空白のセルを選択して、結果を出力します。 そして、 クツール > フォーミュラヘルパー > フォーミュラヘルパー.

2。 の中に フォーミュラヘルパー ダイアログボックスで、次のように構成してください。

2.1）検索して選択する セル内の数値の合計 セクションに 式を選択してください ボックス;
ヒント：確認できます フィルタ ボックスにキーワードを入力して、必要な数式をフィルタリングします。
2.2） セル ボックスで、合計する数値を含むセルを指定します。
2.3）をクリックします OK ボタン。 スクリーンショットを参照してください：

3.次に、選択したセルに結果が入力されます。 結果セルを選択し、その塗りつぶしハンドルを下にドラッグして、他の結果を取得します。

  無料トライアルをご希望の方は（30-day) このユーティリティの クリックしてダウンロードしてください、次に、上記の手順に従って操作を適用します。

単一のセル内の数値を簡単に合計するには Kutools for Excel

最高のオフィス生産性向上ツール

人気の機能: 重複を検索、強調表示、または識別する   |  空白行を削除する   |  データを失わずに列またはセルを結合する   |   数式なしのラウンド ...
スーパールックアップ: 複数の基準の VLookup  |   複数の値の VLookup  |   複数のシートにわたる VLookup   |   ファジールックアップ ....
詳細ドロップダウン リスト: ドロップダウンリストを素早く作成する   |  依存関係のドロップダウン リスト   |  複数選択のドロップダウンリスト ....
列マネージャー: 特定の数の列を追加する  |  列の移動  |  Toggle 非表示列の表示ステータス  |  範囲と列の比較 ...
注目の機能: グリッドフォーカス   |  デザインビュー   |   ビッグフォーミュラバー   |  ワークブックとシートマネージャー   |  リソースライブラリ (自動テキスト)   |  日付ピッカー   |  ワークシートを組み合わせる   |  セルの暗号化/復号化   |  リストごとにメールを送信する   |  スーパーフィルター   |   特殊フィルター (太字/斜体/取り消し線をフィルター...) ...
上位 15 のツールセット:  12 テキスト 工具 (テキストを追加, 文字を削除する、...）   |   50+ チャート 種類 (ガントチャート、...）   |   40+ 実用的 式 (誕生日に基づいて年齢を計算する、...）   |   19 挿入 工具 (QRコードを挿入, パスから画像を挿入、...）   |   12 変換 工具 (数字から言葉へ, 通貨の換算、...）   |   7 マージ＆スプリット 工具 (高度な結合行, 分割セル、...）   |   ... もっと

Excel スキルを強化する Kutools for Excel、そして今までにない効率を体験してください。 Kutools for Excel 生産性を向上させ、時間を節約するための 300 を超える高度な機能を提供します。  最も必要な機能を入手するにはここをクリックしてください...

kteタブ201905

Office Tab Office にタブ付きインターフェイスを導入し、作業を大幅に簡素化します

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
Comments (8)
No ratings yet. Be the first to rate!
Eric Hammond
Eric Hammond
This comment was minimized by the moderator on the site
The VBA function code works really well. Thank you. 
Reply
0
0
Migle
Migle
This comment was minimized by the moderator on the site
How do I add +1 digit to numbers in one cell (word or excell or notepad, doesn't matter). But at My work I often have: 14,17,28,31,35,38,50,53,70,73,80,83,90,93,120,123,135,138,150,153,165,168,180,183,210,213,250,253,275,278,300,303 something like that.

And I need to make them like: 15,18,29,32,36,39,51,54,71,74,81,84,91,94,121,124,136,139,151,154,166,169,181,184,211,214,251,254,276,279,301,304. I do it manually, but maybe there is a fast way to do it?
Reply
0
0
Louanne Zettler
Louanne Zettler
This comment was minimized by the moderator on the site
I have a list of numbers that I want to automatically add 30 to each number in each single cell. Is that possible?
Reply
0
0
Em
Em
This comment was minimized by the moderator on the site
You can also very easily just type "=" in the cell. So if you had a cell that was 3 but wanted to add 1+2 it would be "=1+2" in the cell
Reply
0
0
Dan
Dan
This comment was minimized by the moderator on the site
The problem with this tool is that it adds all the digits. The problem is 125 + 2 is not 127. The tool would add it as 1 + 2 + 5 + 2. Not sure how this is useful to someone that needs to add all the numbers. Even in the example it does not make sense or seem practical. Did I miss something?
Reply
0
0
Michael
Michael     Dan
This comment was minimized by the moderator on the site
Incorrect if the numbers are entered into the cell separately, for example 125 2 and the formula is entered into the next cell. The cell with the formula will calculate 127.
Reply
0
0
crystal
crystal     Michael
This comment was minimized by the moderator on the site
Hi Michael,
Sorry for the mistake. Please enter the following VBA code into the Module (Code) window, and then apply this formula: =SUMNUMS(A1,"") to sum all digits in a cell.

Function SumNums(pWorkRng As Range, Optional xDelim As String = " ") As Double
'Updated by ExtendOffice 20221122
    If pWorkRng.CountLarge > 0 Then Exit Function
    On Error Resume Next
    Application.Volatile
    
    Dim arr As Variant
    Dim xIndex As Long
    If xDelim <> "" Then
        arr = Split(pWorkRng, xDelim)
        For xIndex = LBound(arr) To UBound(arr) Step 1
            SumNums = SumNums + VBA.Val(arr(xIndex))
        Next
    Else
        For xIndex = 1 To Len(pWorkRng) Step 1
            If IsNumeric(Mid(pWorkRng, xIndex, 1)) Then
                SumNums = SumNums + VBA.Val(Mid(pWorkRng, xIndex, 1))
            End If
        Next
    End If
End Function
Reply
Report
0
0
Omar
Omar
This comment was minimized by the moderator on the site
THANKSSSSSS SOOO MUCH THE MODULE IDEA IS AMAZING ! I NEVER KNEW IT EXISTED
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations