كيفية إزالة/حذف جميع المسافات بعد الحرف الأخير في Excel؟
لإزالة جميع المسافات بعد الحرف الأخير (المسافات الزائدة) من الخلايا، ماذا ستفعل؟ سيعرض لك هذا المقال طريقتين للتعامل مع هذه المشكلة.
إزالة جميع المسافات بعد الحرف الأخير باستخدام كود VBA
إزالة جميع المسافات بعد الحرف الأخير بسهولة باستخدام Kutools لـ Excel
إزالة جميع المسافات بعد الحرف الأخير باستخدام كود VBA
يمكن أن يساعدك الكود التالي من VBA على إزالة جميع المسافات بعد الحرف الأخير من الخلايا.
1. حدد الخلايا التي تحتاج إلى إزالة جميع المسافات بعد الحرف الأخير منها، ثم اضغط على مفتاحي Alt + F11 في نفس الوقت لفتح نافذة Microsoft Visual Basic for Applications.
2. في نافذة Microsoft Visual Basic for Applications، يرجى النقر فوق إدراج > وحدة. ثم قم بنسخ ولصق الكود التالي من VBA في نافذة الوحدة.
كود VBA: إزالة جميع المسافات بعد الحرف الأخير
Sub NoSpaces()
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Please select range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
For Each xCell In xRg
xCell.Value = RTrim(xCell.Value)
Next
Application.ScreenUpdating = True
End Sub
3. اضغط على مفتاح F5 لتشغيل الكود، ثم ستظهر نافذة منبثقة من Kutools لـ Excel، يرجى تحديد النطاق الذي تحتاج إلى إزالة جميع المسافات بعد الحرف الأخير منه، ثم انقر فوق زر موافق.
الآن سيتم إزالة جميع المسافات بعد الحرف الأخير من الخلايا المحددة فوراً.
إزالة جميع المسافات بعد الحرف الأخير بسهولة باستخدام Kutools لـ Excel
في هذا القسم، سنوصي لك بأداة إزالة المسافات من Kutools لـ Excel. باستخدام هذه الأداة، يمكنك إزالة ليس فقط المسافات الزائدة، ولكن أي نوع آخر من المسافات مثل المسافات الأمامية أو الزائدة بنقرات قليلة كما تحتاج.
1. حدد نطاق الخلايا التي تحتاج إلى إزالة جميع المسافات بعد الحرف الأخير منها. ثم انقر فوق Kutools > نص > إزالة المسافات. شاهد لقطة الشاشة:
2. في مربع الحوار إزالة المسافات، يرجى تحديد خيار المسافات الزائدة، ثم انقر فوق زر موافق. شاهد لقطة الشاشة:
ثم تتم إزالة جميع المسافات بعد الحرف الأخير من الخلايا المحددة دفعة واحدة.
ملاحظة: إذا كنت تريد إزالة جميع المسافات الأمامية أو غيرها من المسافات حسب الحاجة، يرجى تحديد الخيار المقابل في مربع الحوار إزالة المسافات، ثم تطبيق الوظيفة.
إذا كنت ترغب في الحصول على نسخة تجريبية مجانية (30 يوم) من هذه الأداة، يرجى النقر لتنزيلها، ثم الانتقال لتطبيق العملية وفقًا للخطوات المذكورة أعلاه.
أفضل أدوات الإنتاجية لمكتب العمل
عزز مهاراتك في 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 يومًا — بدون تسجيل، بدون بطاقة ائتمان
- قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد