วิธีคัดลอกและแทรกแถวหลาย ๆ ครั้งหรือทำซ้ำแถว x ครั้งใน Excel

ในการทำงานประจำวันของคุณคุณเคยพยายามคัดลอกแถวหรือแต่ละแถวแล้วแทรกหลาย ๆ ครั้งด้านล่างแถวข้อมูลปัจจุบันในแผ่นงานหรือไม่? ตัวอย่างเช่นฉันมีช่วงของเซลล์ตอนนี้ฉันต้องการคัดลอกแต่ละแถวและวาง 3 ครั้งในแถวถัดไปตามภาพหน้าจอต่อไปนี้ คุณจะจัดการกับงานนี้ใน Excel ได้อย่างไร?

• คัดลอกและแทรกแถวเฉพาะหลาย ๆ ครั้งด้วยรหัส VBA
• คัดลอกและแทรกแต่ละแถวหลาย ๆ ครั้งด้วยรหัส VBA
• คัดลอกและแทรกแต่ละแถวหลาย ๆ ครั้งตามจำนวนเฉพาะพร้อมคุณสมบัติที่ยอดเยี่ยม

คัดลอกและแทรกแถวเฉพาะหลาย ๆ ครั้งด้วยรหัส VBA

หากคุณต้องการทำซ้ำเพียงแถวเดียว x ครั้งโค้ด VBA ต่อไปนี้อาจช่วยคุณได้โปรดดำเนินการดังนี้:

1. ระบุแถวที่คุณต้องการคัดลอกและแทรกหลาย ๆ ครั้งจากนั้นกดไฟล์ ALT + F11 จากนั้นจะเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ โมดูล หน้าต่าง.

รหัส VBA: ทำซ้ำแถวเดียวหลาย ๆ ครั้ง:

Sub test()
'Updateby Extendoffice
    Dim xCount As Integer
LableNumber:
    xCount = Application.InputBox("Number of Rows", "Kutools for Excel", , , , , , 1)
    If xCount < 1 Then
        MsgBox "the entered number of rows is error, please enter again", vbInformation, "Kutools for Excel"
        GoTo LableNumber
    End If
    ActiveCell.EntireRow.Copy
    Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(xCount, 0)).EntireRow.Insert Shift:=xlDown
    Application.CutCopyMode = False
End Sub

3. หลังจากวางรหัสแล้วกรุณากด F5 คีย์เพื่อเรียกใช้รหัสนี้และกล่องพร้อมต์จะปรากฏขึ้นเพื่อเตือนให้คุณป้อนจำนวนครั้งที่คุณต้องการทำซ้ำดูภาพหน้าจอ:

4. จากนั้นคลิก OK และแทรกแถวที่คัดลอกใหม่สามแถวใต้แถวที่เลือกดูภาพหน้าจอ:

คัดลอกและแทรกแต่ละแถวหลาย ๆ ครั้งด้วยรหัส VBA

หากต้องการทำซ้ำแต่ละแถวหลาย ๆ ครั้งในช่วงคุณสามารถใช้รหัส VBA ต่อไปนี้ได้โปรดทำตามด้านล่าง:

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

2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ โมดูล หน้าต่าง.

รหัส VBA: ทำซ้ำแต่ละแถวหลายครั้ง:

Sub insertrows()
'Updateby Extendoffice
Dim I As Long
Dim xCount As Integer
LableNumber:
xCount = Application.InputBox("Number of Rows", "Kutools for Excel", , , , , , 1)
If xCount < 1 Then
MsgBox "the entered number of rows is error ,please enter again", vbInformation, "Kutools for Excel"
GoTo LableNumber
End If
For I = Range("A" & Rows.CountLarge).End(xlUp).Row To 2 Step -1
Rows(I).Copy
Rows(I).Resize(xCount).Insert
Next
Application.CutCopyMode = False
End Sub

3. จากนั้นกด F5 คีย์เพื่อเรียกใช้รหัสนี้และกล่องพร้อมต์จะปรากฏขึ้นเพื่อเตือนให้คุณป้อนจำนวนครั้งที่คุณต้องการทำซ้ำสำหรับแต่ละระเบียนดูภาพหน้าจอ:

4. จากนั้นคลิก OKและแต่ละแถวถูกคัดลอกและแทรก 3 ครั้งด้านล่างแถวที่ใช้งานดูภาพหน้าจอ:

คัดลอกและแทรกแต่ละแถวหลาย ๆ ครั้งตามจำนวนเฉพาะพร้อมคุณสมบัติที่ยอดเยี่ยม

บางทีคุณอาจไม่คุ้นเคยกับรหัส VBA หรือกังวลว่าโค้ดจะทำให้ข้อมูลของคุณผิดพลาด ที่นี่ฉันจะแนะนำคุณสมบัติที่มีประโยชน์ Kutools สำหรับ Excel's แถว / คอลัมน์ซ้ำกันตามค่าของเซลล์ด้วยยูทิลิตี้นี้คุณสามารถคัดลอกและแทรกแถวตามจำนวนที่คุณระบุได้อย่างรวดเร็ว

หลังจากการติดตั้ง Kutools สำหรับ Excelโปรดทำตามนี้:

1. ป้อนตัวเลขซ้ำที่คุณต้องการทำซ้ำแถวในรายการเซลล์ข้างข้อมูลของคุณดูภาพหน้าจอ:

2. คลิก Kutools > สิ่งที่ใส่เข้าไป > แถว / คอลัมน์ซ้ำกันตามค่าของเซลล์ดูภาพหน้าจอ:

3. ใน คัดลอกและแทรกแถวและคอลัมน์ ใหเลือก คัดลอกและแทรกแถว ตัวเลือกใน ประเภท จากนั้นเลือกช่วงข้อมูลที่คุณต้องการทำซ้ำจากนั้นระบุเวลาทำซ้ำเพื่อทำซ้ำแถวดูภาพหน้าจอ:

4. จากนั้นคลิก Ok or สมัครสมาชิก คุณจะได้รับผลลัพธ์ต่อไปนี้ตามที่คุณต้องการ:

คลิกเพื่อดาวน์โหลด Kutools สำหรับ Excel และทดลองใช้ฟรีทันที!