วิธีแทรกข้อความเดียวกันในทุกแถวใน Excel

ในบทความนี้ เราจะแสดงวิธีแทรกข้อความเดียวกันในทุกแถวใน Excel อ่านรายละเอียดเพิ่มเติม

แทรกข้อความเดียวกันในทุก ๆ แถวด้วยรหัส VBA
แทรกข้อความเดียวกันในทุกแถวด้วย Kutools for Excel

แทรกข้อความเดียวกันในทุก ๆ แถวด้วยรหัส VBA

สมมติว่าคุณต้องการแทรกข้อความ "ชื่อ" "ข้อมูล" และ "คะแนน" ในทุก ๆ แถวภายในช่วงที่ระบุ ดังที่แสดงในภาพหน้าจอด้านล่าง โปรดลองใช้โค้ด VBA ต่อไปนี้

1. ในแผ่นงานกด อื่น ๆ + F11 พร้อมกันเพื่อเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

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 for Excel

ด้วยรหัสด้านบนคุณสามารถแทรกข้อความในทุก ๆ แถวได้ วิธีการแทรกข้อความในทุก n แถวใน Excel? ในส่วนนี้เราจะแสดงไฟล์ แทรกแถวชื่อเรื่อง ประโยชน์ของ Kutools สำหรับ Excelด้วยยูทิลิตี้ตัวนี้ การแทรกข้อความในทุกแถวที่ n กลายเป็นเรื่องง่าย

1 คลิก Kutools > สิ่งที่ใส่เข้าไป > แทรกชื่อเรื่อง เพื่อเปิดใช้งานยูทิลิตี้นี้

2 ใน แทรกชื่อเรื่อง คุณต้อง:

ตอนนี้ข้อความที่ระบุถูกแทรกในทุก n แถวในช่วงที่เลือก