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

วิธีการรวมค่าเซลล์ในคอลัมน์จนกว่าเซลล์ว่างจะถึง?

หากคุณมีรายการตัวเลขที่เติมด้วยเซลล์ว่างและตอนนี้คุณต้องรวมตัวเลขด้านบนหรือด้านล่างจนกว่าเซลล์ว่างในรายการนี้จึงจะได้ผลลัพธ์ต่อไปนี้ คุณมีวิธีง่ายๆในการแก้ปัญหานี้ใน Excel หรือไม่?

รวมค่าเซลล์ด้านบนจนถึงเซลล์ว่าง

doc sum จนกว่าจะว่าง 1

รวมค่าเซลล์ด้านล่างจนถึงเซลล์ว่าง

doc sum จนกว่าจะว่าง 2

รวมค่าเซลล์ด้านล่างจนถึงเซลล์ว่างด้วยสูตรอาร์เรย์

รวมค่าเซลล์ด้านบนจนถึงเซลล์ว่างด้วยรหัส VBA


ลูกศรสีฟ้าฟองขวา รวมค่าเซลล์ด้านล่างจนถึงเซลล์ว่างด้วยสูตรอาร์เรย์

หากต้องการรวมค่าเซลล์ด้านล่างจนถึงช่องว่างนี่คือสูตรอาร์เรย์โปรดทำดังนี้:

1. ป้อนสูตรนี้ลงในเซลล์ว่างข้างคอลัมน์ตัวเลขของคุณ E1ยกตัวอย่างเช่น

=IF(D1="",SUM(D1:INDEX(D1:$D$17,MATCH(TRUE,(D2:$D$17=""),0))),"") (D1, D2 คือสองเซลล์แรกในคอลัมน์ของคุณ D17 เป็นเซลล์ว่างสุดท้ายในคอลัมน์ตัวเลข)

2. จากนั้นกด Ctrl + Shift + Enter เข้าด้วยกันจากนั้นลากที่จับเติมลงไปที่เซลล์ที่คุณต้องการรวมตัวเลขด้านล่างจนถึงช่องว่างดูภาพหน้าจอ:

doc sum จนกว่าจะว่าง 3


ลูกศรสีฟ้าฟองขวา รวมค่าเซลล์ด้านบนจนถึงเซลล์ว่างด้วยรหัส VBA

หากคุณต้องการรวมค่าเซลล์ด้านบนจนถึงเซลล์ว่างรหัส VBA ต่อไปนี้อาจช่วยคุณได้

1. กด ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ โมดูล หน้าต่าง.

รหัส VBA: รวมค่าเซลล์ด้านบนจนช่องว่าง:

Sub InsertTotals()
'Updateby Extendoffice
    Dim xRg As Range
    Dim i, j, StartRow, StartCol As Integer
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.AddressLocal
    Set xRg = Application.InputBox("please select the cells:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    StartRow = xRg.Row
    StartCol = xRg.Column
    For i = StartCol To xRg.Columns.Count + StartCol - 1
        For j = xRg.Row To xRg.Rows.Count + StartRow - 1
            If Cells(j, i) = "" Then
                Cells(j, i).Formula = "=SUM(" & Cells(StartRow, i).Address & ":" & Cells(j - 1, i).Address & ")"
                StartRow = j + 1
            End If
        Next
        StartRow = xRg.Row
    Next
End Sub

3. จากนั้นกด F5 คีย์เพื่อเรียกใช้โค้ดนี้และกล่องพร้อมท์จะปรากฏขึ้นเพื่อเตือนให้คุณเลือกช่วงของเซลล์ที่คุณต้องการรวมเซลล์ด้านบนจนกระทั่งเซลล์ว่าง ดูภาพหน้าจอ:

doc sum จนกว่าจะว่าง 4

4. จากนั้นคลิก OK ปุ่ม ค่าเซลล์ทั้งหมดเหนือเซลล์ว่างได้รับการเพิ่มไว้ดังภาพต่อไปนี้:

doc sum จนกว่าจะว่าง 5

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

🤖 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 (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
The formula doesn't work for me. It gives me an error in the part (A1:A100=""), it tells me false in that step
This comment was minimized by the moderator on the site
Como adicionar negrito no resultado?
This comment was minimized by the moderator on the site
tükçe kod olsaydı iyiydi...
This comment was minimized by the moderator on the site
How to Sum Cell Values Below Until Blank Cells With VBA Code
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations