كيفية إضافة فاصلة بين كل رقم في خلية من خلايا Excel؟

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

إضافة فاصلة أو فاصل آخر بين كل رقم في خلية

• مع استخدام دالة TEXTJOIN (Excel 2019 والإصدارات الأحدث)
• مع Kutools لـ Excel
• مع الدالة المعرفة من قبل المستخدم

إضافة فاصلة أو فاصل آخر بين كل رقم باستخدام دالة TEXTJOIN

إذا كنت تستخدم Excel 2019 أو إصدارًا أحدث، يمكنك استخدام دالة TEXTJOIN لإدراج فواصل بين كل رقم.

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

2. بعد ذلك، اسحب الصيغة لأسفل لتطبيقها على الخلايا الأخرى. الآن يمكنك رؤية أن الأرقام في الخلية مفصولة بفاصلة.

=TEXTJOIN(",", TRUE, MID(A2, ROW(INDIRECT("1:"&LEN(A2))), 1))

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

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

بعد تثبيت Kutools لـ Excel، انقر على "Kutools" > "Text"  > "Add Text" للانتقال إلى مربع الحوار "Add Text".

في مربع الحوار "Add Text"، قم بتكوين الإعدادات التالية:

1. في مربع النص "Text"، أدخل الفاصلة أو الفاصل الآخر الذي تحتاجه؛
2. حدد خيار "بين الحروف" من قائمة "Only add to" المنسدلة؛
3. أخيرًا، انقر على زر "OK".
   

النتيجة: ستقوم Kutools بإدراج الفاصل المحدد تلقائيًا بين كل رقم في الخلايا المحددة. شاهد لقطة الشاشة:

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

يقدم هذا القسم شرحًا تفصيليًا لإنشاء وتحسين UDF لهذا الغرض.

1. اضغط على "Alt" + "F11" لفتح محرر VBA في Excel.
2. في المحرر، انتقل إلى "Insert" > "Module" لإنشاء وحدة جديدة.
   كود VBA: إضافة فاصلة بين كل رقم

   Function AddCommas(inputText As String) As String
   'Updateby Extendoffice
       Dim i As Integer
       Dim result As String
       For i = 1 To Len(inputText)
           result = result & Mid(inputText, i, 1) & ","
       Next i
       AddCommas = Left(result, Len(result) - 1)
   End Function
   

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

   =AddSeparator(A2)

   

باتباع هذه الطرق ونصائح التحسين، يمكنك إضافة فواصل بين كل رقم في خلية من خلايا Excel بفعالية، مما يعزز قابلية القراءة وقدرات معالجة البيانات. إذا كنت مهتمًا باستكشاف المزيد من نصائح وحيل Excel، موقعنا الإلكتروني يقدم آلاف الدروس التعليمية.