Vba: วิธีลบช่องว่างนำหน้าและต่อท้าย

คุณสามารถใช้ไวยากรณ์พื้นฐานต่อไปนี้เพื่อลบช่องว่างนำหน้าและต่อท้ายออกจากสตริงโดยใช้ VBA:

 Sub RemoveLeadingTrailingSpaces()

    Dim i As Integer

    For i = 2 To 7
    Range(" B " & i) = Trim(Range(" A " & i))
    Next i
    
End Sub

ตัวอย่างเฉพาะนี้จะลบช่องว่างนำหน้าและต่อท้ายออกจากแต่ละสตริงในช่วง A2:A7 และส่งออกผลลัพธ์ในช่วง B2:B7

ตัวอย่างต่อไปนี้แสดงวิธีใช้ไวยากรณ์นี้ในทางปฏิบัติ

ตัวอย่าง: การใช้ VBA เพื่อลบช่องว่างนำหน้าและต่อท้ายออกจากสตริง

สมมติว่าเรามีรายการสตริงต่อไปนี้ใน Excel:

โปรดทราบว่าสตริงจำนวนมากมีช่องว่างนำหน้าหรือต่อท้าย

สมมติว่าเราต้องการลบช่องว่างนำหน้าและต่อท้ายออกจากแต่ละสตริง

เราสามารถสร้างมาโครต่อไปนี้เพื่อทำสิ่งนี้:

 Sub RemoveLeadingTrailingSpaces()

    Dim i As Integer

    For i = 2 To 7
    Range(" B " & i) = Trim(Range(" A " & i))
    Next i
    
End Sub

เมื่อเราเรียกใช้แมโครนี้ เราได้รับผลลัพธ์ต่อไปนี้:

คอลัมน์ B แสดงแต่ละสตริงในคอลัมน์ A โดยลบช่องว่างนำหน้าและต่อท้ายออก

โปรดทราบว่าหากคุณต้องการลบเฉพาะช่องว่างนำหน้าหรือต่อท้ายออกจากสตริง คุณสามารถใช้ฟังก์ชัน LTrim หรือ RTrim ตามลำดับ

หมายเหตุ : คุณสามารถค้นหาเอกสารฉบับสมบูรณ์สำหรับฟังก์ชัน VBA Trim แต่ละรายการ ได้ที่นี่

แหล่งข้อมูลเพิ่มเติม

บทช่วยสอนต่อไปนี้จะอธิบายวิธีดำเนินการงานทั่วไปอื่นๆ โดยใช้ VBA:

VBA: วิธีนับจำนวนอักขระในสตริง
VBA: วิธีตรวจสอบว่าสตริงมีสตริงอื่นหรือไม่
VBA: วิธีนับเซลล์ด้วยข้อความเฉพาะ