انتقل إلى المحتوى الرئيسي

كيفية إدراج نفس النص في كل صف آخر في إكسيل؟

في هذه المقالة ، سنوضح لك كيفية إدراج نفس النص في كل صف آخر في Excel. الرجاء تصفح لمزيد من التفاصيل.

أدخل نفس النص في كل صف برمز VBA
أدخل نفس النص في كل صف آخر مع كوتولس ل إكسيل


أدخل نفس النص في كل صف برمز VBA

لنفترض أنك تريد إدراج نصوص "الاسم" و "البيانات" و "النتيجة" في كل صف واحد في نطاق معين كما هو موضح أدناه لقطة الشاشة. الرجاء تجربة كود فبا التالي.

1. في ورقة العمل ، اضغط على قديم + F11 مفاتيح في نفس الوقت لفتح Microsoft Visual Basic للتطبيق نافذة.

2. انقر إدراج > وحدة. انظر لقطة الشاشة:

3. انسخ والصق كود فبا أدناه في محرر الكود.

كود فبا: أدخل نفس النص في كل صف في إكسيل

Sub inserttexteveryonerow()
	Dim Last As Integer
	Dim emptyRow As Integer
	Last = Range("A" & Rows.Count).End(xlUp).Row
	For emptyRow = Last To 2 Step - 1
		If Not Cells(emptyRow, 1).Value = "" Then
			Rows(emptyRow).Resize(1).Insert
			Range(Cells(emptyRow, "A"), Cells(emptyRow, "C")).Value = Array("Name", "Date", "Sore")
		End If
	Next emptyRow
End Sub

ملاحظة: في الكود أعلاه:

1. يجب أن تبدأ بياناتك من الصف الأول في ورقة العمل.
2. يرجى تغيير نصوص "الاسم" و "البيانات" و "النتيجة" إلى النصوص التي تحتاجها.
3. يشير الحرفان A و C إلى نطاق الخلايا حيث تريد إدراج النص المحدد.
4. اضغط على F5 مفتاح لتشغيل الكود. ويمكنك رؤية النصوص المحددة مضافة في كل صف في ورقة العمل الخاصة بك.

أدخل نفس النص في كل صف آخر مع كوتولس ل إكسيل

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

قبل التطبيق كوتولس ل إكسيلالرجاء قم بتنزيله وتثبيته أولاً.

1. انقر كوتولس > إدراج > إدراج صفوف العناوين لتمكين هذه الأداة.

2. في ال إدراج صفوف العناوين مربع الحوار ، تحتاج إلى:

1). حدد نطاق النصوص التي تريد إدراجها في كل صف n في ملف نطاق العنوان صندوق؛
2). حدد النطاق الذي تريد إدراج النصوص فيه في ملف أدخل النطاق صندوق؛
3). حدد رقم صف الفاصل الزمني في صفوف الفاصل صندوق. إذا كنت تريد إدخال نص في كل صف ، يرجى إدخال 1 في المربع ، ولكل صف n ، يرجى إدخال n في المربع ؛
4). انقر على OK .

الآن يتم إدراج النص المحدد في كل صف n في النطاق المحدد.

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

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

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

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

علامة تبويب kte 201905


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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
thanks you so much.
This comment was minimized by the moderator on the site
Thank you so much for this VBA code and other. They have solved many of my problems, working with a huge data set!!
This comment was minimized by the moderator on the site
Thank you, the code was exactly what I needed. One question, I have data that I want repeated every other row but only to specific rows then a new string of text starts that I want repeated. How to I change the code to reflect stopping the repeat at a specific row?
This comment was minimized by the moderator on the site
FOLLOW MY INSTRUCTION ON GOOGLE.COM
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations