KutoolsforOffice — حل واحد، خمس أدوات قوية.تحقيق المزيد بجهد أقل.

كيف تُدرج مسافات قبل الأحرف الكبيرة في Excel؟

المؤلفXiaoyangتاريخ التعديل

يُعد تنسيق البيانات بشكل صحيح في Excel أمرًا بالغ الأهمية لتحقيق الوضوح وتسهيل التحليل، خاصة عند التعامل مع سلاسل نصية مستوردة أو مجمّعة تفتقر إلى قابلية القراءة. ومن بين أكثر الحالات شيوعًا التي قد تواجهها وجود نصوص تكون كلماتها مدمجة دون مسافات، مثل «DataFormattingTool»، مما يجعل قراءتها أو معالجتها تحديًا حقيقيًّا. ويُسهّل إدخال مسافات قبل كل حرف كبير فصل الكلمات بوضوح، ما يجعل جداول البيانات أكثر سهولة في الاستخدام وأكثر احترافية عند عرضها أو مشاركتها لأغراض تفسير البيانات. ويستعرض هذا الدليل طرقًا عملية متعددة يمكنك تطبيقها بسرعة لإضافة مسافات قبل كل حرف كبير في Excel، لضمان بقاء بياناتك منظمة وسهلة الإدارة في مختلف السيناريوهات.

إدراج مسافات قبل الأحرف الكبيرة

إدراج مسافات قبل كل حرف كبير في Excel

إدراج مسافات قبل كل حرف كبير باستخدام صيغة (Excel 2019 والإصدارات الأحدث)

يُعد استخدام صيغ Excel وسيلةً مباشرةً وموثوقةً لإدراج مسافات قبل الأحرف الكبيرة، دون الحاجة إلى أي مهارات برمجية أو أدوات خارجية. وهي مثاليةٌ خصوصًا للمستخدمين الراغبين في أتمتة هذه العملية باستخدام دوال Excel المضمنة. وتستفيد الطريقة التالية من دوال الصفائف الديناميكية ووظائف معالجة النصوص الحديثة المتاحة في Excel 2019 وExcel 2021 وMicrosoft 365.

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

لتطبيق ذلك، اتبع الخطوات التالية:

1. انسخ والصق الصيغة التالية في خلية فارغة (على سبيل المثال، الخلية B2 إذا كان النص الأصلي في الخلية A2)، ثم اضغط Enter للحصول على النتيجة الأولى في Excel 365 أو 2021. أما في Excel 2019، فاستخدم Ctrl+Shift+Enter لتطبيقها كصيغة صفيف:

=TRIM(LEFT(A2,1) & TEXTJOIN("", TRUE, IF(CODE(MID(A2, ROW(INDIRECT("2:" & LEN(A2))), 1))>=65, IF(CODE(MID(A2, ROW(INDIRECT("2:" & LEN(A2))), 1))<=90, " "&MID(A2, ROW(INDIRECT("2:" & LEN(A2))), 1), MID(A2, ROW(INDIRECT("2:" & LEN(A2))), 1)), MID(A2, ROW(INDIRECT("2:" & LEN(A2))), 1))))

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

إدراج مسافات قبل الأحرف الكبيرة باستخدام صيغة

شرح هذه الصيغة:
  • LEFT(A2,1): تُعيد الحرف الأول من السلسلة دون تغيير، لتجنب إضافة مسافة غير ضرورية في البداية.
  • INDIRECT("2:" & LEN(A2)): يُولِّد تسلسلاً يشير إلى كل حرف لاحق حسب موضعه، بدءًا من الحرف الثاني حتى نهاية السلسلة.
  • MID(A2, ROW(...),1): تستخرج حرفًا واحدًا في كل مرة وفقًا لموضعه.
  • CODE(...): تقيّم كل حرف مستخرج لفحص قيمته وفق معيار ASCII؛ حيث تمثّل القيم من 65 إلى 90 الأحرف الإنجليزية الكبيرة (A–Z).
  • TEXTJOIN(«», TRUE, ...): تدمج كل حرف، مع إدخال مسافة قبل الأحرف الكبيرة، وتتجاهل أي نص فارغ عند تعيين المعامل إلى TRUE.
  • TRIM(...): تزيل المسافات الزائدة من البداية والنهاية، بما في ذلك الفراغات الخلفية التي قد تُضاف أثناء المعالجة.

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

إدراج مسافات قبل كل حرف كبير باستخدام Kutools لـ Excel

توفّر أداة «Kutools لـ Excel» طريقةً فعّالةً للغاية لإدراج مسافات قبل كل حرف كبير عبر نطاق البيانات المحدّد بالكامل. وتُبسّط ميزة «إضافة نص» المدمجة هذه العملية، وتشكّل بديلاً عمليًا للمستخدمين الراغبين في إنجاز المهمة بنقراتٍ قليلة—دون الحاجة إلى تذكّر صيغ معقّدة أو استخدام أكواد.

السيناريو المناسب:هذا الحل مثالي للمستخدمين الذين يتعاملون غالبًا مع مجموعات بيانات ضخمة، أو يفضلون واجهة رسومية سهلة الاستخدام، أو لا يشعرون بالراحة عند التعامل مع الصيغ والأكواد. فهو يُتيح تنفيذ عمليات جماعية بسرعة فائقة ويقلل من احتمالية الوقوع في أخطاء الصيغ. والشرط الوحيد هو تثبيت Kutools لـ Excel.

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

1. حدد نطاق الخلايا التي تريد إضافة مسافات قبل الأحرف الكبيرة فيها، ثم انتقل إلى قائمة ‹Kutools› > ‹Text› > ‹إضافة نص› لفتح الخيارات ذات الصلة.
انقر على إضافة نص من Kutools

2. في مربع الحوار «إضافة نص»، أدخل مسافة في حقل «Text». بعد ذلك، فعّل خيار «Only add to» واختر «قبل الحروف الكبيرة» من القائمة المنسدلة.
تحديد الخيارات في مربع الحوار

3. انقر فوق «موافق» لتطبيق التغييرات. سيتم إدراج مسافة قبل كل حرف كبير في تحديدك، كما هو موضح أدناه:
إدراج مسافة قبل كل حرف كبير باستخدام Kutools

احتياطات:

  • تحقق بعناية من تحديدك، لأن هذه العملية تُطبَّق مباشرةً على بياناتك. ومن الممارسات الجيدة أن تحتفظ بنسخة احتياطية قبل استخدام ميزات التحرير الجماعي.
  • هذه الدالة حساسة لحالة الأحرف، وتؤثر فقط على الأحرف الكبيرة (A-Z).

إدراج مسافات قبل كل حرف كبير باستخدام دالة معرّفة من قبل المستخدم (UDF)

للمستخدمين الذين يحتاجون إلى مرونة أكبر أو يبحثون عن حلٍّ قابل لإعادة الاستخدام لمعالجة مخصصة، يُتيح لك إنشاء دالة معرّفة من قبل المستخدم (UDF) في VBA تنفيذ منطق دقيق لإدراج المسافات قبل الحروف الكبيرة. وتحافظ هذه الطريقة على ديناميكية جدول البيانات، إذ تعمل الدالة تمامًا مثل أي صيغة Excel أخرى وتتجدّد تلقائيًا.

المزايا:توفر تخصيصًا كاملاً، ويمكن إعادة استخدامها عبر مصنفات مختلفة بمجرد نسخ الكود.
العيوب:تتطلب معرفة أساسية بمُحرر VBA، وقد لا تعمل الصيغ القائمة على UDF في جميع بيئات Excel—خاصةً في Excel Online أو عند وجود قيود معينة على الماكرو.

1. افتح ورقة العمل التي تحتوي على سلاسل النصوص التي تريد معالجتها.

2. اضغطALT + F11 لفتح محرر Microsoft Visual Basic for Applications (VBA).

3. في محرر VBA، انقر فوق «Insert» > «Module»، ثم انسخ والصق الكود التالي في نافذة الوحدة (Module) التي تم إنشاؤها حديثًا.

كود VBA: إدراج مسافات قبل الأحرف الكبيرة

Function AddSpaces(pValue As String) As String
'Updateby Extendoffice
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. احفظ مشروعك، ثم أغلق محرر VBA وعد إلى ورقة العمل. في خلية فارغة مجاورة لبياناتك (مثل B2 إذا كانت بياناتك في A2)، أدخل الصيغة التالية واضغط Enter:

=addspaces(A2)

اسحب مقبض التعبئة الخاص بالخلية لأسفل لتطبيق صيغة UDF على باقي القائمة، وستعرض كل سلسلة نصية مسافاتٍ مُدرجةً قبل كل حرف كبير كما تم تصميمها.

إدراج مسافة قبل كل حرف كبير باستخدام دالة معرفة من المستخدم

نصائح واستكشاف الأخطاء وإصلاحها:

  • لضمان بقاء الدالة المعرّفة من قبل المستخدم (UDF) متاحة بعد إعادة فتح الملف، احفظ المصنف كملف يدعم ماكرو (*.xlsm أو *.xlsb).
  • سيؤدي أي تعديل تُجريه على بيانات النص إلى تحديث مخرجات الدالة المعرَّفة من قِبل المستخدم (UDF) تلقائيًا.
  • الدوال المعرَّفة من قِبل المستخدم (UDFs) غير مدعومة في Excel Online أو في بعض بيئات الماكرو المقيدة.

 

إدراج مسافات قبل كل حرف كبير باستخدام كود VBA

إذا كنت تفضّل حلاً يُمكّنك من معالجة نطاق واسع من البيانات دفعة واحدة وإدخال تعديلات دائمة مباشرةً في ورقة العمل الخاصة بك، فإن استخدام ماكرو VBA يُعد خيارًا ممتازًا. وهي الطريقة الأنسب للمستخدمين المتقدمين أو للمهام التي تُنفَّذ لمرة واحدة لتنظيف البيانات، نظرًا لأنها تُجري التغييرات مباشرةً على الخلايا المحددة في مكانها.

المزايا:تعالج مجموعات البيانات الكبيرة بكفاءة، ولا تتطلب إدخال صيغ في الخلايا، كما تمنحك تحكمًا أكبر في الخلايا التي سيتم معالجتها.

اعتبارات:نظرًا لأن هذه الطريقة تُعدّل بياناتك مباشرةً، احتفظ دائمًا بنسخة احتياطية قبل تشغيل الماكرو. وقد تكون الماكرو معطَّلة افتراضيًا في بعض المصنفات لأسباب أمنية—فعِّل الماكرو عند الحاجة للمتابعة.

1. اضغطALT + F11لفتح نافذة «Microsoft Visual Basic for Applications».

2. انقر فوق «Insert» > «Module»، ثم الصق الكود التالي في نافذة الوحدة (Module):

كود VBA: إدراج مسافات قبل الأحرف الكبيرة

Sub AddSpacesRange()
'Updateby Extendoffice
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" أو انقر على زر «تشغيل» لتنفيذ الماكرو. بعد التنفيذ، سيظهر لك مربع حوار يطلب منك اختيار النطاق الذي تريد تعديله.
كود VBA لتحديد نطاق البيانات

4. بعد تحديد النطاق والنقر على «موافق»، سيُدرج الماكرو فورًا مسافات قبل جميع الأحرف الكبيرة في الخلايا المحددة.
إدراج مسافات قبل الأحرف الكبيرة باستخدام كود VBA

ملاحظات لاستكشاف الأخطاء وإصلاحها:

  • إذا بدا أن الماكرو لا يُحدث أي تأثير، فتأكد من أنك حددت النطاق الصحيح، وأن الماكرو مفعّل في إعدادات Excel لديك.
  • لا يمكن التراجع عن هذه العملية بمجرد تنفيذها. استخدم نسخة احتياطية إذا لم تكن متأكدًا.
  • تم تحسين الماكرو للعمل بسلاسة مع الأحرف الإنجليزية الكبيرة (A-Z)، وقد تختلف النتائج عند استخدام أحرف غير قياسية أو أبجديات محلية.

بغض النظر عن الطريقة التي تختارها، فإن إدراج مسافات قبل كل حرف كبير في Excel سيُحسّن وضوح سلاسل النصوص الخاصة بك بشكلٍ ملحوظ! كل طريقة مثالية لسيناريوهات معيّنة: الصيغ للحسابات الديناميكية، وأداة Kutools لأتمتة سهلة الاستخدام، والدوال المعرّفة من قِبل المستخدم (UDFs) لإعادة الاستخدام، ورمز VBA للعمليات الجماعية القوية. قبل تطبيق أيٍّ من هذه التقنيات على نطاق واسع، تأكد من التحقق الدقيق من بياناتك، واحتفظ دائمًا بنسخة احتياطية من القيم الأصلية لتجنب فقدانها عن طريق الخطأ أثناء المعالجة. وفي حال واجهت أخطاءً، راجع خطواتك واحدةً تلو الأخرى، وتأكد من أن إصدار Excel الذي تستخدمه يدعم الدوال أو الرمز المُطبَّق. لمزيد من استراتيجيات حل المشكلات والنصائح الاحترافية في Excel،استكشف مجموعتنا الواسعة من الدروس التعليمية.

المقالة ذات الصلة:

كيف تضيف مسافات تلقائيًا بعد الفواصل في Excel؟

أفضل أدوات الإنتاجية لمكتبتك

🤖KUTOOLS AI مساعد: ثوّر تحليل البيانات استنادًا إلى:التنفيذ الذكي   |  إنشاء الكود|  إنشاء الصيغ المخصصة  |  تحليل البيانات وإنشاء المخططات البيانية|  استدعاء الوظائف المحسنة…
الميزات الشائعة:البحث، التمييز أو وضع علامة على المكررات   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |  التقريب بدون استخدام الصيغة...
بحث متقدم:VLookup متعدد المعايير  |  VLookup متعدد القيم  |   VLookup عبر أوراق متعددة   |   مطابقة غامضة....
قائمة منسدلة متقدمة:إنشاء قائمة منسدلة بسرعة   |  قائمة منسدلة تابعة   |  قائمة منسدلة متعددة الاختيار....
مدير الأعمدة:إضافة عدد محدد من الأعمدة|نقل الأعمدة|تبديل حالة ظهور الأعمدة المخفية|مقارنة النطاقات والأعمدة...
ميزات مميزة:التركيز على الشبكة   |  عرض التصميم   |شريط الصيغ المحسن   | مدير الدفتر والورقة   |  مكتبة الموارد(نص تلقائي)|  أداة اختيار التاريخ   |  تجميع ورقات العمل  |  تشفير/فك تشفير الخلايا   | إرسال رسائل البريد الإلكتروني حسب القائمة   |  مرشح متقدم   |   تصفية خاصة(تصفية الخلايا التي تحتوي على خط عريض/مائل/يتوسطه خط...) ...
أفضل 15 مجموعات الأدوات:12 أدواتالنصوص(إضافة نص،حذف الأحرف المحددة، ...)|   50+أنواعالمخططات البيانية(مخطط جانت، ...)|   40+ صيغعملية(حساب العمر بناءً على تاريخ الميلاد، ...)|   19 أدواتالإدراج(إدراج رمز QR،إدراج صورة من المسار، ...)|   12 أدواتالتحويل(تحويل إلى كلمات،تحويل العملة، ...)|   7 أدواتدمج وتقسيم(دمج متقدم للصفوف،تقسيم الخلايا، ...)|... وأكثر من ذلك
استخدم Kutools باللغة التي تفضلها – يدعم الإنجليزية والإسبانية والألمانية والفرنسية والصينية و40+ لغات أخرى!

عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...

يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير

  • تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
  • افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
  • يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!

جميع الإضافات من Kutools في برنامج تثبيت واحد!

Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.

ExcelWordOutlookTabsPowerPoint
  • حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
  • برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
  • يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
  • تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
  • أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل