كيفية إزالة / حذف جميع المسافات بعد الحرف الأخير في إكسيل؟

لحذف كل المسافات بعد الحرف الأخير (المسافات اللاحقة) من الخلايا ، ماذا ستفعل؟ ستوضح لك هذه المقالة طريقتين للتعامل معها.

قم بإزالة جميع المسافات بعد الحرف الأخير برمز VBA
قم بإزالة جميع المسافات بسهولة بعد الحرف الأخير باستخدام Kutools for Excel

قم بإزالة جميع المسافات بعد الحرف الأخير برمز VBA

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

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

2. في ال ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، الرجاء الضغط إدراج > وحدة. ثم انسخ والصق رمز فبا التالي في نافذة الوحدة النمطية.

كود فبا: أزل كل المسافات بعد الحرف الأخير

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

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

قم بإزالة جميع المسافات بسهولة بعد الحرف الأخير باستخدام Kutools for Excel

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

1. حدد نطاق الخلايا الذي تريد إزالة جميع المسافات بعد الحرف الأخير. ثم اضغط كوتولس > نص > إزالة المسافات. انظر لقطة الشاشة:

2. في ال إزالة المسافات مربع الحوار ، الرجاء تحديد مسافات زائدة الخيار ، ثم انقر فوق OK زر. انظر لقطة الشاشة:

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

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