كيفية إضافة بادئة أو لاحقة إلى مجموعة من الخلايا في إكسيل؟
تحتاج أحيانًا إلى إضافة نص مشترك إلى بداية أو نهاية جميع الخلايا في بعض الحالات. بالطبع ، يمكنك إضافة البادئة أو اللاحقة لكل خلية واحدة تلو الأخرى. ومع ذلك ، يصبح العمل شاقًا ويستغرق وقتًا طويلاً عندما يكون هناك العديد من الخلايا. ستعرض لك هذه المقالة بعض النصائح حول إضافة بادئة أو لاحقة إلى نطاق محدد من الخلايا في 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 تسهل لك الميزة إزالة البادئة أو اللاحقة (عدد معين من الأحرف) من البداية / النهاية / الموضع المحدد للسلسلة النصية في الخلايا.
مقالات ذات صلة
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!