كيفية إزالة/حذف جميع المسافات بعد الحرف الأخير في 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. في مربع الحوار إزالة المسافات، يرجى تحديد خيار المسافات الزائدة، ثم انقر فوق زر موافق. شاهد لقطة الشاشة:

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

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