Note: The other languages of the website are Google-translated. Back to English
English English

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

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

รวมช่องว่างด้านบน    
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 สำหรับ Excel ช่วยแก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%

  • นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ. รองรับ Office / Excel 2007-2019 และ 365 รองรับทุกภาษา ใช้งานง่ายในองค์กรหรือองค์กรของคุณ ทดลองใช้ฟรี 30 วันเต็ม รับประกันคืนเงิน 60 วัน
kte แท็บ 201905

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

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มผลผลิตของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (3)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มันไม่ทำงาน :) Excel 365
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณที่แบ่งปัน มันมีประโยชน์มากสำหรับฉัน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณมาก!
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ