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

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

إدراج نفس النص في كل صف باستخدام كود VBA
إدراج نفس النص في كل صف آخر باستخدام Kutools لـ Excel

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

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

1. في ورقة العمل، اضغط على مفتاحي Alt + F11 معًا لفتح نافذة Microsoft Visual Basic for Application.

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

3. انسخ والصق الكود التالي لـ VBA في محرر الأكواد.

كود VBA: إدراج نفس النص في كل صف في Excel

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

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

إدراج نفس النص في كل صف آخر باستخدام Kutools لـ Excel

مع الكود أعلاه، يمكنك فقط إدراج النص في كل صف. ماذا عن إدراج النص في كل صف n في Excel؟ في هذا القسم، سنوضح لك أداة إدراج صفوف العناوين في Kutools لـ Excel. باستخدام هذه الأداة، يصبح إدراج النص في كل صف nth سهلًا.

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

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

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