วิธีผสานเซลล์ว่างด้านบน / ซ้ายใน Excel โดยอัตโนมัติ

ในบทความนี้ฉันจะพูดถึงการรวมเซลล์ว่างด้านบนหรือซ้ายโดยอัตโนมัติตามภาพด้านล่างที่แสดง จริงๆแล้วไม่มียูทิลิตี้ในตัวที่สามารถจัดการงานนี้ได้ แต่โค้ดมาโครสามารถทำได้

รวมช่องว่างด้านบน

รวมช่องว่างทางซ้าย

ผสานเซลล์ว่างด้านบนโดยยึดตามคอลัมน์

ผสานเซลล์ว่างด้านบน (ใช้ได้กับคอลัมน์เดียวเท่านั้น)

ผสานเซลล์ว่างทางซ้าย

ผสานเซลล์ว่างด้านบนโดยยึดตามคอลัมน์

สมมติว่ามีข้อมูลช่วงหนึ่งในสามคอลัมน์และตอนนี้คุณต้องการรวมข้อมูลด้านบนตามคอลัมน์ C

1 กด Alt + F11 keys เพื่อเปิดใช้งานไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างแล้วคลิก สิ่งที่ใส่เข้าไป > โมดูล. ดูภาพหน้าจอ:

2. จากนั้นวางโค้ดด้านล่างลงในสคริปต์เปล่า ดูภาพหน้าจอ:

VBA: รวมช่องว่างด้านบนตามคอลัมน์ถัดไป

Sub MergeCells()
'UpdatebyExtendoffice2017025
    Dim xRg As Range
    Dim xCell As Range
    Dim xAddress As String
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select a range:", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    For Each xCell In xRg
        If xCell.Value = "" Then
            Range(xCell, xCell.Offset(-1, 0)).Merge
        End If
    Next
End Sub

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

4 คลิก OKจากนั้นเซลล์ว่างจะถูกรวมไว้ด้านบน ดูภาพหน้าจอ:

ปลดล็อก Excel Magic ด้วย Kutools AI

• การดำเนินการอย่างชาญฉลาด: ดำเนินการกับเซลล์ วิเคราะห์ข้อมูล และสร้างแผนภูมิ ทั้งหมดนี้ขับเคลื่อนด้วยคำสั่งง่ายๆ
• สูตรที่กำหนดเอง: สร้างสูตรที่ปรับแต่งโดยเฉพาะเพื่อปรับปรุงขั้นตอนการทำงานของคุณ
• การเข้ารหัส VBA: เขียนและใช้งานโค้ด VBA ได้อย่างง่ายดาย
• การตีความสูตร: เข้าใจสูตรที่ซับซ้อนได้อย่างง่ายดาย
• การแปลข้อความ: ทลายกำแพงด้านภาษาภายในสเปรดชีตของคุณ

ปรับปรุงความสามารถ Excel ของคุณด้วยเครื่องมือที่ขับเคลื่อนด้วย AI ดาวน์โหลดเดี๋ยวนี้ และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน!

ผสานเซลล์ว่างด้านบน (ใช้ได้กับคอลัมน์เดียวเท่านั้น)

นี่คือรหัสแมโครที่สามารถผสานเซลล์ว่างด้านบนในคอลัมน์ที่ระบุ

1 กด Alt + F11 คีย์เพื่อเปิดใช้งานไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างแล้วคลิก สิ่งที่ใส่เข้าไป > โมดูล. ดูภาพหน้าจอ:

2. วางโค้ดด้านล่างลงในสคริปต์ ดูภาพหน้าจอ:

VBA: ผสานเซลล์ว่างด้านบน

Sub mergeblankswithabove()
'UpdatebyExtendoffice20171025
    Dim I As Long
    Dim xRow As Long
    Dim xRg As Range
    Dim xCell As Range
    Dim xAddress As String
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select a range (single column):", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Columns.Count > 1 Then
        MsgBox "Only work for single column", , "KuTools For Excel"
        Exit Sub
    End If
    xRow = xRg.Rows.Count
    Set xRg = xRg(xRow)
    For I = xRow To 1 Step -1
        Set xCell = xRg.Offset(I - xRow, 0)
        Debug.Print xCell.Address
        If xCell.Value = "" Then Range(xCell, xCell.Offset(-1, 0)).Merge
    Next
End Sub

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

4. คลิกตกลง และเซลล์ว่างในส่วนที่เลือกได้ถูกรวมไว้ด้านบน

ผสานเซลล์ว่างทางซ้าย

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

1 กด Alt + F11 คีย์เพื่อเปิดใช้งานไฟล์ Microsoft Visual Basic สำหรับหน้าต่างแอพพลิเคชั่นแล้วคลิก สิ่งที่ใส่เข้าไป > โมดูล. ดูภาพหน้าจอ:

2. จากนั้นวางโค้ดด้านล่างลงในสคริปต์เปล่า ดูภาพหน้าจอ:

VBA: รวมช่องว่างทางซ้าย

Sub mergeblankswithleft()
'UpdatebyExtendoffice20171025
    Dim xRg As Range
    Dim xCell As Range
    Dim xAddress As String
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select a range:", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    For Each xCell In xRg
        If xCell.Value = "" Then Range(xCell, xCell.Offset(0, -1)).Merge
    Next
End Sub

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

4 คลิก OK. เซลล์ว่างถูกผสานทิ้งไว้

รวมช่องว่างทางซ้าย