วิธีการลบ / ลบช่องว่างหลังอักขระสุดท้ายใน Excel

สำหรับการลบช่องว่างทั้งหมดหลังอักขระสุดท้าย (ช่องว่างต่อท้าย) จากเซลล์คุณจะทำอย่างไร? บทความนี้จะแสดงสองวิธีในการจัดการกับมัน

ลบช่องว่างทั้งหมดหลังอักขระสุดท้ายด้วยรหัส VBA
ลบช่องว่างทั้งหมดหลังอักขระสุดท้ายได้อย่างง่ายดายด้วย Kutools for Excel

ลบช่องว่างทั้งหมดหลังอักขระสุดท้ายด้วยรหัส VBA

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

1. เลือกเซลล์ที่คุณต้องการลบช่องว่างทั้งหมดหลังอักขระตัวสุดท้ายจากนั้นกด อื่น ๆ + F11 พร้อมกันเพื่อเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน โปรดคลิก สิ่งที่ใส่เข้าไป > โมดูล. จากนั้นคัดลอกและวางโค้ด VBA ต่อไปนี้ลงในหน้าต่างโมดูล

รหัส VBA: ลบช่องว่างทั้งหมดหลังอักขระสุดท้าย

Sub NoSpaces()
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Please select range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    For Each xCell In xRg
        xCell.Value = RTrim(xCell.Value)
    Next
    Application.ScreenUpdating = True
End Sub

3 กด F5 เพื่อเรียกใช้รหัสจากนั้นกดปุ่ม Kutools สำหรับ Excel กล่องโต้ตอบจะปรากฏขึ้นโปรดเลือกช่วงที่คุณต้องการลบช่องว่างทั้งหมดหลังอักขระตัวสุดท้ายจากนั้นคลิกที่ OK ปุ่ม

ตอนนี้ช่องว่างทั้งหมดหลังจากอักขระสุดท้ายของเซลล์ที่เลือกจะถูกลบออกทันที

ลบช่องว่างทั้งหมดหลังอักขระสุดท้ายได้อย่างง่ายดายด้วย Kutools for Excel

ในส่วนนี้เราจะแนะนำไฟล์ ลบ Spaces ประโยชน์ของ Kutools สำหรับ Excel. ด้วยยูทิลิตี้นี้คุณสามารถลบไม่เพียง แต่ช่องว่างต่อท้ายเท่านั้น แต่ยังสามารถลบช่องว่างประเภทใดก็ได้เช่นช่องว่างด้านหน้าหรือส่วนเกินด้วยการคลิกเท่าที่คุณต้องการ

1. เลือกช่วงของเซลล์ที่คุณต้องการลบช่องว่างทั้งหมดหลังอักขระตัวสุดท้าย จากนั้นคลิก Kutools > ข้อความ > ลบ Spaces. ดูภาพหน้าจอ:

2 ใน ลบ Spaces โปรดเลือกไฟล์ ช่องว่างต่อท้าย จากนั้นคลิกตัวเลือก OK ปุ่ม. ดูภาพหน้าจอ:

จากนั้นช่องว่างทั้งหมดหลังจากอักขระสุดท้ายของเซลล์ที่เลือกจะถูกลบออกพร้อมกัน

หมายเหตุ: ถ้าคุณต้องการลบช่องว่างนำหน้าทั้งหมดหรือช่องว่างอื่น ๆ ตามที่คุณต้องการโปรดเลือกตัวเลือกที่เกี่ยวข้องในกล่องโต้ตอบ Remove Spaces และใช้ฟังก์ชัน