لسوء الحظ ، لا توجد طريقة مباشرة لإضافة مسافات قبل الأحرف الكبيرة في Excel ، ولكن يمكنك إنشاء وظيفة محددة بواسطة المستخدم لحل هذه المهمة.

1. قم بتنشيط ورقة العمل الخاصة بك التي تحتوي على سلاسل النص التي تريد إضافة مسافات إليها.

2. اضغط باستمرار على ALT + F11 مفاتيح لفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات.

3. انقر إدراج > وحدة، والصق الكود التالي في ملف نافذة الوحدة.

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

Function AddSpaces(pValue As String) As String
'Update 20140723
Dim xOut As String
xOut = VBA.Left(pValue, 1)
For i = 2 To VBA.Len(pValue)
   xAsc = VBA.Asc(VBA.Mid(pValue, i, 1))
   If xAsc >= 65 And xAsc <= 90 Then
      xOut = xOut & " " & VBA.Mid(pValue, i, 1)
   Else
      xOut = xOut & VBA.Mid(pValue, i, 1)
   End If
Next
AddSpaces = xOut
End Function

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

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

قم بإزالة المسافات البادئة / اللاحقة / الزائدة في الخلايا بسهولة

كوتولس ل إكسيل إزالة المسافات تتيح الأداة المساعدة لمستخدمي Excel إمكانية إزالة جميع المسافات البادئة ، والمسافات الزائدة ، والمسافات الزائدة ، أو جميع المسافات من الخلايا المحددة بسهولة.

إليك رمز VBA آخر يمكنه تقديم خدمة لك ، يرجى القيام بما يلي:

1. اضغط باستمرار على ALT + F11 مفاتيح لفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات.

2. انقر إدراج > وحدة، والصق الكود التالي في ملف نافذة الوحدة.

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

Sub AddSpacesRange()
'Update 20140723
Dim Rng As Range
Dim WorkRng As Range
Dim xOut As String
Dim xValue As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
For Each Rng In WorkRng
    xValue = Rng.Value
    xOut = VBA.Left(xValue, 1)
    For i = 2 To VBA.Len(xValue)
       xAsc = VBA.Asc(VBA.Mid(xValue, i, 1))
       If xAsc >= 65 And xAsc <= 90 Then
          xOut = xOut & " " & VBA.Mid(xValue, i, 1)
       Else
          xOut = xOut & VBA.Mid(xValue, i, 1)
       End If
    Next
    Rng.Value = xOut
Next
Application.ScreenUpdating = True
End Sub

3. ثم اضغط F5 مفتاح لتنفيذ هذا الرمز ، سيظهر مربع موجه للسماح لك بتحديد نطاق البيانات الذي تريد استخدامه.

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

كوتولس ل إكسيل إضافة نص يمكن أن تساعدك الأداة المساعدة في تجاوز وحدات ماكرو VBA وإدخال مساحة قبل كل أحرف كبيرة بسهولة في Excel.

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

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

3. انقر على Ok زر لإدخال مسافة قبل كل أحرف كبيرة كما هو موضح في لقطة الشاشة التالية:

ملاحظة: ستضيف هذه الطريقة أيضًا مسافة في بداية الخلايا إذا كان الحرف الأول كبيرًا. يمكنك تطبيق كوتولس > نص > إزالة المسافات لإزالة كافة المسافات البادئة من الخلايا المحددة.

كيفية إضافة مسافات بعد الفواصل في إكسيل؟