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

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

ملاحظة

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

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

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

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

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

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

لجمع عدة نصوص معًا باستخدام علامة &.

"text"&cell

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

تُستخدم دالة CONCATENATE لدمج النصوص معًا.

CONCATENATE("text",cell)

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

هذه دالة جديدة تظهر فقط في Excel2019 وOffice365 وExcel عبر الإنترنت.

CONCAT("text",cell)

في الصيغ العامة: cell هو مرجع الخلية للنص الذي تريد إضافة بادئة له، وtext هو النص الذي سيتم إضافته إلى الخلية.

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

"&"

=$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 الإضافة في بداية الخلايا باستخدام التعبئة السريعة

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

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

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

إذا لم تظهر قائمة المعاينة، انتقل إلى علامة التبويب الرئيسية، ثم انقر على تعبئة > التعبئة السريعة لتشغيلها يدويًا.

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: عامل الربط "&"

لجمع عدة نصوص معًا باستخدام علامة &.

cell&"text"

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

تُستخدم دالة CONCATENATE لدمج النصوص معًا.

CONCATENATE(cell,"text")

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

هذه دالة جديدة تظهر فقط في Excel2019 وOffice365 وExcel عبر الإنترنت.

CONCAT(cell,"text")

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

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

"&"

=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 الإضافة في نهاية الخلايا باستخدام التعبئة السريعة

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

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

ثم قم بتنشيط الخلية أسفل أول نتيجة، انقر على البيانات > التعبئة السريعة، سيتم ملء جميع الخلايا أدناه بما في ذلك الخلية النشطة تلقائيًا.

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

إليك كود VBA يمكنه إضافة نص في نهاية كل خلية في نطاق محدد.

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

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

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 أو انقر على تشغيل زر في النافذة لتفعيل كود VBA.

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

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

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

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

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

LEFT(cell, n) & ":" & RIGHT(cell, LEN(cell) -n)

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

CONCATENATE(LEFT(cell, n), "text", RIGHT(cell, LEN(cell) -n))

أو

CONCAT(LEFT(cell, n), "text", RIGHT(cell, LEN(cell) -n))

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

REPLACE(cell, n+1,0, "text")

في الصيغ العامة: cell هو مرجع الخلية للنص الذي تريد إضافة نص في منتصفه، وtext هو النص الذي سيتم إضافته، و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 في السلسلة النصية باستخدام التعبئة السريعة

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

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

ثم قم بتنشيط الخلية أسفل أول نتيجة، اضغط على Ctrl + E لتفعيل التعبئة السريعة ، سيتم ملء جميع الخلايا أدناه بما في ذلك الخلية النشطة تلقائيًا.

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

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

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

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

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،

Find_text: price،

Add_text: (sale)،

Replace_text:(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،

Find_text: :،

Replace_text::$.

Find_text_length: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 لفتح نافذة Microsoft Visual Basic for Applications.

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. في النافذة المنبثقة، انقر على إدراج > وحدة نمطية لإدراج وحدة نمطية جديدة فارغة.

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 إضافة حرف بين النصوص والأرقام باستخدام التعبئة السريعة

إذا كنت تستخدم Excel2013 أو إصدار أحدث، يمكنك أيضًا استخدام التعبئة السريعة لإضافة حرف(أحرف) بين النصوص والأرقام.

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

ثم اضغط على Ctrl + E لتفعيل التعبئة السريعة.

توسيع

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

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

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 مثبتًا، يمكنك أيضًا استخدام ميزة إضافة نص لتنفيذ ذلك.

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 ثم اسحب مقبض التعبئة التلقائية للأسفل للخلايا التي تحتاج هذه الصيغة.

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

لحل هذه المهمة، يمكنك استخدام دالة 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. في تعيين تنسيق الخلية مربع الحوار، ضمن الرقم ، اختر مخصص من قائمة الفئة، ثم انتقل إلى القسم الأيمن لكتابة "''"@"''" في النوع مربع النص. انقر على موافق.

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

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

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. في النافذة المنبثقة، انقر على إدراج > وحدة نمطية لإدراج وحدة جديدة فارغة.

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 أو انقر على تشغيل زر في النافذة لتفعيل كود VBA. ستظهر نافذة حوار لتحديد الخلايا التي تريد إضافة علامات الاقتباس إليها.

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

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

الحالة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 يومًا بكامل الميزات... شراء...