จะลบบรรทัดว่างทั้งหมดหรือเฉพาะบรรทัดแรกในเซลล์ใน Excel ได้อย่างไร?
คุณอาจได้รับสมุดงานที่มีหลายบรรทัดผสมกับช่องว่างในเซลล์ จะลบบรรทัดว่างเหล่านี้ในเซลล์ได้อย่างไร? แล้วการลบเฉพาะบรรทัดแรกล่ะ? บทความนี้จะช่วยให้คุณจัดการกับมันทีละขั้นตอน
ลบบรรทัดว่างทั้งหมดในเซลล์ด้วยรหัส VBA
ลบเฉพาะบรรทัดแรกในเซลล์ด้วยรหัส VBA
ลบบรรทัดว่างทั้งหมดในเซลล์ด้วยรหัส VBA
ดังที่แสดงในภาพหน้าจอด้านล่าง หากต้องการลบบรรทัดว่างทั้งหมดในเซลล์ คุณสามารถเรียกใช้โค้ด VBA ต่อไปนี้เพื่อดำเนินการให้เสร็จสิ้น
1 กด อื่น ๆ + F11 ปุ่มบนแป้นพิมพ์ของคุณ จากนั้นจะเปิด a Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคลิก สิ่งที่ใส่เข้าไป > โมดูล. จากนั้นคัดลอกและวางโค้ด VBA ด้านล่างลงในไฟล์ โมดูล หน้าต่าง
รหัส VBA: ลบบรรทัดว่างทั้งหมดในเซลล์
Sub DoubleReturn()
Dim xRng As Range, xCell As Range
Dim I As Integer
On Error Resume Next
Set xRng = Application.InputBox("Please select range:", "Kutools for Excel", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
On Error Resume Next
For Each xCell In xRng
For I = 1 To Len(xCell) - Len(WorksheetFunction.Substitute(xCell, Chr(10), ""))
xCell = Replace(xCell, Chr(10) + Chr(10), Chr(10))
Next
Next
End Sub
3 กด F5 คีย์เพื่อเรียกใช้รหัส จากนั้นเลือกเซลล์ที่มีบรรทัดว่างที่คุณจะลบใน Kutools for Excel กล่องโต้ตอบ และสุดท้ายคลิก OK ปุ่ม
จากนั้นคุณจะเห็นบรรทัดว่างทั้งหมดถูกลบออกจากเซลล์ที่ระบุดังภาพด้านล่าง ข้อความยังคงอยู่ในบรรทัดต่างๆ
ลบเฉพาะบรรทัดแรกในเซลล์ด้วยรหัส VBA
ดังที่แสดงในภาพหน้าจอด้านล่าง หากต้องการลบบรรทัดแรกในเซลล์ A2 และ A3 โค้ด VBA ต่อไปนี้สามารถช่วยได้
1 กด อื่น ๆ + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคลิก สิ่งที่ใส่เข้าไป > โมดูล. จากนั้นคัดลอกและวางโค้ด VBA ด้านล่างลงในไฟล์ โมดูล หน้าต่าง
รหัส VBA: ลบเฉพาะบรรทัดแรกในเซลล์
Option Explicit
Sub RemoveFirstLine(ByRef Target As Range)
Dim xCell As Range
For Each xCell In Target.Cells
xCell.Value = Right(xCell.Value, Len(xCell.Value) - InStr(1, xCell.Value, vbLf))
Next
End Sub
Sub StartRemove()
Dim xRng As Range
On Error Resume Next
Set xRng = Application.InputBox("Please select range:", "Kutools for Excel", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
On Error Resume Next
RemoveFirstLine xRng
End Sub
3 กด F5 กุญแจสำคัญในการเรียกใช้รหัส ในการโผล่ขึ้นมา Kutools for Excel กล่องโต้ตอบ โปรดเลือกเซลล์ที่คุณต้องการลบเฉพาะบรรทัดแรก แล้วคลิก OK ปุ่ม
จากนั้นคุณจะเห็นบรรทัดแรกทั้งหมดถูกลบออกจากเซลล์ที่ระบุดังภาพด้านล่างที่แสดง
บทความที่เกี่ยวข้อง:
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เสริมทักษะ Excel ของคุณด้วย Kutools for Excelและสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools for Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
Office Tab นำอินเทอร์เฟซแบบแท็บมาสู่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!








