ไปยังเนื้อหาหลัก
ผู้ใช้ ChatGPT ปกติใช่ไหม ลองใช้ ChatGPT ที่รวมเข้ากับ ExtendOffice.

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

ผู้เขียน: ซัน แก้ไขล่าสุด: 2020-08-19

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

รวมช่องว่างด้านบน    
doc ผสานว่างด้านบนซ้าย 1 doc ลูกศรขวา doc ผสานว่างด้านบนซ้าย 2

 รวมช่องว่างทางซ้าย    
doc ผสานว่างด้านบนซ้าย 3 doc ลูกศรขวา doc ผสานว่างด้านบนซ้าย 4

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

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

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


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

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

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

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

doc ผสานว่างด้านบนซ้าย 6

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

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


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

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

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

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

doc ผสานว่างด้านบนซ้าย 10

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

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

doc ผสานว่างด้านบนซ้าย 12 doc ลูกศรขวา doc ผสานว่างด้านบนซ้าย 13

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

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

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

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

doc ผสานว่างด้านบนซ้าย 15

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

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

 รวมช่องว่างทางซ้าย    
doc ผสานว่างด้านบนซ้าย 3 doc ลูกศรขวา doc ผสานว่างด้านบนซ้าย 4

ผสานเซลล์เดียวกันหรือยกเลิกการผสานเซลล์

doc ผสานยกเลิกการผสาน

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

🤖 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 (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thank you very much!
This comment was minimized by the moderator on the site
Thanks for sharing , it so useful for me.
This comment was minimized by the moderator on the site
it's not working :) Excel 365
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations