Vba: วิธีลบอักขระตัวแรกออกจากสตริง

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

 Sub RemoveFirstChar()

    Dim i As Integer
    Dim myString As String

    For i = 2 To 11
    myString = Range(" A " & i)
    Range(" B " & i) = Right(myString, Len(myString) - 1)
    Next i
    
End Sub

ตัวอย่างนี้จะลบอักขระตัวแรกออกจากแต่ละสตริงในช่วง A2:A11 และแสดงผลลัพธ์ในช่วง B2:B11

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

ที่เกี่ยวข้อง: วิธีลบอักขระตัวสุดท้ายออกจากสตริงโดยใช้ VBA

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

สมมติว่าเรามีรายชื่อทีมบาสเก็ตบอลใน Excel ต่อไปนี้:

สมมติว่าเราต้องการลบอักขระตัวแรกออกจากชื่อแต่ละทีม

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

 Sub RemoveFirstChar()

    Dim i As Integer
    Dim myString As String

    For i = 2 To 11
    myString = Range(" A " & i)
    Range(" B " & i) = Right(myString, Len(myString) - 1)
    Next i
    
End Sub

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

คอลัมน์ B จะแสดงแต่ละสตริงในคอลัมน์ A โดยนำอักขระตัวแรกออก

หากคุณต้องการลบอักขระ n ตัวแรกออกจากสตริง ให้แทนที่ 1 ในวิธี Right ด้วยตัวเลขอื่น

ตัวอย่างเช่น เราสามารถสร้างแมโครต่อไปนี้เพื่อลบอักขระ 2 ตัวแรกออกจากสตริง:

 Sub RemoveFirstTwoChar()

    Dim i As Integer
    Dim myString As String

    For i = 2 To 11
    myString = Range(" A " & i)
    Range(" B " & i) = Left(myString, Len(myString) - 2)
    Next i
    
End Sub

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

คอลัมน์ B จะแสดงแต่ละสตริงในคอลัมน์ A โดยนำอักขระสองตัวแรกออก

หมายเหตุ : คุณสามารถดูเอกสารฉบับเต็มสำหรับวิธี VBA Right ได้ที่นี่

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

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

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