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

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

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

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

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

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

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

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

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

รวมค่าเซลล์ด้านบนจนถึงเซลล์ว่างด้วยรหัส 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 คีย์เพื่อเรียกใช้โค้ดนี้และกล่องพร้อมท์จะปรากฏขึ้นเพื่อเตือนให้คุณเลือกช่วงของเซลล์ที่คุณต้องการรวมเซลล์ด้านบนจนกระทั่งเซลล์ว่าง ดูภาพหน้าจอ:

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