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

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

 Sub ReplaceSpecialChars()
Dim i As Integer
    
For i = 2 To 8
Range("B" & i) = Replace(Replace(Replace(Range("A" & i), "!", ""), "@", ""), "#", "")
Next i
End Sub

يستبدل هذا المثال المحدد الأحرف الخاصة التالية في كل سلسلة في نطاق الخلايا A2:A8 ويقوم بإنشاء سلاسل جديدة في الخلايا B2:B8 :

• !
• @
• #

لاحظ أننا استخدمنا ثلاث طرق استبدال متداخلة لإزالة كل من هذه الأحرف الخاصة من السلاسل.

لإزالة المزيد من الأحرف الخاصة، ما عليك سوى استخدام طرق استبدال أكثر تداخلاً.

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

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

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

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

• !
• @
• #

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

 Sub ReplaceSpecialChars()
Dim i As Integer
    
For i = 2 To 8
Range("B" & i) = Replace(Replace(Replace(Range("A" & i), "!", ""), "@", ""), "#", "")
Next i
End Sub

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

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

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

مصادر إضافية

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

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