Excel يضيف تقسيم حسب النص والرقم إلى موضع محدد في الخلية

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

ملاحظة

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

انقر لتنزيل ملف العينة

يعرض هذا الجزء طرقًا مختلفة لإضافة أحرف إلى بداية كل خلية كما هو موضح في لقطة الشاشة أدناه:

1.1 الإضافة إلى بداية الخلايا باستخدام صيغة

يمكنك هنا اختيار إحدى الصيغ الثلاث التالية:

الصيغة 1: عامل الربط «&»

ادمج نصوصًا متعددة معًا باستخدام رمز العَطف «&».

«نص»&خلية

الصيغة 2: دالة CONCATENATE

تُستخدم دالة CONCATENATE لدمج النصوص بسلاسة في نصٍ واحد.

CONCATENATE(«نص»،خلية)

الصيغة 3: دالة CONCAT

هذه دالة جديدة تتوفر حصريًا في Excel 2019 وOffice 365 وExcel عبر الإنترنت.

CONCAT(«نص»،خلية)

في الصيغ العامة: تمثّل «الخلية» مرجع الخلية التي تحتوي على النص الذي تريد إضافة بادئة إليه، بينما يمثّل «النص» البادئة التي سيتم إضافتها إلى محتوى تلك الخلية.

باستخدام المثال أعلاه، يمكنك استخدام الصيغ في شريط الصيغة كما يلي:

«&»

=$E$3&B3أو=«Iphone»&B3

دالة CONCATENATE

=CONCATENATE($E$3,B3)أو=CONCATENATE(«Iphone»,B3)

دالة CONCAT

=CONCAT($E$3,B3)أو=CONCAT(«Iphone»,B3)

اضغط علىEnter للحصول على النتيجة، ثم اسحب مقبض الملء التلقائي لأسفل حتى يُضاف النص إلى كل خلية في النطاق B3:B6.

1.2 الإضافة إلى بداية الخلايا باستخدام الملء الفوري (Flash Fill)

إذا كنت تستخدم Excel 2013 أو إصدارًا أحدث، فإن الميزة القوية الجديدةالملء الفوري (Flash Fill)قادرة على ملء الخلايا تلقائيًّا بناءً على ما أدخلته في الخلايا أعلاه.

اختر خلية بجانب أول بيانات أصلية، واكتب يدويًّا أول بيانات مع نص البادئة كما هو موضح أدناه:

ثم في الخلية التالية، استمر في كتابة البيانات الثانية مع نص البادئة. أثناء الكتابة، ستظهر لك قائمة باللون الرمادي—اضغط علىEnter ليقوم الملء الفوري (Flash Fill) بملء البيانات تلقائيًّا.

إذا لم تظهر قائمة المعاينة، فالرجاء الانتقال إلى تبويب الصفحة الرئيسية (Home)، ثم انقر علىملء (Fill) > الملء الفوري (Flash Fill)لتشغيله يدويًّا.

1.3 الإضافة إلى بداية الخلايا باستخدام كود VBA

إذا كنت معتادًا على استخدام كود VBA، فإليك كود VBA يُضيف نصًا إلى بداية كل خلية ضمن نطاق معيّن.

1. حدد نطاق الخلايا التي تريد إضافة نص البادئة إليها، ثم اضغط علىAlt+F11 لفتح نافذةMicrosoft Visual Basic for Applications.

2. بعد ذلك، في النافذة المنبثقة، انقر فوقإدراج > وحدةلإدراج وحدة جديدة فارغة.

3. انسخ والصق كود VBA أدناه في الوحدة الجديدة.

VBA: إضافة في بداية الخلايا

Sub AppendToExistingOnLeft()
Dim c As Range
For Each c In Selection
If c.Value <> "" Then c.Value = "Iphone" & c.Value
Next
End Sub

4. اضغط على مفتاحF5 أو انقر فوق زرتشغيلفي النافذة لتنشيط كود VBA.

أُضيف نص «iPhone» الآن إلى بداية جميع الخلايا المحددة.

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

2.1 إضافة في نهاية الخلايا باستخدام صيغة

يمكنك هنا اختيار إحدى الصيغ الثلاث التالية:

الصيغة 1: عامل الربط «&»

ادمج نصوصًا متعددة معًا باستخدام رمز العطف «&».

خلية&«نص»

الصيغة 2: دالة CONCATENATE

تُستخدم دالة CONCATENATE لدمج النصوص بسلاسة في نصٍ واحد.

CONCATENATE(خلية،«نص»)

الصيغة 3: دالة CONCAT

هذه دالة جديدة تتوفر حصريًا في Excel 2019 وOffice 365 وExcel عبر الإنترنت.

CONCAT(خلية،«نص»)

في الصيغ العامة: تمثّل الخلية مرجع الخلية التي تحتوي على النص الذي تريد إضافة اللاحقة إليه، بينما يمثّل «النص» اللاحقة التي سيتم إلحاقها بمحتوى تلك الخلية.

باستخدام المثال أعلاه، يمكنك استخدام الصيغ التالية في شريط الصيغة:

«&»

=B3&$E$3أو=B3&«Kg»

دالة CONCATENATE

=CONCATENATE(B3, $E$3)أو=CONCATENATE(B3, «Kg»)

دالة CONCAT

=CONCAT(B3, $E$3)أو=CONCAT(B3, «Kg»)

اضغط على مفتاحEnter للحصول على النتيجة، ثم اسحب مقبض الملء التلقائي لأسفل حتى تُضاف نهاية النص إلى كل خلية في النطاق B3:B6.

2.2 إضافة في نهاية الخلايا باستخدام الملء الفوري (Flash Fill)

إذا كنت تستخدم Excel 2013 أو إصدارًا أحدث، فإن الميزة القوية الجديدة،التعبئة الفورية (Flash Fill)، قادرة على ملء الخلايا تلقائيًا بناءً على البيانات التي أدخلتها في الخلايا أعلاه.

اختر خلية بجانب أول بيانات أصلية، واكتب يدويًّا أول قيمة مع نص اللاحقة كما هو موضح أدناه:

بعد تنشيط الخلية أسفل النتيجة الأولى، انقر فوقبيانات > الملء الفوري (Flash Fill)، وسيتم ملء جميع الخلايا الموجودة بالأسفل — بما في ذلك الخلية النشطة — تلقائيًّا.

2.3 إضافة في نهاية الخلايا باستخدام كود VBA

يوجد كود VBA يُضيف نصًا في نهاية كل خلية ضمن نطاق معيّن.

1. حدد نطاق الخلايا التي تريد إضافة نص اللاحقة إليها، ثم اضغط على مفاتيحAlt+F11 لفتح نافذةمايكروسوفت Visual Basic for Applications.

2. بعد ذلك، في النافذة المنبثقة، انقر فوقInsert > Module لإدراج وحدة جديدة فارغة.

3. انسخ والصق كود VBA أدناه في الوحدة الجديدة.

VBA: إضافة في نهاية الخلايا

Sub AppendToExistingOnRight()
Dim c As Range
For Each c In Selection
If c.Value <> "" Then c.Value = c.Value & "Kg"
Next
End Sub

4. اضغط مفتاحF5 أو انقر فوق الزرRun في النافذة لتنشيط كود VBA.

الآن تم إضافة النص «Kg» في نهاية كل خلية.

بالنسبة لمعظمكم، فإن إضافة نص في بداية أو نهاية الخلايا أمرٌ سهل، لكن إضافة نص في منتصف الخلايا قد يكون صعبًا نوعًا ما. على سبيل المثال، كما هو موضح في لقطة الشاشة أدناه، إضافة فاصل مثل النقطتين الرأسيتين : بعد الحرف الثاني من كل خلية في النطاق B3:B7.

3.1 إضافة بعد الحرف رقم n في السلسلة باستخدام صيغة

ها هنا أربع صيغ متاحة لك لتنفيذ هذه المهمة، اختر واحدة للاستخدام:

الصيغة 1: الجمع بين دالتي LEFT وRIGHT

LEFT(خلية، n) & «نص» & RIGHT(خلية، LEN(خلية) -n)

الصيغة 2: الجمع بين دوال CONCATENATE (أو CONCAT) وRIGHT وLEN

CONCATENATE(LEFT(خلية، n)، «نص»، RIGHT(خلية، LEN(خلية) -n))

أو

CONCAT(LEFT(خلية، n)، «نص»، RIGHT(خلية، LEN(خلية) -n))

الصيغة 3: دالة REPLACE

REPLACE(خلية، n+1، 0، «نص»)

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

لحل المهمة المذكورة أعلاه، يُرجى استخدام الصيغ التالية:

الجمع بين دالتي LEFT وRIGHT

=LEFT(B3, 2) & ":" & RIGHT(B3, LEN(B3) -2)أو=LEFT(B3, 2) & $E$3 & RIGHT(B3, LEN(B3) -2)

الجمع بين دوال CONCATENATE (أو CONCAT) وRIGHT وLEN

=CONCATENATE(LEFT(B3, 2), ":", RIGHT(B3, LEN(B3) -2))أو=CONCAT (LEFT(B3, 2), ":", RIGHT(B3, LEN(B3) -2))

دالة REPLACE

=REPLACE(B3, 2+1, 0, ":")أو=REPLACE(B3, 2+1, 0, $E$3)

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

3.2 إضافة بعد الحرف رقم n في السلسلة باستخدام الملء الفوري (Flash Fill)

إذا كنت تستخدم Excel 2013 أو إصدارًا أحدث، فإنالملء الفوري (Flash Fill)يمكنه ملء الخلايا تلقائيًّا بناءً على الخلايا التي أدخلتها أعلاه.

اختر خلية بجانب أول بيانات أصلية، واكتب يدويًّا أول قيمة مع النقطتين الرأسيتين بعد الحرف الثاني كما هو موضح أدناه:

بعد ذلك، لتنشيط الخلية أسفل النتيجة الأولى، اضغط على مفاتيحCtrl+E لتفعيل أمرالملء الفوري (Flash Fill)، وسيتم ملء جميع الخلايا الموجودة بالأسفل — بما في ذلك الخلية النشطة — تلقائيًّا.

3.3 إضافة بعد الحرف رقم n في السلسلة باستخدام كود VBA

يمكن لرمز VBA أيضًا تنفيذ هذه المهمة.

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

2. بعد ذلك، في النافذة المنبثقة، انقر فوقInsert>Moduleلإدراج وحدة جديدة فارغة.

3. انسخ والصق كود VBA أدناه في الوحدة الجديدة.

VBA: إضافة إلى منتصف الخلايا

Sub AddToMidduleOfString()
    Dim Rng As Range
    Dim WorkRng As Range
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    Set WorkRng = Application.Selection
    Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
    For Each Rng In WorkRng
        Rng.Value = VBA.Left(Rng.Value, 2 & ":" & VBA.Mid(Rng.Value, 3, VBA.Len(Rng.Value) - 1)
    Next
End Sub

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

5. انقر فوقموافق. الآن، تم إضافة النص ":" بعد الحرف الثاني من كل خلية في النطاق B19:B23.

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

ميزة إضافة نص هذه يمكنها:

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

حدد الخلايا التي تريد إضافة نص إليها، ثم طبّق ميزة إضافة النص بالنقر فوقKutools > نص > إضافة نص.

4.1 إضافة نص قبل الحرف الأول أو بعد آخر حرف

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

انقر فوقتطبيقأوموافقلإنهاء الإضافة.

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

انقر فوقتطبيقأوموافقلإنهاء الإضافة.

4.2 إضافة نص في المواضع المحددة

أحيانًا، قد ترغب في إدراج نص في منتصف الخلية أو في عدة مواضع داخلها. على سبيل المثال، إضافة فاصل "-" بعد الرقم الثالث والسابع من الرقم الوطني، كما يظهر في لقطة الشاشة أدناه:

في مربع حوارإضافة نص، اكتب النص في مربعالنص، وفعّل خيارتحديد، ثم أدخل المواضع مفصولةً بفواصل في مربع النص، وانقر بعد ذلك علىموافقأوتطبيق.

إضافة 4.3 لأداة إضافة نص

بالإضافة إلى إضافة نص في المواضع العادية (البداية، النهاية، والموضع المحدد)، فإن أداةإضافة نصتدعم أيضًا إضافة نص

• قبل الحروف الكبيرة
• قبل الحروف الصغيرة
• قبل الحروف الكبيرة والصغيرة
• قبل الأرقام

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

باستثناء ميزة إضافة نص، يحتوي Kutools لـ Excel على ميزات 300+ أخرى مفيدة يمكن أن تساعدك في مختلف مهام Excel؛ قم بتنزيله مجانًا الآن.

يوفر هذا القسم صيغًا لإضافة نص قبل أو بعد أول ظهور للنص المحدد في Excel.

5.1 إضافة نص قبل أول نص محدد

على سبيل المثال، تريد إضافة نص «(sale)» قبل أول ظهور للكلمة «price» في الخلية كما هو موضح في لقطات الشاشة أدناه:

في Excel، يمكن لدوال REPLACE وSUBSTITUTE حل هذه المهمة.

دالة REPLACE

REPLACE(cell,FIND(«find_text»,cell),0,«add_text»)

دالة SUBSTITUTE

SUBSTITUTE(cell,«find_text»,«replace_text»,1)

في هذه الحالة، يُرجى استخدام الصيغ السابقة كما يلي:

=REPLACE(B4,FIND(«price»,B4),0,«(sale)»)

أو

=SUBSTITUTE(B4,«price»,«(sale)price»,1)

وسائط الصيغة في هذه الحالة هي

الخلية: B4،

النص المراد البحث عنه: price،

النص المراد إضافته: (sale)،

النص المراد استبداله: (sale)price.

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

5.2 إضافة نص بعد أول نص محدد

على سبيل المثال، تريد إضافة رمز العملة «$» بعد النقطتين الرأسيتين ":" الأولى في الخلية كما هو موضح في لقطات الشاشة أدناه:

في Excel، يمكن لدالتي REPLACE وSUBSTITUTE معالجة هذه المهمة بسهولة.

دالة REPLACE

REPLACE(cell,FIND(«find_text»,cell),find_text_length,«replace_text»)

دالة SUBSTITUTE

SUBSTITUTE(cell,«find_text»,«replace_text»)

في هذه الحالة، يُرجى استخدام الصيغ السابقة كما يلي:

=REPLACE(B12,FIND(":",B12),1,«:$»)

أو

=SUBSTITUTE(B12,":",«:$»)

وسائط الصيغة في هذه الحالة هي

الخلية: B12،

النص المراد البحث عنه: :،

النص المراد استبداله: $$.

طول النص المراد البحث عنه:1

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

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

إضافة أحرف قبل كل كلمة

إضافة أحرف بعد كل كلمة

6.1 إضافة حرف (أو أحرف) قبل أو بعد كل كلمة باستخدام صيغة

يمكن استخدام دالة SUBSTITUTE لحل هذه المهمة، والصيغ العامة كالتالي:

الإضافة قبل كل كلمة

«character»&SUBSTITUTE(string, « »,« character»)

الإضافة بعد كل كلمة

SUBSTITUTE(string,« »,«character »)&«character»

بافتراض أنك تريد إضافة «+» قبل كل كلمة في القائمة B3:B6، يُرجى استخدام الصيغة التالية:

=«+»&SUBSTITUTE(B3, " "," +")

اضغط مفتاحEnter للحصول على النتيجة الأولى، ثم اسحب مقبض التعبئة التلقائية لأسفل لعرض جميع النتائج.

بافتراض أنك تريد إضافة ($) بعد كل كلمة في القائمة B11:B14، يُرجى استخدام الصيغة التالية:

=SUBSTITUTE(B11,« »,«($) »)&«($)»

اضغط مفتاحEnter للحصول على النتيجة الأولى، ثم اسحب مقبض التعبئة التلقائية لأسفل لعرض جميع النتائج.

6.2 إضافة حرف (أو أحرف) قبل أو بعد كل كلمة باستخدام البحث والاستبدال

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

الإضافة قبل كل كلمة باستثناء الأولى

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

1. حدد الخلايا التي تريد إضافة أحرف قبل أو بعد كل كلمة فيها، ثم اضغط على مفاتيحCtrl+H لتمكين مربع حوارالبحث والاستبدال.

2. اكتب مسافة في مربعالبحث عن، ثم أدخل الأحرف الجديدة متبوعة بمسافة في مربعاستبدال بـ، وانقر أخيرًا على زراستبدال الكل.

هنا نقدّم كودَي VBA لإضافة أحرف قبل أو بعد كل كلمة. يُرجى تشغيل الكود باتباع الخطوات التالية:

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

2. في النافذة المنبثقة، انقر فوقإدراج > وحدة نمطيةلإدراج وحدة نمطية فارغة جديدة.

3. انسخ والصق كود VBA التالي في الوحدة النمطية.

الإضافة قبل كل كلمة

Sub InsertCharBeforeWord()
'UpdateByExtendOffice
Dim ws As Worksheet
Dim xRg As Range
Dim xSRg As Range
Dim xCell As Range
Dim xInStr As String
Dim xArr As Variant
Dim xValue As String
    On Error Resume Next
   
    Set xSRg = Application.Selection
    Set xRg = Application.InputBox("Select cells(continuous):", "Kutools for Excel", xSRg.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    xInStr = Application.InputBox("Type characters you want to add:", "Kutools for Excel", "", , , , , 2)
    If StrPtr(xInStr) = 0 Then Exit Sub
    Application.ScreenUpdating = False
    For Each xCell In xRg
        xArr = Split(xCell.Text, " ")
        xValue = ""
        For Each xStr In xArr
            If Trim(xStr) <> "" Then
                If xValue = "" Then
                    xValue = xInStr & Trim(xStr)
                Else
                    xValue = xValue & " " & xInStr & Trim(xStr)
                    End If
            End If
        Next
        xCell.Value = xValue
    Next
    Application.ScreenUpdating = True
End Sub

الإضافة بعد كل كلمة

Sub InsertCharAfterWord()
'UpdateByExtendOffice
Dim ws As Worksheet
Dim xRg As Range
Dim xSRg As Range
Dim xCell As Range
Dim xInStr As String
Dim xArr As Variant
Dim xValue As String
    On Error Resume Next
 
    Set xSRg = Application.Selection
    Set xRg = Application.InputBox("Select cells(continuous):", "Kutools for Excel", xSRg.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
   
    xInStr = Application.InputBox("Type characters you want to add:", "Kutools for Excel", "", , , , , 2)
    If StrPtr(xInStr) = 0 Then Exit Sub
   
    Application.ScreenUpdating = False
    For Each xCell In xRg
        xArr = Split(xCell.Text, " ")
        xValue = ""
        For Each xStr In xArr
            If Trim(xStr) <> "" Then
                If xValue = "" Then
                    xValue = Trim(xStr) & xInStr
                Else
                    xValue = xValue & " " & Trim(xStr) & xInStr
                End If
            End If
        Next
        xCell.Value = xValue
    Next
    Application.ScreenUpdating = True
End Sub

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

5. في مربع الحوار المنبثق الثاني، اكتب الأحرف التي تريد إضافتها، ثم انقر فوقموافق.

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

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

7.1 إضافة نص بين كل حرف/رقم باستخدام دالة معرّفة من قبل المستخدم

لإضافة أحرف بين كل حرف في سلسلة نصية، يمكن أن تكون الدالة المعرَّفة من قِبلك حلاً فعّالاً يُسهّل عليك المهمة.

في هذه الحالة، سنضيف مسافةً بين كل حرف.

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

2. في النافذة المنبثقة، انقر فوقInsert > Module لإدراج وحدة جديدة فارغة.

3. انسخ والصق كود VBA أدناه في الوحدة.

إضافة نص بين الأحرف

Function AddText(Str As String) As String
    Dim i As Long
    For i = 1 To Len(Str)
        AddText = AddText & Mid(Str, i, 1) & " "
    Next i
    AddSpace = Trim(AddSpace)
End Function

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

=AddText(B3)

B3 هي الخلية التي تحتوي على السلسلة النصية التي ترغب في إضافة مسافة بين أحرفها.

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

7.2 إضافة مسافة بين كل رقم باستخدام صيغة

إذا أردت إضافة مسافات بين أرقام سلسلة نصية تمثّل قيمة رقمية، يمكنك استخدام دالة TEXT.

بافتراض وجود قائمة بأرقام مكونة من 8 أرقام في النطاق B10:B12، يرجى التحديد خليةً لوضع النتيجة فيها، اكتب الصيغة التالية:

=TEXT(B10,«# # # # # # # #»)

اضغط مفتاحEnter، ثم اسحب مقبض التعبئة التلقائية عبر الخلايا الأخرى.

إذا كان طول الأرقام 5، فستصبح الصيغة: =TEXT(B10,«# # # # #»).

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

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

2. في النافذة المنبثقة، انقر فوقإدراج > وحدة نمطيةلإدراج وحدة نمطية فارغة جديدة.

3. انسخ والصق كود VBA أدناه في الوحدة.

إضافة أحرف بين الكلمات

Function AddCharacters(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
AddCharacters = xOut
End Function

4. احفظ الكود، ثم اضغط «إغلاق هذه النافذة» للعودة إلى ورقة العمل، وبعد ذلك أدخل الصيغة التالية في الخلية التي ترغب في عرض نتيجة الإضافة فيها.

=AddCharacters(B3)

B3 هي الخلية التي تحتوي على السلسلة النصية التي ترغب في إضافة مسافات بين كلماتها.

5. اضغط مفتاحEnter للحصول على النتيجة، ثم اسحب مقبض الملء التلقائي عبر الخلايا الأخرى لملء باقي النتائج حسب الحاجة.

لإضافة حرف (أو أحرف) معيّن بين تقسيم حسب النص والرقم كما هو موضح في لقطة الشاشة أدناه، إليك طريقتان.

9.1 إضافة حرف بين تقسيم حسب النص والرقم باستخدام صيغة

إذا كانت النصوص تسبق الأرقام، فإن الصيغة العامة تكون كالتالي:

TRIM(REPLACE(string,MIN(FIND({1,2,3,4,5,6,7,8,9,0},string&"1234567890")),0,"-"))

باستخدام المثال السابق، يُرجى استخدام الصيغة التالية:

=TRIM(REPLACE(B4,MIN(FIND({1,2,3,4,5,6,7,8,9,0},B4&"1234567890")),0,"-"))

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

إذا كانت الأرقام تسبق النصوص، فإن الصيغة العامة تكون كالتالي:

LEFT(string,SUM(LEN(string)-LEN(SUBSTITUTE(string,{0,1,2,3,4,5,6,7,8,9},«»))))&"."&RIGHT(string,LEN(B13)- SUM(LEN(string)-LEN(SUBSTITUTE(string, {0,1,2,3,4,5,6,7,8,9}, «»))))

باستخدام المثال السابق، يُرجى استخدام الصيغة التالية:

=LEFT(B13,SUM(LEN(B13)-LEN(SUBSTITUTE(B13,{0,1,2,3,4,5,6,7,8,9},«»))))&"."&RIGHT(B13,LEN(B13)- SUM(LEN(B13)-LEN(SUBSTITUTE(B13, {0,1,2,3,4,5,6,7,8,9}, «»))))

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

9.2 إضافة حرف بين تقسيم حسب النص والرقم باستخدام الملء الفوري (Flash Fill)

إذا كنت تستخدم Excel 2013 أو إصدارًا أحدث، فإن خاصيةالملء الفوري (Flash Fill)يمكنها أيضًا مساعدتك في إضافة حرف (أو أحرف) بين النص والرقم عند فصلهما.

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

ثم اضغط مفاتيحCtrl+E لتمكين خاصية الملء الفوري (Flash Fill).

الامتداد

يتضمّن هذا البرنامج التعليمي أيضًا بعض السيناريوهات المتعلقة بـ إضافة نص التي قد نواجهها في حياتنا اليومية أو عملنا.

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

10.1 إضافة الواصلات إلى الأرقام باستخدام صيغة

ثمة صيغتان تُضيفان الواصلات إلى الأرقام بسرعة. لإضافة الواصلات بعد الرقم الثالث والسادس في الخلية B3، استخدم إحدى الصيغتين التاليتين:

دالة REPLACE

=REPLACE(REPLACE(B3,4,0,"-"),8,0,"-")

دالة TEXT

=TEXT(B3,«???-???-??? »)

اضغط مفتاحEnter للحصول على أول نتيجة، ثم اسحب مقبض الملء التلقائي عبر الخلايا الأخرى.

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

لإضافة الواصلات مباشرةً إلى الأرقام في الخلايا الأصلية، استخدم خاصيةتعيين تنسيق الخلية.

1. حدد الأرقام التي تريد إضافة الواصلات إليها، ثم اضغط مفاتيحCtrl+1 لفتح مربع حوارتعيين تنسيق الخلية.

2. في مربع حوارتعيين تنسيق الخلية، ضمن علامة التبويبرقم، اخترمخصصمن قسمالفئة.

3. بعد ذلك، في قسمالنوععلى اليمين، اكتب###-###-### في مربع النص، ثم انقر فوقموافق.

الآن تم إضافة الواصلات إلى الأرقام المحددة.

10.3 إضافة الواصلات إلى رقم الهاتف باستخدام إضافة نص من Kutools لـ Excel

إذا كان لديكKutools لـ Excelمثبّتًا في Excel، فإن خاصيةإضافة نصيمكنها أيضًا مساعدتك.

1. حدد الخلايا التي تحتوي على الأرقام التي تحتاج إلى إضافة الواصلات إليها، ثم انقر فوقKutools>نص>إضافة نص.

2. في مربع حوارإضافة نص، اكتب الواصلة أو أي فاصل آخر في مربع النصالنص، ثم اختر الخيارتحديد، وأدخل المواضع التي تريد إضافة الواصلات بعدها في مربع النص أدناه، مفصَّلةً بفواصل.

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

حمّل إضافة النص مجانًا وجربها لمدة 30 يومًا دون أي تكلفة!

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

11.1 إضافة أصفار بادئة إلى الخلايا باستخدام خاصية تعيين تنسيق الخلية

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

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

2. في مربع الحوارتعيين تنسيق الخلية، ضمن علامة التبويبرقم، اخترمخصصمن قسمالفئة.

3. بعد ذلك، في قسمالنوععلى اليمين، اكتب0000 في مربع النص (لضبط طول الرقم ليكون 4 أرقام، اكتب 0000؛ ويمكنك تغييره إلى طول آخر، مثل 5 أرقام، فاكتب 00000)، ثم انقر فوقموافق.

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

11.2 إضافة أصفار بادئة إلى صيغة

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

ثمة ثلاث دوال جاهزة لمساعدتك.

الصيغة 1: دالة TEXT

TEXT(number,«00…»)

الصيغة 2: دالة RIGHT

RIGHT(«00…»&number,length)

الصيغة 3: دالة BASE

BASE(number,10,length)

عدد الأصفار في الصيغة يساوي طول الرقم.

لقد قمت هنا بتعيين طول الأرقام ليكون 4 أرقام، لذا يُرجى استخدام الصيغ التالية:

=TEXT(B10,"0000")

=RIGHT("0000"&B10,4)

=BASE(B10,10,4)

اضغط مفتاحEnter، ثم اسحب مقبض الملء التلقائي للأسفل.

إذا كنت ترغب في إضافة أصفار بادئة إلى الأرقام لجعلها بطول ثابت—مثل جعل الأرقام في الخلايا B3:B7 مكوَّنة من 5 أرقام كما يظهر في لقطة الشاشة أدناه—فيمكنك استخدام صيغة مخصصة لتحقيق ذلك بسهولة.

دالة REPT

number&REPT("0",length-LEN(number))

في الصيغة، يمثل المعامل «number» الرقم أو مرجع الخلية الذي تريد إضافة أصفار زائدة إليه، بينما يمثل المعامل «length» الطول الثابت المطلوب.

يرجى استخدام الصيغة كالتالي:

=B3&REPT("0",5-LEN(B3))

اضغط مفتاحEnter، ثم اسحب مقبض التعبئة التلقائية لأسفل إلى الخلايا التي تحتاج إلى هذه الصيغة.

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

لحل هذه المهمة، يمكن أن تساعدك دالة REPT.

LEFT(text & REPT(« »,max_length),max_length)

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

لإضافة مسافات زائدة إلى النصوص في الخلية B3:C6، يرجى استخدام الصيغة التالية:

=LEFT(B3 & REPT(« »,10),10)

اضغط مفتاحEnter، ثم اسحب مقبض التعبئة التلقائية عبر جميع الخلايا التي تحتاج إلى هذه الصيغة.

في هذه الحالة، وبما أن أطول نص مستخدم يتكون من 9 أحرف، نستخدم الرقم 10 هنا.

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

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

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

1. حدد الخلايا التي تريد إضافة علامات اقتباس إليها، ثم اضغط على مفاتيحCtrl+1 لفتح مربع حوارتعيين تنسيق الخلية.

2. في مربع حوارتعيين تنسيق الخلية، انتقل إلى علامة التبويبNumber، واخترCustom من قائمةCategory، ثم اكتب«''»@«''» في مربع النصType الموجود في القسم الأيمن. بعد الانتهاء، انقر فوقOK.

أُضيفت علامات اقتباس حول النص في الخلايا المحددة.

إذا كنت ترغب في إضافة أقواس حول النص، ففي مربع النص Type بمربع حوار تعيين تنسيق الخلية، استخدم(@).

14.2 إضافة علامات اقتباس/أقواس باستخدام الصيغ

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

استخدام رابط &

«»«»&text&«»«»

أو

char(34)&text&char(34)

في هذه الحالة، النص موجود في الخلية B11، يرجى استخدام الصيغ التالية:

=«»""&B11&""""

أو

=char(34)&B11&char(34)

اضغط مفتاحEnter، ثم اسحب مقبض التعبئة التلقائية لأسفل لتعبئة الخلايا.

إذا كنت ترغب في إضافة أقواس حول النص، فاستخدم الصيغة التالية: «(»&text&«)».

14.3 إضافة علامات اقتباس/أقواس باستخدام VBA

إذا كنت بحاجة إلى كود VBA لأداء هذه المهمة، فها هو كود VBA المطلوب.

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

2. بعد ذلك، في النافذة المنبثقة، انقر فوقInsert > Module لإدراج وحدة جديدة فارغة.

3. انسخ والصق كود VBA أدناه في الوحدة الجديدة.

VBA: إضافة علامات اقتباس حول النصوص

Sub addquotationmarksorbrackets()
'UpdatebyExtendOffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
Rng.Value = """" & Rng.Value & """"
Next
End Sub

4. اضغط مفتاحF5 أو انقر فوق زرRun في النافذة لتشغيل كود VBA. ستظهر نافذة منبثقة تتيح لك تحديد الخلايا التي سيتم إضافة علامات الاقتباس إليها.

5. انقر فوقOK. الآن، تم إضافة علامات الاقتباس حول النصوص في الخلايا المحددة.

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

الحالة 1 إضافة نص قبل الصيغة

«Today is »&TEXT(TODAY(),«dddd, mmmm dd.»)

الحالة 2 إضافة نص بعدالصيغة

TEXT(NOW(),«HH:MM:SS»)&« is the current time.»

الحالة 3 إضافة نص على جانبي الصيغة

«Today sold »&data&« kg.»

---

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

Kutools لـ Excel يحل معظم مشكلاتك، ويزيد إنتاجيتك بنسبة 80%

• محرر متعدد الأسطر فائق الكفاءة من شريط الصيغة (يمكّنك من تحرير أسطر نصية متعددة والمعادلات بسهولة)؛وضع القراءة (ليُسهّل عليك قراءة وتحرير عدد كبير من الخلايا)؛لصق إلى نطاق التصفية...
• نسخ صفوف أو أعمدة تحتوي على خلايا مدمجةمع الاحتفاظ بالبيانات؛ تقسيم محتوى الخلايا؛دمج خلايا الصفوف المكررة وحساب المجموع أو المتوسط... منع إدخال قيم مكررة في الخلايا؛مقارنة النطاقات...
• تحديد الصفوف المكررة أو الفريدة؛تحديد الصفوف الفارغة (جميع الخلايا فارغة)؛البحث المتقدم والعثور على المشابهعبر العديد من ملفات العمل؛ تحديد عشوائي...
• إدخال محتوى متعدد الخلايا من النسخ الدقيقدون تغيير مراجع الصيغ؛إنشاء مراجع تلقائيةلأوراق عمل متعددة؛إدراج رموز التعداد النقطي، ومربعات الاختيار والمزيد...
• احفظ الصيغ المفضلة وأدخلها بسرعة، والنطاقات، والرسوم البيانية، والصور؛شفر الخلايابكلمة مرور؛أنشئ قائمة بريد إلكترونيوأرسل رسائل البريد الإلكتروني...
• استخراج النص، وإضافة نص، وحذف الأحرف من موقع معين،وإزالة المسافات؛ وإنشاء إحصاءات صفحة البيانات وطباعتها؛والتحويل بين محتوى الخلايا والتعليقات...
• مرشح متقدم (لحفظ مخططات التصفية وتطبيقها على أوراق عمل أخرى)؛ترتيب متقدمحسب الشهر أو الأسبوع أو اليوم، والتكرار، وغير ذلك؛تصفية خاصةحسب التنسيق العريض أو المائل...
• ادمج ملفات العمل وأوراق العمل؛ واجمع الجداول استنادًا إلى العمود الرئيسي؛وقسّم البيانات إلى أوراق عمل متعددة؛وحَوِّل ملفات XLS وXLSX وPDF دفعةً واحدة...
• تجميع حسب جدول البيانات المحوريرقم الأسبوع، ويوم الأسبوع والمزيد... عرض الخلايا غير المؤمَّنة وقفل التحديدبألوان مختلفة؛تمييز الخلايا التي تحتوي على صيغة أو اسم...

قراءة المزيد...تجربة مجانية لمدة 30 يومًا مع جميع الميزات...الشراء... 

---

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

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

قراءة المزيد...تجربة مجانية لمدة 30 يومًا مع جميع الميزات...الشراء...