Excel ทำซ้ำแถวตามจำนวนครั้งที่ระบุ
แถวในแผ่นงาน Excel สามารถทำซ้ำตามจำนวนครั้งที่กำหนดด้วยความช่วยเหลือของฟังก์ชั่นที่ผู้ใช้กำหนด ฟังก์ชั่นที่ผู้ใช้กำหนด สามารถเขียนเพื่อ ทำซ้ำแถวตามจำนวนครั้งที่ ระบุ ความรู้บางอย่างเกี่ยวกับแนวคิดการเขียนโปรแกรมเช่นเงื่อนไข if-then-else และทำในขณะที่ลูปอาจจำเป็นต้องเขียนฟังก์ชันดังกล่าว คำสั่ง Selection.insert สามารถใช้เพื่อแทรกแถวในแผ่นงานของซอฟต์แวร์ Excel Office ไม่จำเป็นต้องเขียนโค้ดตั้งแต่เริ่มต้นเนื่องจากโค้ดขนาดสั้นสามารถใช้งานได้อย่างอิสระในแผ่นงาน อย่างไรก็ตามหนึ่งต้องมั่นใจว่าฟังก์ชั่นที่ผู้ใช้กำหนดหรือรูทีนย่อยเพื่อ ทำซ้ำแถวจำนวนครั้งที่ระบุ จะถูกแทรกในสถานที่ที่เหมาะสม
- ปัญหา
- สารละลาย
- บันทึก
ปัญหา
ไม่มีใครรู้วิธีการทำซ้ำแถวในสเปรดชีตตามจำนวนครั้งที่ระบุในเซลล์ที่มีอยู่ในแถวนั้นเช่นจากตารางนี้:
คอลัมน์ A คอลัมน์ Bปีเตอร์ 3
เจมส์ 7
เดวิด 4
ฉันต้องการผลิตตารางนี้:
คอลัมน์ A คอลัมน์ Bปีเตอร์ 3
ปีเตอร์ 3
ปีเตอร์ 3
เจมส์ 7
เจมส์ 7
เจมส์ 7
เจมส์ 7
เจมส์ 7
เจมส์ 7
เจมส์ 7
เดวิด 4
เดวิด 4
เดวิด 4
เดวิด 4
ความคิดใด ๆ เกี่ยวกับวิธีการทำเช่นนี้ง่าย ๆ ?
สารละลาย
ลองสิ่งนี้:Sub CopyData ()l สลัวตราบใดที่
RepeatFactor ติ่มซำเป็น Variant
lRow = 1
ทำในขณะที่ (เซลล์ (lRow, "A") "")
RepeatFactor = เซลล์ (lRow, "B")
ถ้า ((RepeatFactor> 1) และ IsNumeric (RepeatFactor)) จากนั้น
ช่วง (Cells (lRow, "A"), Cells (lRow, "B")) คัดลอก
ช่วง (เซลล์ (lRow + 1, "A"), เซลล์ (lRow + RepeatFactor - 1, "B")) เลือก
Selection.Insert Shift: = xlDown
lRow = lRow + RepeatFactor - 1
สิ้นสุดถ้า
lRow = lRow + 1
ห่วง
ส่วนท้าย