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: كيفية حساب الخلايا التي تحتوي على نص معين