كيفية إضافة نص في منتصف الخلايا المحددة في إكسيل؟

لنفترض أن لديك قائمة بيانات مكونة من الحرف الأول 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 للحصول على النتيجة.

أضف نصًا في منتصف الخلايا المحددة برمز 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

علينا أن نعترف بأن الطريقتين المذكورتين أعلاه غير ملائمة لنا. هنا سأريك ملف إضافة نص فائدة كوتولس ل إكسيل، باستخدام هذه الأداة المساعدة ، يمكنك بسهولة تحديد الموضع الأوسط للقائمة ، ثم إضافة نص معين إلى ذلك الموضع في القائمة بأكملها في نفس الوقت.

1. حدد القائمة التي تريد إضافة نص إليها في منتصف الخلايا ، ثم انقر فوق كوتولس > نص > إضافة نص. انظر لقطة الشاشة:

2. في ال إضافة نص في مربع الحوار ، أدخل النص الذي تريد إضافته إلى الخلايا في ملف نص مربع ، حدد الموضع حيث تريد إضافة النص عن طريق تحديد تحديد الخيار (هنا أدخل رقم 1) ، ثم انقر فوق OK زر. (يمكنك معاينة نتيجة الإضافة على الفور في المربع الأيمن)

ملاحظة: لإضافة نص في مواضع متعددة للخلية المحددة مرة واحدة ، يمكنك تحديد المواضع مع فصل الفاصلة في تحديد صندوق. انظر لقطة الشاشة:

الآن يتم إضافة النص المحدد بعد الحرف الأول في القائمة المحددة.

أضف نصًا في منتصف الخلايا المحددة باستخدام Kutools for Excel

مقالة ذات صلة:.

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

---

أفضل أدوات إنتاجية المكتب

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٪ ، ويقلل مئات النقرات بالماوس كل يوم!

اقرأ أكثر... تحميل مجاني ... شراء...