Excel - แมโครเพื่อคัดลอกแถว X จำนวนครั้ง

แมโคร สามารถใช้ในซอฟต์แวร์ Excel office เพื่อ คัดลอกแถวเป็นจำนวน x ครั้ง งานที่ทำซ้ำเช่นการคัดลอกข้อมูลจากแถวด้วยตนเองกลายเป็นไปไม่ได้ถ้าจำนวนของระเบียนในแผ่นงาน Excel สูงเกินไป แม้สำหรับแผ่นงานขนาดเล็กก็แนะนำให้ใช้ มาโครสำหรับงาน เช่น การคัดลอกแถวสำหรับจำนวน X ในแผ่นงาน มาโคร ทำงานโดยอัตโนมัติด้วยการแทรกแซงของมนุษย์น้อยที่สุดลดโอกาสของข้อผิดพลาด สามารถดาวน์โหลดมาโครแบบเขียนล่วงหน้าได้จากแหล่งข้อมูลออนไลน์ต่างๆและเปลี่ยนแปลงเพื่อให้ทำงานที่ต้องการ อาจจำเป็นต้องมีความรู้เกี่ยวกับการเขียนโปรแกรม

ปัญหา

ฉันต้องการที่จะใช้แถวแรกในสเปรดชีตของฉันคัดลอกจำนวน "X" จากนั้นนำแถวถัดไปคัดลอกจำนวน "X" ที่เท่ากันจนกระทั่งสิ้นสุดแถว

ตัวอย่าง

 ColA ColB TextC TextA1 TextA2 TextB1 TextB1 TextB1 TextB1 TextB1 TextC1 TextB1 TextB1 TextB1 TextB1 TextA2 TextA1 TextA1 TextA1 TextA1 TextB1 TextB1 TextB1

สารละลาย

นี่คือมาโคร:

 การทดสอบย่อย () Dim rng เป็น Range, c As Range Dim rng1 เป็น Range, c1 เป็น Range Dim dest เป็น Range, j As Integer, k As Integer Worksheets ("sheet2") Cells.Clear ด้วย Worksheets ("sheet1") Set rng = ช่วง (.Range ("A2"), .Range ("A2"). สิ้นสุด (xlDown)) j = WorksheetFunction.CountA (.Rows (. 1: 1 ")) 'msgbox j สำหรับแต่ละ c In rng Set rng1 = ช่วง (c.Offset (0, 1), .Cells (c.Row, Columns.Count) .End (xlToLeft)) 'msgbox rng1.Address สำหรับแต่ละ c1 ใน rng1 Set dest = แผ่นงาน ("แผ่นงาน 2") เซลล์ (Rows.Count, "a"). End (xlUp) .Offset (1, 0) 'msgbox dest.Address ถ้า c1 = "" จากนั้นไปที่ line1 dest.Offset (0, 0) = c dest.Offset (0, 1) =. เซลล์ (1, c1.Column) 'dest.Offset (0, 2) = c1 line1: ถัดไป c1 ถัดไป c สิ้นสุดด้วย End Sub

วิธีอื่น - ตารางสาระสำคัญของฐานข้อมูล -

ref: บล็อก wlakenbach

//spreadsheetpage.com / ...