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

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

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

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

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

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

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

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

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

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

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

	الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة
	سوبر بحث: معايير متعددة VLookup  |   VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
	قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
	مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة
	الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير   |  مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا   |  إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
	أفضل 15 مجموعة أدوات:  12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

ارفع مهاراتك في برنامج Excel باستخدام Kutools for Excelوتجربة كفاءة لم يسبق لها مثيل. Kutools for Excel يقدم أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

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

---

Office Tab يجلب الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

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

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