فبا: كيفية إزالة المسافات من سلسلة

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

 SubRemoveSpaces ()

    Dim i As Integer

    For i = 2 To 8
    Range(" B " & i) = Replace(Range(" A " & i), " ", "")
    Next i
    
End Sub

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

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

مثال: استخدام VBA لإزالة المسافات من السلاسل

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

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

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

 SubRemoveSpaces ()

    Dim i As Integer

    For i = 2 To 8
    Range(" B " & i) = Replace(Range(" A " & i), " ", "")
    Next i
    
End Sub

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

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

ملاحظة : يمكنك العثور على الوثائق الكاملة لطريقة استبدال VBA هنا .

مصادر إضافية

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

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