ไปยังเนื้อหาหลัก

วิธีการรวมหรือเพิ่มตัวเลขในเซลล์เดียวใน Excel

ในหลาย ๆ กรณีคุณอาจต้องรวมตัวเลขทั้งหมดไว้ในเซลล์เดียว ตัวอย่างเช่นมีสตริงข้อความ Class 1 Grade 2 ในเซลล์ A1 และผลลัพธ์ของการเพิ่มตัวเลขเหล่านี้คือ 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 กดปุ่ม อื่น ๆ + Q ปุ่มเพื่อปิดไฟล์ แอปพลิเคชัน Microsoft Visual Basic หน้าต่าง

4. เลือกเซลล์ว่างเพื่อส่งออกผลลัพธ์ ใส่สูตรด้านล่างลงไปแล้วกด เข้าสู่ คีย์ (A2 คือเซลล์ที่คุณจะรวมเลขตัวเดียว)

=SUMNUMS(A2)

5. จากนั้นลาก Fill Handle ของเซลล์ผลลัพธ์เพื่อใช้สูตรกับเซลล์อื่น ๆ ที่ต้องการ

หมายเหตุ: ฟังก์ชันที่ผู้ใช้กำหนดเองนี้ใช้ไม่ได้กับเซลล์ในรูปแบบตัวเลข

รวมตัวเลขในเซลล์เดียวได้อย่างง่ายดายด้วยการคลิกเพียงไม่กี่ครั้ง

Kutools สำหรับ Excel's รวมตัวเลขในเซลล์ สูตรสามารถช่วยในการรวมตัวเลขในเซลล์เดียวได้อย่างง่ายดาย (รวมถึงเซลล์รูปแบบข้อความและเซลล์รูปแบบตัวเลข) ด้วยการคลิกหลาย ๆ ครั้งเท่านั้น

ก่อนที่จะใช้ Kutools สำหรับ Excelโปรด ดาวน์โหลดและติดตั้งในตอนแรก.

1. เลือกเซลล์ว่างเพื่อส่งออก resut จากนั้นคลิก Kutools > ตัวช่วยสูตร > ตัวช่วยสูตร.

2 ใน ตัวช่วยสูตร โปรดกำหนดค่าดังต่อไปนี้

2.1) ค้นหาและเลือก รวมตัวเลขในเซลล์ ใน เลือกสูตร กล่อง;
เคล็ดลับ: คุณสามารถตรวจสอบไฟล์ ตัวกรอง พิมพ์คำสำคัญเพื่อกรองสูตรที่คุณต้องการ
2.2) ใน เซลล์ กล่องระบุเซลล์ที่มีตัวเลขที่คุณจะรวม;
2.3) คลิกปุ่ม OK ปุ่ม. ดูภาพหน้าจอ:

3. จากนั้นผลลัพธ์จะถูกเติมในเซลล์ที่เลือก เลือกเซลล์ผลลัพธ์จากนั้นลาก Fill Handle ลงเพื่อรับผลลัพธ์อื่น ๆ

  หากคุณต้องการทดลองใช้ยูทิลิตีนี้ฟรี (30 วัน) กรุณาคลิกเพื่อดาวน์โหลดแล้วไปใช้การดำเนินการตามขั้นตอนข้างต้น

รวมตัวเลขในเซลล์เดียวได้อย่างง่ายดายด้วย Kutools for Excel

สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

🤖 Kutools AI ผู้ช่วย: ปฏิวัติการวิเคราะห์ข้อมูลโดยยึดตาม: การดำเนินการที่ชาญฉลาด   |  สร้างรหัส  |  สร้างสูตรที่กำหนดเอง  |  วิเคราะห์ข้อมูลและสร้างแผนภูมิ  |  เรียกใช้ฟังก์ชัน Kutools...
คุณสมบัติยอดนิยม: ค้นหา เน้น หรือระบุรายการที่ซ้ำกัน   |  ลบแถวว่าง   |  รวมคอลัมน์หรือเซลล์โดยไม่สูญเสียข้อมูล   |   รอบโดยไม่มีสูตร ...
การค้นหาขั้นสูง: VLookup หลายเกณฑ์  |   VLookup หลายค่า  |   VLookup ข้ามหลายแผ่น   |   การค้นหาที่ไม่ชัดเจน ....
รายการแบบเลื่อนลงขั้นสูง: สร้างรายการแบบหล่นลงอย่างรวดเร็ว   |  รายการแบบหล่นลงขึ้นอยู่กับ   |  เลือกหลายรายการแบบหล่นลง ....
ผู้จัดการคอลัมน์: เพิ่มจำนวนคอลัมน์เฉพาะ  |  ย้ายคอลัมน์  |  สลับสถานะการมองเห็นของคอลัมน์ที่ซ่อนอยู่  |  เปรียบเทียบช่วงและคอลัมน์ ...
คุณสมบัติเด่น: กริดโฟกัส   |  มุมมองการออกแบบ   |   บาร์สูตรใหญ่   |  สมุดงานและตัวจัดการชีต   |  ห้องสมุดทรัพยากร (ข้อความอัตโนมัติ)   |  เลือกวันที่   |  รวมแผ่นงาน   |  เข้ารหัส/ถอดรหัสเซลล์   |  ส่งอีเมลตามรายการ   |  ซุปเปอร์ฟิลเตอร์   |   ตัวกรองพิเศษ (กรองตัวหนา/ตัวเอียง/ขีดทับ...) ...
ชุดเครื่องมือ 15 อันดับแรก:  12 ข้อความ เครื่องมือ (เพิ่มข้อความ, ลบอักขระ, ... )   |   50 + แผนภูมิ ประเภท (แผนภูมิ Gantt, ... )   |   40+ ใช้งานได้จริง สูตร (คำนวณอายุตามวันเกิด, ... )   |   19 การแทรก เครื่องมือ (ใส่ QR Code, แทรกรูปภาพจากเส้นทาง, ... )   |   12 การแปลง เครื่องมือ (ตัวเลขเป็นคำ, การแปลงสกุลเงิน, ... )   |   7 ผสานและแยก เครื่องมือ (แถวรวมขั้นสูง, แยกเซลล์, ... )   |   ... และอื่น ๆ

เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา  คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...

รายละเอียด

แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, 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