كيف يمكن استبدال المسافات المتعددة في خلايا Excel بمسافة واحدة؟
لديّ قائمة من سلاسل نصية تحتوي على مسافات متعددة، وأحتاج الآن إلى استبدال كل تلك المسافات بمسافة واحدة فقط بين الكلمات—كما يظهر في لقطة الشاشة التالية. كيف يمكنني استبدال جميع المسافات المتعددة دفعة واحدة بمسافة واحدة، دون الاضطرار إلى حذفها يدويًّا واحدة تلو الأخرى؟
استبدال المسافات المتعددة بمسافة واحدة باستخدام صيغة
استبدال المسافات المتعددة بمسافة واحدة باستخدام Kutools لـ Excel
استبدال المسافات المتعددة بمسافة واحدة باستخدام كود VBA
استبدال المسافات المتعددة بمسافة واحدة باستخدام صيغة
في Excel، قد لا تكون ميزة البحث والاستبدال الاعتيادية فعّالة تمامًا لحل هذه المشكلة، لذا يمكننا استخدام صيغة بسيطة للتعامل معها. يُرجى اتباع الخطوات التالية:
1. أدخل هذه الصيغة: =TRIM(SUBSTITUTE(A2,CHAR(32),« »)) في خلية فارغة بجانب قيمة خليتك، كما في لقطة الشاشة:
2. اضغط بعد ذلك على مفتاحEnter للحصول على النتيجة، ثم حدد الخلية B2، واسحب مقبض التعبئة عبر النطاق الذي تريد تطبيق الصيغة عليه. بهذه الطريقة، سيتم إزالة جميع المسافات الزائدة من سلاسل النصوص، مع الاحتفاظ بمسافة واحدة فقط بين الكلمات. انظر لقطة الشاشة:
استبدال المسافات المتعددة بمسافة واحدة باستخدام Kutools لـ Excel
إذا كانت لديك أنواع أخرى من المسافات التي تحتاج إلى إزالتها، مثل الفراغات الأمامية أو الخلفية، أو حتى جميع المسافات من النص، فنحن نوصي بأداة قوية جدًّا: Kutools لـ Excel، مع أداةحذف الفراغاتالخاصة بها، التي تتيح لك إزالة أي نوع من المسافات حسب احتياجاتك—مثل المسافات البادئة، والفراغات الخلفية، أو جميع المسافات دفعة واحدة!
بعد تثبيتKutools لـ Excel، يُرجى اتباع ما يلي:
1. حدد نطاق البيانات الذي تريد إزالة المسافات الزائدة منه.
2. انقر فوقKutools > Text > حذف الفراغات، انظر لقطة الشاشة:
3. في مربع حوارحذف الفراغات، اخترجميع الفراغات الزائدةمن قسمنوع الفراغ، ويمكنك معاينة النتيجة من لوحةPreview. انظر لقطة الشاشة:
4. ثم انقر على زرOk أوApply، وسيتم إزالة جميع المسافات الزائدة من الخلية، لتبقى مسافة واحدة فقط بين الكلمات.
انقر لتنزيل Kutools لـ Excel وتجربته مجانًا الآن!
استبدال المسافات المتعددة بمسافة واحدة باستخدام كود VBA
إذا كنت مهتمًا بكود VBA، يمكنني إنشاء كود لك لاستبدال المسافات المتعددة بمسافة واحدة، يُرجى اتباع الخطوات التالية:
1. اضغط مع الاستمرار على مفاتيحALT + F11 لفتح نافذةMicrosoft Visual Basic for Applications.
2. ثم انقر فوقInsert > Module، والصق الكود التالي في نافذةModule.
كود 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. ثم انقر فوق زرOK، وسيتم استبدال جميع الفراغات الزائدة بمسافة واحدة بين النصوص.
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل