วิธีผสานเซลล์ว่างด้านบน / ซ้ายใน 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จากนั้นเซลล์ว่างจะถูกรวมไว้ด้านบน ดูภาพหน้าจอ:
ผสานเซลล์ว่างด้านบน (ใช้ได้กับคอลัมน์เดียวเท่านั้น)
นี่คือรหัสแมโครที่สามารถผสานเซลล์ว่างด้านบนในคอลัมน์ที่ระบุ
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. เซลล์ว่างถูกผสานทิ้งไว้
| รวมช่องว่างทางซ้าย | ||
|
|
|
ผสานเซลล์เดียวกันหรือยกเลิกการผสานเซลล์
|
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
