Vba: كيفية إزالة الحرف الأخير من السلسلة

يمكنك استخدام بناء الجملة الأساسي التالي لإزالة الحرف الأخير من سلسلة باستخدام VBA:

 Sub RemoveLastChar()

    Dim i As Integer
    Dim myString As String

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

يقوم هذا المثال تحديدًا بإزالة الحرف الأخير من كل سلسلة في النطاق A2:A11 ويعرض النتائج في النطاق B2:B11 .

يوضح المثال التالي كيفية استخدام بناء الجملة هذا عمليًا.

مثال: استخدام VBA لإزالة الحرف الأخير من السلاسل

لنفترض أن لدينا القائمة التالية لأسماء فرق كرة السلة في برنامج Excel:

لنفترض أننا نريد إزالة الحرف الأخير من اسم كل فريق.

يمكننا إنشاء الماكرو التالي للقيام بذلك:

 Sub RemoveLastChar()

    Dim i As Integer
    Dim myString As String

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

عندما نقوم بتشغيل هذا الماكرو، نحصل على الإخراج التالي:

يعرض العمود B كل سلسلة من السلاسل الموجودة في العمود A مع إزالة الحرف الأخير.

إذا كنت تريد بدلاً من ذلك إزالة آخر حرف n من سلسلة، فما عليك سوى استبدال الرقم 1 في الطريقة اليسرى برقم مختلف.

على سبيل المثال، يمكننا إنشاء الماكرو التالي لإزالة آخر حرفين من سلسلة:

 Sub RemoveLastTwoChar()

    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 Left هنا .

مصادر إضافية

تشرح البرامج التعليمية التالية كيفية تنفيذ المهام الشائعة الأخرى باستخدام VBA:

فبا: كيفية حساب تكرارات الأحرف في سلسلة
VBA: كيفية التحقق مما إذا كانت السلسلة تحتوي على سلسلة أخرى
VBA: كيفية حساب الخلايا التي تحتوي على نص معين