إزالة المسافات في خلايا Excel – المسافات البادئة، المسافات اللاحقة، المسافات الزائدة أو جميع المسافات

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

إزالة المسافات الزائدة بما في ذلك المسافات البادئة، المسافات اللاحقة والمسافات الزائدة بين الكلمات من الخلايا

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

حدد خلية فارغة، وأدخل =TRIM(B3) فيها واضغط على Enter ثم اسحب مقبض التعبئة إلى الأسفل لتطبيق الصيغة على الخلايا الأخرى. انظر لقطة الشاشة:
ملاحظة: B3 هي الخلية التي تحتوي على النص الذي تريد إزالة المسافات منه.

الآن تم إزالة جميع المسافات الزائدة بما في ذلك المسافات البادئة، المسافات اللاحقة والمسافات الزائدة بين الكلمات من الخلايا المحددة.

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

إزالة المسافات البادئة فقط من الخلايا

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

استخدام دالة MID لإزالة المسافات البادئة فقط

حدد خلية فارغة (اخترت هنا الخلية D3)، انسخ الصيغة أدناه إليها واضغط على مفتاح Enter. ثم اسحب مقبض التعبئة لأسفل لتطبيق الصيغة على الخلايا الأخرى.

=MID(B3,FIND(MID(TRIM(B3),1,1),B3),LEN(B3))

في هذه الصيغة، B3 هي الخلية التي تحتوي على النص الذي تريد إزالة المسافات البادئة منه.

ملاحظة: يجب تنفيذ هذه العملية في عمود جديد. بعد إزالة جميع المسافات البادئة، تحتاج إلى استبدال البيانات الأصلية بالبيانات المعدلة بدون صيغ.

استخدام كود VBA لإزالة المسافات البادئة فقط

1. افتح ورقة العمل التي تحتوي على الخلايا التي ستزيل منها المسافات البادئة، ثم اضغط على مفاتيح Alt + F11 لفتح نافذة Microsoft Visual Basic for Applications.

2. انقر فوق إدراج > وحدة، ثم انسخ الكود التالي للـ VBA في نافذة الوحدة.

Sub RemoveLeadingSpaces()
'Updateby20190612
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    Rng.Value = VBA.LTrim(Rng.Value)
Next
End Sub

3. اضغط على مفتاح F5 لتشغيل الكود. ستظهر نافذة حوار Kutools for Excel، يرجى تحديد الخلايا المتصلة التي ستزيل منها المسافات البادئة، ثم انقر على زر موافق.

الآن يمكنك رؤية أن المسافات البادئة فقط هي التي تمت إزالتها من الخلايا المحددة.

إزالة المسافات اللاحقة فقط من الخلايا

1. افتح ورقة العمل التي تحتوي على الخلايا التي ستزيل منها المسافات البادئة، ثم اضغط على مفاتيح Alt + F11 لفتح نافذة Microsoft Visual Basic for Applications.

2. انقر فوق إدراج > وحدة، ثم انسخ الكود التالي للـ VBA في نافذة الوحدة.

Sub RemoveTrailingSpaces()
'Updateby20190612
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    Rng.Value = VBA.RTrim(Rng.Value)
Next
End Sub

3. اضغط على مفتاح F5 لتشغيل الكود. ستظهر نافذة حوار Kutools for Excel، يرجى تحديد الخلايا المتصلة التي ستزيل منها المسافات اللاحقة، ثم انقر على زر موافق. الآن يمكنك رؤية أن المسافات اللاحقة فقط هي التي تمت إزالتها من الخلايا المحددة.

إزالة جميع المسافات من الخلايا

إذا كنت ترغب في التخلص من جميع المسافات في خلايا معينة، فإن الطرق في هذا القسم يمكن أن تساعدك.

استخدام دالة SUBSTITUTE لإزالة جميع المسافات من الخلايا

=SUBSTITUTE(text, old_text, new_text, [instance_num])

حدد خلية فارغة، انسخ الصيغة أدناه إليها واضغط على مفتاح Enter. ثم اسحب مقبض التعبئة لأسفل لتطبيق الصيغة على الخلايا الأخرى.

=SUBSTITUTE(B3," ","")

نصائح: في هذه الصيغة، B3 هي الخلية التي تحتوي على النص الذي تريد إزالة جميع المسافات منه;
         " " (مسافة محاطة بعلامات اقتباس مزدوجة) هنا تمثل المسافات التي تريد إزالتها;
         "" هنا يعني أنك ستستبدل جميع المسافات بلا شيء.

ثم يمكنك رؤية جميع المسافات في الخلايا المحددة تتم إزالتها على الفور.

ملاحظة: يجب تنفيذ هذه العملية في عمود جديد. بعد إزالة جميع المسافات، تحتاج إلى استبدال البيانات الأصلية بالبيانات المعدلة بدون صيغ.

استخدام وظيفة البحث والاستبدال لإزالة جميع المسافات من الخلايا

بالإضافة إلى دالة SUBSTITUTE أعلاه، يمكن أن تساعد وظيفة البحث والاستبدال أيضًا في إزالة جميع المسافات من الخلايا.

1. حدد الخلايا التي تحتوي على المسافات التي ستزيلها، واضغط على مفاتيح Ctrl + H لفتح نافذة الحوار البحث والاستبدال.

2. في نافذة الحوار البحث والاستبدال وتحت علامة الاستبدال، اكتب مسافة واحدة في مربع النص البحث عن، اترك مربع النص استبدال ب فارغًا، ثم انقر على زر استبدال الكل.

إزالة المسافات البادئة، المسافات اللاحقة، الزائدة وجميع المسافات من الخلايا بسهولة باستخدام Kutools

1. حدد نطاقًا أو عدة نطاقات تحتوي على الخلايا التي ستزيل منها المسافات، انقر فوق Kutools > نص > إزالة المسافات. انظر لقطة الشاشة:

2. يمكنك رؤية وجود 5 خيارات في نافذة حوار إزالة المسافات:

• لإزالة المسافات البادئة فقط، يرجى تحديد خيار المسافات البادئة;
• لإزالة المسافات اللاحقة فقط، يرجى تحديد خيار المسافات اللاحقة;
• لإزالة المسافات البادئة والمسافات اللاحقة في نفس الوقت، يرجى تحديد خيار المسافات البادئة واللاحقة;
• لإزالة جميع المسافات الزائدة (بما في ذلك المسافات البادئة، المسافات اللاحقة، المسافات الزائدة بين الكلمات)، يرجى تحديد خيار جميع المسافات الزائدة;
• لإزالة جميع المسافات، يرجى تحديد خيار جميع المسافات.

ثم انقر على زر موافق لبدء العملية.

حالات عملية أخرى متعلقة بمسافات Excel

بالإضافة إلى إزالة المسافات من الخلايا، هل واجهت ظروفًا مثل حساب عدد المسافات، إضافة مسافات، أو استبدال المسافات برموز أخرى في الخلايا؟ قد تكون التوصيات أدناه مفيدة لتسريع عملك في Excel.

---

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

Kutools لـ Excel يحل معظم مشاكلك ويزيد من إنتاجيتك بنسبة 80%

• شريط الصيغة الفائق (تحرير سهل للنصوص والصيغ المتعددة الأسطر); تخطيط القراءة (قراءة وتحرير سهل للخلايا الكبيرة العدد); لصق إلى النطاق المُرشح...
• دمج الخلايا/الصفوف/الأعمدة مع الاحتفاظ بالبيانات; تقسيم محتوى الخلايا; دمج الصفوف المكررة والمجموع/المتوسط... منع الخلايا المكررة; مقارنة النطاقات...
• تحديد الصفوف المكررة أو الفريدة; تحديد الصفوف الفارغة (جميع الخلايا فارغة); البحث المتقدم والبحث الضبابي في العديد من المصنفات; اختيار عشوائي...
• نسخ دقيق للخلايا المتعددة دون تغيير مرجع الصيغة; إنشاء تلقائي للمراجع إلى أوراق متعددة; إدراج رموز تعداد نقطي، مربعات اختيار وأكثر...
• تفضيل وإدراج سريع للصيغ، النطاقات، الرسوم البيانية والصور; تشفير الخلايا بكلمة مرور; إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني...
• استخراج النص، إضافة نص، إزالة الأحرف في موضع محدد، إزالة المسافات; إنشاء وطباعة إحصاءات صفحة البيانات; التحويل بين محتويات الخلايا والتعليقات...
• مرشح متقدم (حفظ وتطبيق مخططات التصفية على أوراق أخرى); ترتيب متقدم حسب الشهر/الأسبوع/اليوم، التكرار وأكثر; تصفية خاصة حسب العريض، المائل...
• تجميع المصنفات وأوراق العمل; دمج الجداول بناءً على الأعمدة الرئيسية; تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls، xlsx وPDF...
• تجميع جدول محوري حسب رقم الأسبوع، يوم الأسبوع وأكثر... عرض الخلايا غير المؤمنة، المؤمنة بألوان مختلفة; تمييز الخلايا التي تحتوي على صيغة/اسم...

اقرأ المزيد... تجربة مجانية لمدة 30 يومًا بكامل الميزات... شراء... 

---

Office Tab - يجلب واجهة التبويب إلى Office، ويجعل عملك أسهل بكثير

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

اقرأ المزيد... تجربة مجانية لمدة 30 يومًا بكامل الميزات... شراء...