如何在Excel中的單個單元格中求和或相加數字？

在許多情況下，您可能需要對單個單元格中的所有數字求和。例如，在單元格A1中有一個文本字符串Class 2 Grade 1，這些數字相加的結果為1 + 2 = 3。本文將詳細介紹在單個單元格中添加數字的方法。

具有用戶定義功能的單個單元格中的總數
 只需單擊幾下即可輕鬆將單個單元格中的數字相加

具有用戶定義功能的單個單元格中的總數

您可以使用以下用戶定義的函數對單個單元格中的數字求和。

1。按其他 + F11 同時打開 Microsoft Visual Basic應用程序 窗口。

2。在裡面 Microsoft Visual Basic應用程序 窗口中，單擊插入 > 模塊。然後將下面的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 Visual Basic應用程序 窗口。

4.選擇一個空白單元格以輸出結果。在其中輸入以下公式，然後按 Enter 鍵（A2是您將對單個數字求和的單元格）。

=SUMNUMS(A2)

5.然後拖動結果單元格的“填充手柄”以將公式應用於其他所需的單元格。

備註：此用戶定義的功能不適用於數字格式的單元格。

只需單擊幾下即可輕鬆將單個單元格中的數字相加

Excel的Kutools“ 單元格中的總和 只需單擊幾下鼠標，公式即可幫助輕鬆地對單個單元格（包括文本格式的單元格和數字格式的單元格）中的數字求和。

申請前 Excel的Kutools請 首先下載並安裝.

1.選擇一個空白單元格以輸出結果。然後點擊 庫工具 > 公式助手 > 公式助手.

2。在裡面 公式助手 對話框，請進行以下配置。

2.1）查找並選擇 單元格中的總和 在 選擇一個公式 框;
保養竅門：您可以檢查篩選框中，鍵入關鍵字以過濾所需的公式。

2.2）在細胞框，指定一個單元格，其中包含您將求和的數字；

2.3）點擊 OK 按鈕。看截圖：

3.然後將結果填充到選定的單元格中。選擇結果單元格，然後向下拖動其“填充手柄”以獲取其他結果。

如果您想免費試用（30-day) 這個實用程序， 請點擊下載，然後按照上述步驟進行操作。

使用Kutools for Excel輕鬆在單個單元格中求和

最佳辦公效率工具

Kutools for Excel 解決了你的大部分問題，並將你的生產力提高了 80%

重用: 快速插入 複雜的公式，圖表 以及您以前使用過的任何東西；加密單元帶密碼創建郵件列表並發送電子郵件...
超級公式欄（輕鬆編輯多行文本和公式）；閱讀版式（輕鬆讀取和編輯大量單元格）；粘貼到過濾範圍...
合併單元格/行/列不會丟失數據；拆分單元格內容；合併重複的行/列...防止細胞重複；比較範圍...
選擇重複或唯一行; 選擇空白行（所有單元格都是空的）；超級查找和模糊查找在許多工作簿中；隨機選擇...
確切的副本多個單元格，無需更改公式參考；自動創建參考到多張紙；插入項目符號，複選框等...
提取文字，添加文本，按位置刪除，刪除空間; 創建和打印分頁小計；在單元格內容和註釋之間轉換...
超級濾鏡（將過濾方案保存並應用於其他工作表）；高級排序按月/週/日，頻率及更多；特殊過濾器用粗體，斜體...
結合工作簿和工作表; 根據關鍵列合併表；將數據分割成多個工作表; 批量轉換xls，xlsx和PDF...
超過 300 項強大的功能. 支持 Office / Excel 2007-2021 和 365。支持所有語言。在您的企業或組織中輕鬆部署。完整功能 30 天免費試用。 60 天退款保證。

閱讀更多... 免費下載... 採購...

Office選項卡為Office帶來了選項卡式界面，使您的工作更加輕鬆

在Word，Excel，PowerPoint中啟用選項卡式編輯和閱讀，發布者，Access，Visio和Project。
在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
將您的工作效率提高 50%，每天為您減少數百次鼠標點擊！

閱讀更多... 免費下載... 採購...

留言 (8)

還沒有評分。成為第一位評論！

Conner

大約6年前

#18397

網站主持人對此評論進行了最小化

非常感謝這個模塊的想法太棒了！我從不知道它的存在

擔

大約5年前

#20430

網站主持人對此評論進行了最小化

這個工具的問題是它添加了所有的數字。問題是 125 + 2 不是 127。該工具會將其添加為 1 + 2 + 5 + 2。不確定這對需要添加所有數字的人有何用處。即使在示例中，它也沒有意義或看起來不實用。我錯過了什麼？

邁克爾· 擔

大約3個月前

#40977

網站主持人對此評論進行了最小化

如果將數字單獨輸入到單元格中，則不正確，例如 125 2 並且將公式輸入到下一個單元格中。帶有公式的單元格將計算 127。

水晶邁克爾·

大約2個月前

#41369

網站主持人對此評論進行了最小化

嗨邁克爾，
抱歉弄錯了。請在模塊（代碼）窗口中輸入以下 VBA 代碼，然後應用此公式： =SUMNUMS(A1,"") 對單元格中的所有數字求和。

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

大約5年前

#23398

網站主持人對此評論進行了最小化

您也可以很容易地在單元格中鍵入“=”。因此，如果您有一個單元格為 3 但想要添加 1+2，則單元格中將是“=1+2”

洛安·澤特勒

大約3年前

#30458

網站主持人對此評論進行了最小化

我有一個數字列表，我想自動將 30 添加到每個單元格中的每個數字。那可能嗎？

米格爾

大約3年前

#30584

網站主持人對此評論進行了最小化

如何在一個單元格中為數字添加 +1 位（單詞或 Excel 或記事本，沒關係）。但在我的工作中，我經常有：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 之類的。

我需要讓它們像：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。我手動完成，但也許有一種快速的方法可以做到這一點？

埃里克·哈蒙德

大約 1 年前

#36938

網站主持人對此評論進行了最小化

VBA 函數代碼運行良好。謝謝你。

這裡還沒有評論

請用英文發表您的意見

以訪客身份發帖

登入

名稱（必填）

電子郵件（必填）

評價此帖子：

重設

0 字符

我同意附帶條約