كيفية إضافة مسافة بين الاسم الأول والاسم الأخير في Excel؟

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

إضافة مسافة بين الاسم الأول والاسم الأخير باستخدام دالة معرفة

إضافة مسافة بين الاسم الأول والاسم الأخير باستخدام Kutools لـ Excel

إضافة مسافة بين الاسم الأول والاسم الأخير باستخدام دالة معرفة

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

1. اضغط على مفاتيح Alt + F11 لفتح نافذة Microsoft Visual Basic for Applications.

2. انقر فوق إدراج > وحدة، والصق الكود أدناه في النص الفارغ.

الكود: إضافة مسافة بين الأسماء

Function AddSpaces(pValue As String) As String
'UpdatebyExtendoffice20160908
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

3. احفظ الكود وأغلق التطبيقات نافذة، حدد خلية فارغة وأدخل هذه الصيغة =AddSpaces(A1)، ثم اسحب مقبض التعبئة التلقائية عبر الخلايا التي تريد تطبيق هذه الصيغة عليها.

إضافة مسافة بين الاسم الأول والاسم الأخير باستخدام Kutools لـ Excel

إذا لم تكن معتادًا على الدوال المعرفة، يمكنك تطبيق أداة إضافة النص من Kutools لـ Excel لإضافة مسافة بسرعة بين الاسم الأول والاسم الأخير.

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

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

3. انقر فوق موافق أو تطبيق، الآن تم إضافة مسافة قبل كل حرف كبير. شاهد لقطة الشاشة:

تلميحإذا كنت تريد إزالة المسافة الأمامية، يمكنك تطبيق Kutools لـ Excel’s إزالة المسافات الأداة، يمكن أن تساعدك في إزالة المسافات الأمامية، المسافات الخلفية، المسافات الإضافية أو جميع المسافات حسب الحاجة.

عرض: إضافة مسافات بين الأسماء باستخدام Kutools لـ Excel