كيفية استبدال المسافات المتعددة بمسافة واحدة في الخلايا في Excel؟
لنفترض أن لدي قائمة من السلاسل النصية التي تحتوي على مسافات متعددة، والآن أحتاج إلى استبدال هذه المسافات بمسافة واحدة بين السلاسل النصية لفصل الكلمات كما هو موضح في لقطة الشاشة التالية. كيف يمكنني استبدال المسافات المتعددة بواحدة دفعة واحدة دون إزالتها واحدة تلو الأخرى؟
استبدال المسافات المتعددة بمسافة واحدة باستخدام الصيغة
استبدال المسافات المتعددة بمسافة واحدة باستخدام Kutools لـ Excel
استبدال المسافات المتعددة بمسافة واحدة باستخدام كود VBA
استبدال المسافات المتعددة بمسافة واحدة باستخدام الصيغة
في Excel، قد لا تعمل ميزة البحث والاستبدال العادية بشكل جيد لحل هذه المشكلة، لذلك يمكننا تطبيق صيغة بسيطة للتعامل معها. يرجى القيام بما يلي:
1. أدخل هذه الصيغة: =TRIM(SUBSTITUTE(A2,CHAR(32)," ")) في خلية فارغة بجانب قيمة الخلية الخاصة بك، انظر لقطة الشاشة:
2. ثم اضغط على مفتاح Enter للحصول على النتيجة، وحدد الخلية B2، ثم اسحب مقبض التعبئة إلى الخلايا التي تريد تطبيق هذه الصيغة عليها، وسيتم إزالة جميع المسافات الزائدة من السلاسل النصية وسيتم الاحتفاظ بمسافة واحدة فقط بين النصوص. انظر لقطة الشاشة:
استبدال المسافات المتعددة بمسافة واحدة باستخدام Kutools لـ Excel
إذا كانت لديك أنواع أخرى من المسافات تحتاج إلى إزالتها، مثل إزالة المسافات الأمامية أو الخلفية أو جميع المسافات في النص، سأوصي بأداة قوية - Kutools لـ Excel، مع أداة إزالة المسافات، يمكنك إزالة أي مسافات حسب الحاجة، مثل المسافات الأمامية، المسافات الخلفية، جميع المسافات...
بعد تثبيت Kutools لـ Excel، يرجى القيام بما يلي:
1. حدد نطاق البيانات الذي تريد إزالة المسافات الزائدة منه.
2. انقر فوق Kutools > نص > إزالة المسافات، انظر لقطة الشاشة:
3. في مربع الحوار إزالة المسافات، اختر جميع المسافات الزائدة من قسم نوع الفراغ، ويمكنك عرض النتيجة من لوحة المعاينة، انظر لقطة الشاشة:
4. وبعد ذلك انقر فوق زر موافق أو تطبيق، سيتم إزالة جميع المسافات الزائدة من الخلية وسيتم ترك مسافة واحدة فقط بين النصوص.
انقر لتنزيل Kutools لـ Excel وتجربته الآن مجانًا!
استبدال المسافات المتعددة بمسافة واحدة باستخدام كود VBA
إذا كنت مهتمًا بكود VBA، يمكنني إنشاء كود لك لاستبدال المسافات المتعددة بواحدة، يرجى القيام بما يلي:
1. الرجاء الضغط باستمرار على مفاتيح ALT + F11 لفتح نافذة Microsoft Visual Basic for Applications.
2. ثم انقر فوق إدراج > وحدة، والصق الكود التالي في نافذة الوحدة.
كود VBA: استبدال المسافات المتعددة بمسافة واحدة
Sub replace_multiplespaces()
'Updateby Extendoffice
Dim x As Range
Dim Workx As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set Workx = Application.Selection
Set Workx = Application.InputBox("Range", xTitleId, Workx.Address, Type:=8)
For Each x In Workx
x = WorksheetFunction.Trim(x)
Next x
End Sub
3. ثم اضغط على مفتاح F5 لتشغيل هذا الكود، ستظهر مربع تنبيه لتذكيرك بتحديد نطاق البيانات الذي تريد إزالة المسافات الزائدة منه، انظر لقطة الشاشة:
4. وبعد ذلك انقر فوق زر موافق، سيتم استبدال جميع المسافات الزائدة بمسافة واحدة بين النصوص.
أفضل أدوات الإنتاجية لمكتب العمل
عزز مهاراتك في Excel مع Kutools لـ Excel، واختبر الكفاءة كما لم يحدث من قبل. Kutools لـ Excel يقدم أكثر من300 ميزة متقدمة لزيادة الإنتاجية وتوفير وقت الحفظ. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
Office Tab يقدم واجهة التبويب لـ Office، ويجعل عملك أسهل بكثير
- تمكين تحرير وقراءة المستندات عبر التبويبات في Word وExcel وPowerPoint.
- افتح وأنشئ عدة مستندات في تبويبات جديدة ضمن نفس النافذة، بدلاً من فتحها في نوافذ منفصلة.
- يزيد إنتاجيتك بنسبة50%، ويقلل مئات النقرات بالماوس يومياً!