วิธีคัดลอกและแทรกแถวหลาย ๆ ครั้งหรือทำซ้ำแถว 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 และแทรกแถวที่คัดลอกใหม่สามแถวใต้แถวที่เลือกดูภาพหน้าจอ:
คัดลอกและแทรกแต่ละแถวหลาย ๆ ครั้งตามจำนวนที่ระบุได้อย่างง่ายดาย
โดยปกติไม่มีวิธีการที่ดีในการคัดลอกและแทรกแถวหลาย ๆ ครั้งยกเว้นการคัดลอกและแทรกด้วยตนเอง แต่ด้วย Kutools สำหรับ Excel's ทำซ้ำแถว / คอลัมน์ตามค่าของเซลล์ คุณลักษณะนี้คุณสามารถแก้ปัญหานี้ได้อย่างง่ายดาย คลิกเพื่อดาวน์โหลด Kutools for Excel!
Kutools สำหรับ Excel: ด้วย Add-in ของ Excel ที่มีประโยชน์มากกว่า 300 รายการให้ทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 60 วัน ดาวน์โหลดและทดลองใช้ฟรีทันที!
คัดลอกและแทรกแต่ละแถวหลาย ๆ ครั้งด้วยรหัส 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 Sub3. จากนั้นกด F5 คีย์เพื่อเรียกใช้รหัสนี้และกล่องพร้อมต์จะปรากฏขึ้นเพื่อเตือนให้คุณป้อนจำนวนครั้งที่คุณต้องการทำซ้ำสำหรับแต่ละระเบียนดูภาพหน้าจอ:
4. จากนั้นคลิก OKและแต่ละแถวถูกคัดลอกและแทรก 3 ครั้งด้านล่างแถวที่ใช้งานดูภาพหน้าจอ:
|
|
|
หมายเหตุ: ในโค้ดด้านบนไฟล์ A ระบุว่าช่วงข้อมูลเริ่มต้นที่คอลัมน์ A หากข้อมูลของคุณเริ่มต้นที่คอลัมน์ Kโปรดเปลี่ยน A ไปยัง K ตามความต้องการของคุณ
คัดลอกและแทรกแต่ละแถวหลาย ๆ ครั้งตามจำนวนเฉพาะพร้อมคุณสมบัติที่ยอดเยี่ยม
บางทีคุณอาจไม่คุ้นเคยกับรหัส VBA หรือกังวลว่าโค้ดจะทำให้ข้อมูลของคุณผิดพลาด ที่นี่ฉันจะแนะนำคุณสมบัติที่มีประโยชน์ Kutools สำหรับ Excel's แถว / คอลัมน์ซ้ำกันตามค่าของเซลล์ด้วยยูทิลิตี้นี้คุณสามารถคัดลอกและแทรกแถวตามจำนวนที่คุณระบุได้อย่างรวดเร็ว
ทิปส์:ที่จะใช้สิ่งนี้ แถว / คอลัมน์ซ้ำกันตามค่าของเซลล์ ประการแรกคุณควรดาวน์โหลดไฟล์ Kutools สำหรับ Excelแล้วใช้คุณสมบัตินี้อย่างรวดเร็วและง่ายดาย
หลังจากการติดตั้ง Kutools สำหรับ Excelโปรดทำตามนี้:
1. ป้อนตัวเลขซ้ำที่คุณต้องการทำซ้ำแถวในรายการเซลล์ข้างข้อมูลของคุณดูภาพหน้าจอ:
2. คลิก Kutools > สิ่งที่ใส่เข้าไป > แถว / คอลัมน์ซ้ำกันตามค่าของเซลล์ดูภาพหน้าจอ:
3. ใน คัดลอกและแทรกแถวและคอลัมน์ ใหเลือก คัดลอกและแทรกแถว ตัวเลือกใน ชนิดภาพเขียน จากนั้นเลือกช่วงข้อมูลที่คุณต้องการทำซ้ำจากนั้นระบุเวลาทำซ้ำเพื่อทำซ้ำแถวดูภาพหน้าจอ:
4. จากนั้นคลิก Ok or ใช้ คุณจะได้รับผลลัพธ์ต่อไปนี้ตามที่คุณต้องการ:
|
|
 |
คลิกเพื่อดาวน์โหลด Kutools สำหรับ Excel และทดลองใช้ฟรีทันที!
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
