จะทำซ้ำแถวตามค่าของเซลล์ในคอลัมน์ได้อย่างไร
ตัวอย่างเช่นฉันมีช่วงของข้อมูลซึ่งมีรายการตัวเลขในคอลัมน์ D และตอนนี้ฉันต้องการทำซ้ำทั้งแถวหลายครั้งโดยยึดตามค่าตัวเลขในคอลัมน์ D เพื่อให้ได้ผลลัพธ์ต่อไปนี้ ฉันจะคัดลอกแถวหลาย ๆ ครั้งตามค่าของเซลล์ใน Excel ได้อย่างไร
 |
 |
 |
ทำซ้ำแถวหลายครั้งตามค่าของเซลล์ด้วยรหัส VBA
คัดลอกและแทรกแถวตามจำนวนครั้งที่ระบุด้วยเครื่องมือที่มีประโยชน์ - Kutools for Excel
ทำซ้ำแถวหลายครั้งตามค่าของเซลล์ด้วยรหัส VBA
หากต้องการคัดลอกและทำซ้ำทั้งแถวหลาย ๆ ครั้งตามค่าของเซลล์รหัส VBA ต่อไปนี้อาจช่วยคุณได้โปรดทำตามนี้:
1. กด ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ โมดูล หน้าต่าง.
รหัส VBA: ทำซ้ำแถวหลายครั้งตามค่าของเซลล์:
Sub CopyData()
'Updateby Extendoffice
Dim xRow As Long
Dim VInSertNum As Variant
xRow = 1
Application.ScreenUpdating = False
Do While (Cells(xRow, "A") <> "")
VInSertNum = Cells(xRow, "D")
If ((VInSertNum > 1) And IsNumeric(VInSertNum)) Then
Range(Cells(xRow, "A"), Cells(xRow, "D")).Copy
Range(Cells(xRow + 1, "A"), Cells(xRow + VInSertNum - 1, "D")).Select
Selection.Insert Shift:=xlDown
xRow = xRow + VInSertNum - 1
End If
xRow = xRow + 1
Loop
Application.ScreenUpdating = False
End Sub
3. จากนั้นกด F5 คีย์ในการเรียกใช้รหัสนี้ทั้งแถวซ้ำกันหลายครั้งตามค่าเซลล์ในคอลัมน์ D ตามที่คุณต้องการ
คัดลอกและแทรกแถวตามจำนวนครั้งที่ระบุด้วยเครื่องมือที่มีประโยชน์ - Kutools for Excel
หากคุณไม่คุ้นเคยกับโค้ด VBA และไม่สามารถเปลี่ยนพารามิเตอร์ในโค้ดได้อย่างถูกต้องด้วยตัวเอง ในกรณีนี้ Kutools สำหรับ Excel's ทำซ้ำแถว / คอลัมน์ตามค่าเซลล์ คุณลักษณะนี้สามารถช่วยให้คุณคัดลอกและแทรกแถวได้หลายครั้งตามค่าของเซลล์ด้วยการคลิกเพียงสามครั้ง
- คลิก Kutools > สิ่งที่ใส่เข้าไป > ทำซ้ำแถว/คอลัมน์ตามค่าของเซลล์ เพื่อเปิดใช้งานคุณลักษณะนี้
- จากนั้นเลือก คัดลอกและแทรกแถว ตัวเลือก และระบุเซลล์ของ แทรกช่วง และ ทำซ้ำครั้ง แยกกันในกล่องโต้ตอบ
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
