كيفية إدخال مسافات قبل الأحرف الكبيرة في Excel؟
لنفترض أن لديك قائمة بالسلاسل النصية والتي تمت إزالة جميع المسافات بين الكلمات عن طريق الخطأ ، مثل هذا: إدراج صفوف فارغة بين البيانات، والآن تريد إضافة المسافات قبل كل حرف بأحرف كبيرة للفصل بين الكلمات أدخل صفوفًا فارغة بين البيانات. كيف يمكنك إضافة مسافات أمام الأحرف الكبيرة بسرعة بدلاً من كتابة المسافات واحدة تلو الأخرى في Excel؟
- أدخل مسافات قبل الأحرف الكبيرة باستخدام الوظيفة المحددة بواسطة المستخدم
- أدخل مسافات قبل الأحرف الكبيرة برمز VBA
- أدخل مسافة قبل كل أحرف كبيرة باستخدام Kutools for Excel
أدخل مسافات قبل الأحرف الكبيرة باستخدام الوظيفة المحددة بواسطة المستخدم
لسوء الحظ ، لا توجد طريقة مباشرة لإضافة مسافات قبل الأحرف الكبيرة في 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
إليك رمز 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 لإغلاق مربع المطالبة هذا ، تم إدخال المسافات قبل الأحرف الكبيرة مرة واحدة ، انظر لقطة الشاشة:
أدخل مسافة قبل كل أحرف كبيرة باستخدام Kutools for Excel
كوتولس ل إكسيل إضافة نص يمكن أن تساعدك الأداة المساعدة في تجاوز وحدات ماكرو VBA وإدخال مساحة قبل كل أحرف كبيرة بسهولة في Excel.
كوتولس ل إكسيل - مزود بأكثر من 300 أداة أساسية لبرنامج Excel. استمتع بتجربة مجانية كاملة المواصفات لمدة 30 يومًا دون الحاجة إلى بطاقة ائتمان! التحميل الان!
1. حدد النطاق الذي ستدخل فيه مسافة قبل الأحرف الكبيرة ، وانقر فوق كوتولس > نص > إضافة نص. انظر لقطة الشاشة:
2. في مربع الحوار فتح إضافة نص ، اكتب مسافة في ملف نص مربع ، تحقق من أضف فقط إلى الخيار وحدد الحرف الأول كبير من أضف فقط إلى قائمة منسدلة.
3. انقر على Ok زر لإدخال مسافة قبل كل أحرف كبيرة كما هو موضح في لقطة الشاشة التالية:
كوتولس ل إكسيل - شحن برنامج Excel بأكثر من 300 أداة أساسية. استمتع بتجربة مجانية كاملة المواصفات لمدة 30 يومًا دون الحاجة إلى بطاقة ائتمان! احصل عليه الآن
ملاحظة: ستضيف هذه الطريقة أيضًا مسافة في بداية الخلايا إذا كان الحرف الأول كبيرًا. يمكنك تطبيق كوتولس > نص > إزالة المسافات لإزالة كافة المسافات البادئة من الخلايا المحددة.
مقالة ذات صلة:
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!