نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

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

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

إدراج نفس النص في كل صف واحد مع التعليمات البرمجية فبا

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

علامة تبويب Office تمكين التحرير والتصفح في Tabbed ، وجعل عملك أسهل بكثير ...
Kutools for Excel يحل معظم مشاكلك ، ويزيد من إنتاجيتك بنسبة 80٪
  • إعادة استخدام أي شيء: أضف الصيغ الأكثر استخدامًا أو تعقيدًا والمخططات وأي شيء آخر إلى مفضلاتك ، ثم أعد استخدامها سريعًا في المستقبل.
  • أكثر من ميزات نص 20: استخراج الرقم من سلسلة النص ؛ استخراج أو إزالة جزء من النصوص ؛ تحويل الأرقام والعملات إلى الكلمات الإنجليزية ...
  • دمج الأدوات: العديد من المصنفات والأوراق في واحد ؛ دمج خلايا / صفوف / أعمدة متعددة دون فقدان البيانات ؛ دمج الصفوف المكررة ومجموع ...
  • أدوات الانقسام: تقسيم البيانات إلى أوراق متعددة بناءً على القيمة ؛ مصنف واحد إلى ملفات Excel أو PDF أو CSV متعددة ؛ عمود واحد إلى أعمدة متعددة ...
  • لصق الطفر الصفوف المخفية / المصفاة ؛ عدد ومبلغ بواسطة لون الخلفية. إنشاء قائمة بريدية و إرسال رسائل البريد الإلكتروني حسب قيمة الخلية...
  • فلتر سوبر: إنشاء مخططات تصفية متقدمة وتطبيقها على أي أوراق ؛ فرز حسب الأسبوع ، اليوم ، التردد وغير ذلك ؛ تصفية / فلترة بواسطة جريئة ، الصيغ ، التعليق ...
  • أكثر من ميزات 300 القوية ؛ يعمل مع Office 2007-2019 و 365 ؛ يدعم جميع اللغات ؛ سهولة النشر في مؤسستك أو مؤسستك.


السهم الأزرق الفقاعة اليمنى إدراج نفس النص في كل صف واحد مع التعليمات البرمجية فبا

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

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

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


السهم الأزرق الفقاعة اليمنى إدراج نفس النص في كل صف آخر مع كوتولس ل إكسيل

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

كوتولس ل إكسيل : مع أكثر من شنومكس مفيد اكسل الإضافية، مجانا في محاولة مع عدم وجود قيود في أيام شنومكس.

1. انقر Kutools > إدراج > إدراج العناوين الصفوف لتمكين هذه الأداة. انظر لقطة الشاشة:

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

1). حدد نطاق النصوص التي تريد إدراجها في كل صف n في نطاق العنوان صندوق؛

2). حدد النطاق الذي تحتاجه لإدراج نصوص في إدراج نطاق صندوق؛

3). حدد رقم الصف الفاصل في صفوف الفاصل الزمني صندوق. إذا كنت ترغب في إدراج نص في كل صف واحد، يرجى إدخال شنومكس في المربع، ولكل صف n، يرجى إدخال n في المربع؛

4). انقر على OK .

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


Kutools for Excel يحل معظم مشاكلك ، ويزيد من إنتاجيتك بنسبة 80٪

  • إعادة استخدام: إدراج بسرعة الصيغ المعقدة ، الرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة المرور إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر الفورمولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (بسهولة قراءة وتحرير أعداد كبيرة من الخلايا) ؛ لصق على المدى المصفى...
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ انقسام خلايا المحتوى ؛ الجمع بين تكرار الصفوف / الأعمدة... منع الخلايا المكررة. مقارنة النطاقات...
  • حدد تكرار أو فريد الصفوف. حدد صفوف فارغة (جميع الخلايا فارغة) ؛ سوبر البحث والعثور غامض في العديد من المصنفات ؛ اختيار عشوائي ...
  • نسخة طبق الأصل خلايا متعددة دون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة. إدراج الرصاصات، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، حذف حسب الموضع ، إزالة الفضاء. إنشاء وطباعة مجاميع ترحيل الصفحات ؛ تحويل بين محتوى الخلايا والتعليقات...
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ تصنيف متقدم حسب الشهر / الأسبوع / اليوم ، التردد وأكثر ؛ فلتر خاص بواسطة جريئة ، مائل ...
  • الجمع بين المصنفات وأوراق العمل. دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; دفعة تحويل XLS ، XLSX وقوات الدفاع الشعبي...
  • أكثر من ميزات 300 القوية. يدعم Office / Excel 2007-2019 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. ميزات كاملة النسخة التجريبية المجانية من 30.
علامة التبويب kte 201905

علامة تبويب Office توفر واجهة مبوبة لـ Office ، واجعل عملك أسهل بكثير

  • تمكين تحرير علامات التبويب والقراءة في Word و Excel و PowerPointوالناشر والوصول ، Visio ومشروع.
  • افتح مستندات متعددة وقم بإنشائها في علامات تبويب جديدة لنفس النافذة ، وليس في نوافذ جديدة.
  • يزيد إنتاجيتك بنسبة 50٪ ، ويقلل مئات نقرات الماوس لك كل يوم!
أسفل مكتبه
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    xona · 3 months ago
    thanks you so much.
  • To post as a guest, your comment is unpublished.
    Nadja · 1 years ago
    Thank you so much for this VBA code and other. They have solved many of my problems, working with a huge data set!!
  • To post as a guest, your comment is unpublished.
    Jewel · 2 years ago
    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?