จะลบบรรทัดว่างทั้งหมดหรือเฉพาะบรรทัดแรกในเซลล์ใน 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 สำหรับ 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 สำหรับ Excel กล่องโต้ตอบ โปรดเลือกเซลล์ที่คุณต้องการลบเฉพาะบรรทัดแรก แล้วคลิก OK ปุ่ม

คุณจะเห็นว่าบรรทัดแรกจะถูกลบออกจากเซลล์ที่ระบุ ดังที่แสดงในภาพหน้าจอด้านล่าง

บทความที่เกี่ยวข้อง:

• วิธีทำตัวหนาเฉพาะบรรทัดแรกหรือคำแรกในเซลล์ใน Excel