كيف تستبدل المسافات المتعددة بمسافة واحدة من الخلايا في إكسيل؟
استبدل المسافات المتعددة بمسافة واحدة باستخدام الصيغة
في Excel ، قد لا تعمل ميزة البحث والاستبدال العادية بشكل جيد بالنسبة لنا لحل هذه المشكلة ، لذلك يمكننا تطبيق صيغة بسيطة للتعامل معها. يرجى القيام بذلك على النحو التالي:
1. أدخل هذه الصيغة: = TRIM (SUBSTITUTE (A2، CHAR (32)، "")) في خلية فارغة بجانب قيمة الخلية ، انظر لقطة الشاشة:
2. ثم اضغط أدخل مفتاح للحصول على النتيجة ، وحدد الخلية B2 ، ثم اسحب مقبض التعبئة إلى خلايا النطاق التي تريد تطبيق هذه الصيغة ، وتمت إزالة جميع المسافات الإضافية من السلاسل النصية وسيتم الاحتفاظ بمسافة واحدة فقط بين النص. انظر لقطة الشاشة:
استبدل المسافات المتعددة بمسافة واحدة باستخدام كود فبا
إذا كنت مهتمًا برمز VBA ، يمكنني إنشاء رمز لك لاستبدال مسافات متعددة بمسافات واحدة ، فيرجى القيام بما يلي:
1. الرجاء الضغط باستمرار ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. ثم اضغط إدراج > وحدة، والصق الكود التالي في ملف وحدة نافذة او شباك.
كود فبا: استبدل المسافات المتعددة بمسافة مفردة
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 زر ، تم استبدال جميع المسافات الزائدة بمسافة واحدة بين النص.
استبدل المسافات المتعددة بمسافة واحدة باستخدام Kutools for Excel
إذا كان لديك أنواع أخرى من المسافات يجب إزالتها ، مثل إزالة المسافات البادئة ، والمسافات اللاحقة ، وجميع مسافات النص ، فإنني أوصي بأداة قوية -كوتولس ل إكسيل ، مع لها إزالة المسافات فائدة ، يمكنك إزالة أي مسافات حسب حاجتك ، مثل المسافة البادئة ، والمسافات الزائدة ، وجميع المسافات ...
| كوتولس ل إكسيل : مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود في أيام 30. |
|
|
بعد تثبيت كوتولس ل إكسيليرجى القيام بما يلي:
1. حدد نطاق البيانات الذي تريد إزالة المسافات الزائدة.
2. انقر كوتولس > نص > إزالة المسافات، انظر لقطة الشاشة:
3. في إزالة المسافات مربع الحوار، اختر جميع المساحات الزائدة من نوع المساحات ، ويمكنك عرض النتيجة من ملف معاينة جزء ، انظر لقطة الشاشة:
4. ثم انقر فوق Ok or تقديم الطلب زر ، تمت إزالة جميع المسافات الزائدة من الخلية وترك مسافة واحدة فقط بين النص.
انقر لمعرفة المزيد حول ميزة "إزالة المسافات".
انقر لتنزيل Kutools for Excel والتجربة المجانية الآن!
عرض توضيحي: استبدل مسافات متعددة بمسافة واحدة باستخدام Kutools for Excel
كوتولس ل إكسيل: مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود خلال 30 يومًا. تنزيل وتجربة مجانية الآن!
أفضل أدوات إنتاجية المكتب
Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪
- إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
- سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى...
- دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات...
- حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
- نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
- استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات...
- سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
- اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF...
- أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2019 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
