كيف تضيف بادئة أو لاحقة إلى نطاق من الخلايا في Excel؟

تتيح لك دالةدمجفي Excel إدراج بادئة أو لاحقة إلى خلية واحدة بسرعة.

1. أدخل الدالة=CONCATENATE(«Food - »,A1) في خلية فارغة، مثل الخليةC1، ثم اسحب مقبض التعبئة التلقائية (AutoFill) لتلك الخلية عبر النطاق الذي تريد ملؤه. وبذلك تتم إضافة البادئة المحددة إلى جميع الخلايا تلقائيًا! انظر لقطة الشاشة:

يمكنك استخدام دالة الدمج (concatenate) لإدراج بادئة أو لاحقة أو كليهما كما يلي:

قد لا تكون معتادًا على الدوال وأكواد VBA في Excel، لكن أداةAdd Text منKutools for Excel ستساعدك على إضافة بادئة أو لاحقة إلى أي نطاق محدد بسرعةٍ وسهولة!

1. حدد الخلايا التي تريد إضافة بادئة أو لاحقة إليها، ثم انقرKutoolsKutools > > Add Text Text Add Text.

2. في مربع الحوارAdd Text، أدخل البادئة أو اللاحقة المطلوبة في مربعالنص، ثم اختر الخيارBefore first character (لإضافة بادئة) أو الخيارAfter last character (لإضافة لاحقة) حسب احتياجاتك، وانقر بعد ذلك على الزرOk.
والآن تمت إضافة البادئة أو اللاحقة التي حددتها إلى جميع الخلايا المحددة دفعة واحدة. انظر لقطة الشاشة:

يمكنك أيضًا معالجة هذه المشكلة باستخدام كود VBA التالي:

1. حدد النطاق الذي تريد إضافة البادئة أو اللاحقة إليه.

2. انقرDeveloper > Visual Basic Visual Basic، وستظهر نافذة جديدة منMicrosoft Visual Basic for applications. بعد ذلك، انقرInsertInsert > Module، ثم أدخل الكود التالي:

Sub AddTextOnLeft()
'Updateby20131128
Dim Rng As Range
Dim WorkRng As Range
Dim addStr As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
addStr = Application.InputBox("Add text", xTitleId, "", Type:=2)
For Each Rng In WorkRng
    Rng.Value = addStr & Rng.Value
Next
End Sub

Sub AddTextOnRight()
'Updateby20131128
Dim Rng As Range
Dim WorkRng As Range
Dim addStr As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
addStr = Application.InputBox("Add text", xTitleId, "", Type:=2)
For Each Rng In WorkRng
    Rng.Value = Rng.Value & addStr
Next
End Sub

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

4. الآن، حدد النطاق الذي تريد إضافة البادئة أو اللاحقة إليه في مربع الحوار الأولKutoolsforExcel، ثم انقر الزرOK. بعد ذلك، أدخل البادئة أو اللاحقة التي ترغب في إضافتها في مربع الحوار الثانيKutoolsforExcel، ثم انقر الزرOK. راجع لقطات الشاشة أدناه:
     
الآن تمت إضافة البادئة أو اللاحقة المحددة إلى كل خلية مُحدَّدة، كما هو موضح في لقطة الشاشة التالية:

أضف إضافة نص إلى بداية أو نهاية جميع الخلايا

أضف سلاسل نصية إلى خلايا متعددة

أضف أصفارًا بادئة إلى الأرقام أو النصوص