كيفية إضافة نص في منتصف الخلايا المحددة في إكسيل؟
لنفترض أن لديك قائمة بيانات مكونة من الحرف الأول G وأرقام أخرى ، والآن تريد إضافة حرف D آخر بعد الحرف الأول G إلى القائمة بأكملها. انظر أدناه لقطة الشاشة المعروضة.

كيف يمكنك أن تفعل لتحقيق ذلك؟ يبدو أن إضافة الحرف إلى الخلايا واحدًا تلو الآخر يضيع الوقت أثناء عملك. في هذه المقالة ، سنوضح لك كيفية إضافة نص في منتصف الخلايا المحددة في Excel بطرق فعالة.
أضف نصًا في منتصف الخلايا المحددة باستخدام الصيغة
أضف نصًا في منتصف الخلايا المحددة برمز VBA
أضف نصًا في منتصف الخلايا المحددة باستخدام Kutools for Excel
أضف نصًا في منتصف الخلايا المحددة باستخدام الصيغة
في هذا القسم ، سنقدم لك الصيغة لإضافة نص في منتصف الخلايا المحددة. الرجاء القيام بما يلي.
1. يجب أن تتم هذه الطريقة مع عمود تعليمات. حدد الخلية الفارغة المجاورة للبيانات الأصلية ، وهنا أقوم بتحديد الخلية B2.
2. نسخ ولصق الصيغة = LEFT (A2,1،2,2,100) & "D" & MID (AXNUMX،XNUMX،XNUMX) في شريط الصيغة ، ثم اضغط على أدخل مفتاح. انظر لقطة الشاشة:
ملاحظة:
- 1). في الصيغة ، الرقم 1 يعني أنه سيتم إضافة النص بعد الحرف الأول من الخلية.
- 2). يشير الرقمان 2 و 100 إلى أنه سيتم إضافة الأحرف من الثانية إلى المائة من الخلية الأصلية بعد النص الجديد المدرج.
- 3). إذا كنت تريد إضافة نص بعد الحرف الثاني ، يرجى تغيير الرقم من 1 إلى 2 ، ومن 2 إلى 3 في الصيغة.
- 4). والحرف "D" هو النص الذي ستضيفه إلى الخلية. يرجى تغييره بناءً على احتياجاتك.
3. حدد الخلية B2 ، واسحب مقبض التعبئة لأسفل إلى الخلية التي تريد تغطيتها بهذه الصيغة. يمكنك رؤية النص مضافًا في منتصف الخلايا في القائمة بأكملها.
نصائح: إلى جانب الصيغة أعلاه ، يمكنك أيضًا تطبيق هذه الصيغة = REPLACE (A2,2,0،XNUMX،XNUMX، "D")، (يشير الرقم 2 إلى الموقع الذي تريد إدخال النص فيه ، ويشير الحرف D إلى النص الذي تريد إضافته ، يمكنك تغييره حسب حاجتك) ، ثم اضغط على مفتاح Enter للحصول على النتيجة.
أضف نصًا إلى بداية أو نهاية جميع الخلايا المحددة في Excel:
Kutools for Excel's إضافة نص يمكن أن تضيف الأداة المساعدة نصًا محددًا بسرعة إلى بداية الخلايا أو نهايتها في التحديد في Excel.
قم بتنزيل الميزة الكاملة 30- درب مجاني لمدة يوم Kutools for Excel الآن!
أضف نصًا في منتصف الخلايا المحددة برمز VBA
إلى جانب ذلك ، يمكنك إضافة نص في منتصف الخلايا المحددة برمز VBA.
1. الرجاء الضغط قديم + F11 لفتح تطبيقات Microsoft Visual Basic نافذة.
2. انقر إدراج > وحدة. ثم انسخ والصق كود فبا أدناه في محرر الكود.
رمز فبا: أضف نصًا إلى قائمة البيانات بعد الحرف الأول
Sub AddString()
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, 1) & "D" & VBA.Mid(Rng.Value, 2, VBA.Len(Rng.Value) - 1)
Next
End Sub
3. صحافة F5 مفتاح لتشغيل التعليمات البرمجية ، وظهورها كوتولسفورإكسيل في مربع الحوار ، حدد النطاق الذي تريد إضافة نص إليه ، ثم انقر في النهاية على OK .
الآن يتم إضافة النص المحدد بعد الحرف الأول من الخلايا المحددة.
ملاحظة: في الكود أعلاه ، ستقوم بإدخال قيمة محددة بعد الحرف الأول داخل الخلية ، يمكنك تغيير الرقم 1 و 2 إلى الرقم 2 و 3 في حالة إضافة النص بعد الحرف الثاني في هذا البرنامج النصي VBA.Left (Rng.Value، 1) & "D" & VBA.Mid (Rng.Value، 2، VBA.Len (Rng.Value) - 1)، والحرف D هو النص الجديد الذي تريد إدراجه.
أضف نصًا في منتصف الخلايا المحددة باستخدام Kutools for Excel
علينا أن نعترف بأن الطريقتين المذكورتين أعلاه غير ملائمة لنا. هنا سأريك ملف إضافة نص فائدة Kutools for Excel، باستخدام هذه الأداة المساعدة ، يمكنك بسهولة تحديد الموضع الأوسط للقائمة ، ثم إضافة نص معين إلى ذلك الموضع في القائمة بأكملها في نفس الوقت.
قبل التطبيق Kutools for Excelالرجاء قم بتنزيله وتثبيته أولاً.
1. حدد القائمة التي تريد إضافة نص إليها في منتصف الخلايا ، ثم انقر فوق كوتولس > نص > إضافة نص. انظر لقطة الشاشة:
2. في ال إضافة نص في مربع الحوار ، أدخل النص الذي تريد إضافته إلى الخلايا في ملف نص مربع ، حدد الموضع حيث تريد إضافة النص عن طريق تحديد تحديد الخيار (هنا أدخل رقم 1) ، ثم انقر فوق OK زر. (يمكنك معاينة نتيجة الإضافة على الفور في المربع الأيمن)
ملاحظة: لإضافة نص في مواضع متعددة للخلية المحددة مرة واحدة ، يمكنك تحديد المواضع مع فصل الفاصلة في تحديد صندوق. انظر لقطة الشاشة:
الآن يتم إضافة النص المحدد بعد الحرف الأول في القائمة المحددة.
إذا كنت ترغب في الحصول على نسخة تجريبية مجانية (30-يوم) من هذه الأداة ، الرجاء الضغط لتنزيلهثم انتقل لتطبيق العملية حسب الخطوات المذكورة أعلاه.
أضف نصًا في منتصف الخلايا المحددة باستخدام Kutools for Excel
مقالة ذات صلة:.
أفضل أدوات إنتاجية المكتب
ارفع مهاراتك في برنامج Excel باستخدام Kutools for Excelوتجربة كفاءة لم يسبق لها مثيل. Kutools for Excel يقدم أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
Office Tab يجلب الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!







