Skip to main content

كيفية استبدال المسافات المتعددة بمسافة واحدة في الخلايا في Excel؟

Author: Xiaoyang Last Modified: 2025-05-30

لنفترض أن لدي قائمة من السلاسل النصية التي تحتوي على مسافات متعددة، والآن أحتاج إلى استبدال هذه المسافات بمسافة واحدة بين السلاسل النصية لفصل الكلمات كما هو موضح في لقطة الشاشة التالية. كيف يمكنني استبدال المسافات المتعددة بواحدة دفعة واحدة دون إزالتها واحدة تلو الأخرى؟

استبدال المسافات المتعددة بمسافة واحدة باستخدام الصيغة

استبدال المسافات المتعددة بمسافة واحدة باستخدام Kutools لـ Excel

استبدال المسافات المتعددة بمسافة واحدة باستخدام كود VBA

replace multiple spaces with single space


استبدال المسافات المتعددة بمسافة واحدة باستخدام الصيغة

في Excel، قد لا تعمل ميزة البحث والاستبدال العادية بشكل جيد لحل هذه المشكلة، لذلك يمكننا تطبيق صيغة بسيطة للتعامل معها. يرجى القيام بما يلي:

1. أدخل هذه الصيغة: =TRIM(SUBSTITUTE(A2,CHAR(32)," ")) في خلية فارغة بجانب قيمة الخلية الخاصة بك، انظر لقطة الشاشة:

enter a formula to replace multiple spaces with single space

2. ثم اضغط على مفتاح Enter للحصول على النتيجة، وحدد الخلية B2، ثم اسحب مقبض التعبئة إلى الخلايا التي تريد تطبيق هذه الصيغة عليها، وسيتم إزالة جميع المسافات الزائدة من السلاسل النصية وسيتم الاحتفاظ بمسافة واحدة فقط بين النصوص. انظر لقطة الشاشة:

drag and fill the formula to other cells


استبدال المسافات المتعددة بمسافة واحدة باستخدام Kutools لـ Excel

إذا كانت لديك أنواع أخرى من المسافات تحتاج إلى إزالتها، مثل إزالة المسافات الأمامية أو الخلفية أو جميع المسافات في النص، سأوصي بأداة قوية - Kutools لـ Excel، مع أداة إزالة المسافات، يمكنك إزالة أي مسافات حسب الحاجة، مثل المسافات الأمامية، المسافات الخلفية، جميع المسافات...

Kutools لـ Excel يقدم أكثر من 300 ميزة متقدمة لتبسيط المهام المعقدة، مما يعزز الإبداع والكفاءة. بالتكامل مع قدرات الذكاء الاصطناعي، يقوم Kutools بأتمتة المهام بدقة، مما يجعل إدارة البيانات أمرًا سهلاً للغاية. معلومات تفصيلية عن Kutools لـ Excel... نسخة تجريبية مجانية...

بعد تثبيت Kutools لـ Excel، يرجى القيام بما يلي:

1. حدد نطاق البيانات الذي تريد إزالة المسافات الزائدة منه.

2. انقر فوق Kutools > نص > إزالة المسافات، انظر لقطة الشاشة:

click Remove Spaces feature of kutools

3. في مربع الحوار إزالة المسافات، اختر جميع المسافات الزائدة من قسم نوع الفراغ، ويمكنك عرض النتيجة من لوحة المعاينة، انظر لقطة الشاشة:

choose All excess spaces from the Spaces Type section

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 لتشغيل هذا الكود، ستظهر مربع تنبيه لتذكيرك بتحديد نطاق البيانات الذي تريد إزالة المسافات الزائدة منه، انظر لقطة الشاشة:

vba code to select the data range

4. وبعد ذلك انقر فوق زر موافق، سيتم استبدال جميع المسافات الزائدة بمسافة واحدة بين النصوص.

أفضل أدوات الإنتاجية لمكتب العمل

🤖 Kutools AI Aide: أحدث ثورة في تحليل البيانات من خلال: التنفيذ الذكي |توليد الشيفرة |إنشاء الصيغ المخصصة |تحليل البيانات وتوليد الرسوم البيانية |استدعاء الوظائف المحسنة
الميزات الشائعة: البحث، تمييز أو وضع علامة على المكررات | حذف الصفوف الفارغة | دمج الأعمدة أو العنوان دون فقدان البيانات | تقريب ...
بحث متقدم: بحث V متعدد المعايير | بحث V متعدد القيم | بحث في عدة ورقات | مطابقة غامضة ....
قائمة منسدلة متقدمة: إنشاء قائمة منسدلة بسرعة | قائمة منسدلة تابعة | قائمة منسدلة متعددة الاختيار ....
إدارة الأعمدة: إضافة عدد محدد من الأعمدة | نقل الأعمدة | تبديل حالة إظهار الأعمدة المخفية | مقارنة النطاق والأعمدة ...
ميزات مميزة: التركيز على الشبكة | عرض التصميم | شريط الصيغ المحسن | أدوات المصنف & أدوات الورقة العمل | مكتبة النص التلقائي (Auto Text) | منتقي التاريخ | دمج البيانات | تشفير/فك تشفير الخلايا | إرسال البريد الإلكتروني حسب القائمة | مرشح متقدم | تصفية خاصة (تصفية الخلايا التي تحتوي على خط عريض/مائل/يتوسطه خط...) ...
أفضل15 مجموعة أدوات:12 أداة نصية (إضافة نص، حذف الأحرف المحددة، ...) | أكثر من50 نوع من الرسوم البيانية (مخطط جانت، ...) | أكثر من40 صيغة عملية (حساب العمر بناءً على تاريخ الميلاد، ...) |19 أداة إدراج (إدراج رمز الاستجابة السريعة، إدراج صورة من المسار، ...) |12 أداة تحويل (تحويل إلى كلمات، تحويل العملة، ...) |7 أدوات دمج وتقسيم (دمج متقدم للصفوف، تقسيم الخلايا، ...) | ... والمزيد

عزز مهاراتك في Excel مع Kutools لـ Excel، واختبر الكفاءة كما لم يحدث من قبل. Kutools لـ Excel يقدم أكثر من300 ميزة متقدمة لزيادة الإنتاجية وتوفير وقت الحفظ. انقر هنا للحصول على الميزة التي تحتاجها أكثر...


Office Tab يقدم واجهة التبويب لـ Office، ويجعل عملك أسهل بكثير

  • تمكين تحرير وقراءة المستندات عبر التبويبات في Word وExcel وPowerPoint.
  • افتح وأنشئ عدة مستندات في تبويبات جديدة ضمن نفس النافذة، بدلاً من فتحها في نوافذ منفصلة.
  • يزيد إنتاجيتك بنسبة50%، ويقلل مئات النقرات بالماوس يومياً!