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 في الطريقة الصحيحة برقم مختلف.

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

 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 الصحيح هنا .

مصادر إضافية

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

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