كيفية إضافة بادئة أو لاحقة إلى مجموعة من الخلايا في إكسيل؟
تحتاج أحيانًا إلى إضافة نص مشترك إلى بداية أو نهاية جميع الخلايا في بعض الحالات. بالطبع ، يمكنك إضافة البادئة أو اللاحقة لكل خلية واحدة تلو الأخرى. ومع ذلك ، يصبح العمل شاقًا ويستغرق وقتًا طويلاً عندما يكون هناك العديد من الخلايا. ستعرض لك هذه المقالة بعض النصائح حول إضافة بادئة أو لاحقة إلى نطاق محدد من الخلايا في Excel بسهولة.
- أضف بادئة أو لاحقة إلى كل الخلايا بالصيغ
- أضف بادئة أو لاحقة إلى كل الخلايا باستخدام VBA
- أضف بادئة أو لاحقة إلى جميع الخلايا باستخدام Kutools for Excel
أضف بادئة أو لاحقة إلى كل الخلايا بالصيغ
في Excel سلسل يمكن للوظيفة إدراج بادئة أو لاحقة لخلية واحدة بسرعة.
1. أدخل وظيفة =CONCATENATE("Food - ",A1) في زنزانة فارغة ، تقول الخلية C1، ثم اسحب مقبض الملء التلقائي لهذه الخلية عبر النطاق الذي تريد تعبئته. وأضيفت جميع الخلايا نص البادئة المحددة. انظر لقطة الشاشة:. انظر لقطة الشاشة:
يمكنك استخدام وظيفة concatenate لإدراج البادئة أو اللاحقة أو كل من اللاحقة والبادئة على النحو التالي:
أدخل الصيغ | النتائج في الخلايا |
= Concatenate ("Food - ", A1) | طعام - تفاح |
=Concatenate (A1, " - Fruit") | فاكهة التفاح |
=Concatenate ("Food - ", A1, " - Fruit") | طعام - تفاح - فواكه |
أضف نصًا مشتركًا بسهولة إلى بداية جميع الخلايا أو نهايتها (بادئة أو لاحقة) في Excel
من السهل ملء جميع الخلايا بنفس المحتوى في عمود بميزة التدوين الآلي. ولكن ، كيف تضيف نفس البادئة أو اللاحقة لجميع الخلايا في عمود؟ مقارنة بكتابة البادئة أو اللاحقة لكل خلية على حدة ، Kutools for Excelالصورة Add Text توفر الأداة المساعدة حلاً سهلاً لإنجازها بعدة نقرات فقط.

أضف بادئة أو لاحقة إلى كل الخلايا باستخدام VBA
يمكنك أيضًا التعامل مع هذه المشكلة باستخدام رمز VBA التالي:
1. حدد النطاق الذي تريد إدراج البادئة أو اللاحقة.
2. انقر Developer > Visual Basic، وجديدة Microsoft Visual Basic for applications ستظهر النافذة ، انقر فوق Insert > 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 زر. انظر أدناه لقطات:
الآن تمت إضافة اللاحقة أو البادئة المحددة إلى كل خلية محددة كما هو موضح أدناه لقطة الشاشة:
أضف بادئة أو لاحقة إلى جميع الخلايا باستخدام Kutools for Excel
قد لا تكون على دراية بالوظائف ورمز VBA في Excel. وهذا Add Text فائدة Kutools for Excel سيساعدك على إدراج بادئة أو لاحقة في أي نطاقات محددة بسرعة.
كوتولس ل إكسيل - يتضمن أكثر من 300 أداة يدوية لبرنامج Excel. نسخة تجريبية مجانية كاملة الميزات 30اليوم ، لا حاجة لبطاقة ائتمان! تجربة مجانية الآن!
1. حدد الخلايا التي تريد إضافة بادئة أو لاحقة إليها ، ثم انقر فوق Kutools > Text > Add Text، انظر لقطة الشاشة:
2. في Add Text في مربع الحوار ، أدخل البادئة أو اللاحقة في ملف نص مربع ، تحقق من Before first character اختيار (لإضافة البادئة) أو After last character اختيار (لإضافة لاحقة) حسب حاجتك ، وانقر فوق Ok .
والآن يتم إضافة البادئة أو اللاحقة المحددة إلى كل خلية محددة مرة واحدة. انظر لقطة الشاشة:
عرض توضيحي: إضافة بادئة أو لاحقة إلى خلايا متعددة باستخدام Kutools for Excel
قم بإزالة البادئة أو اللاحقة (نفس عدد الأحرف) من بداية / يمين / نهاية الخلايا في Excel
Kutools for Excel's Remove By Position تسهل لك الميزة إزالة البادئة أو اللاحقة (عدد معين من الأحرف) من البداية / النهاية / الموضع المحدد للسلسلة النصية في الخلايا.

مقالات ذات صلة
أفضل أدوات إنتاجية المكتب
Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪
- إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
- سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
- دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
- حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
- نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
- استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
- سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
- اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
- أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!





















