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

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

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

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

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

1.  حدد الخلايا التي تريد إضافة بادئة أو لاحقة لها، واضغط على   Kutools > نص > إضافة نص.

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

يمكنك أيضًا التعامل مع هذه المشكلة بالشفرة البرمجية VBA التالية:

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

2. اضغط على مطور > Visual Basic، وسيظهر نافذة جديدة Microsoft Visual Basic للتطبيقات، اضغط على إدراج > وحدة، ثم أدخل الكود التالي:

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. ثم اضغط على زر التشغيل أو اضغط على مفتاح F5 لتشغيل VBA.

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

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

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

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