แทรกแถวซ้ำๆ

ต้องการ copy row 1-6 แล้ว แทรกทุกๆ row ที่20 เช่น copy row1-6 , paste row 21,row 41, row61 มีวิธีง่ายๆไหมครับหรือว่ามี การเขียน Macro แบบกำหนดว่า ต้องการวางต่อไปอีก 10 ครั้ง ด้วยวิธีการเดิมๆ ขอบคุณครับ
คำตอบที่ได้รับเลือกจากเจ้าของกระทู้
ความคิดเห็นที่ 2
ใช้ VBA ครับ

Sub CopyMultipleRows()
Dim r As Integer
For r = 21 To 221 Step 20
Rows("1:6").Copy
Rows(r).Insert
Next r
End Sub

ลองนำไปประยุกต์ใช้ดูครับ
แสดงความคิดเห็น
โปรดศึกษาและยอมรับนโยบายข้อมูลส่วนบุคคลก่อนเริ่มใช้งาน อ่านเพิ่มเติมได้ที่นี่