如何根据Excel VBA中另一列的编号在Excel中插入/复制

基本上，我想用一种简单的方法实现以下示例场景： 根据数字行复制A、B和C的次数。 当然，在实际案例中，行数远远超过下面的示例

从

到

有什么捷径吗

跟进,

---

下面的函数和VBA解决了我上面的问题

使用下面的函数获取第一列

=INDEX(Sheet1!A:A,ROUNDUP(ROW()/5,0))

有人知道该零件对应的VBA代码吗？该功能可以工作，但是，当有太多行时，它不是很方便。这将是伟大的设置范围在VBA

第二列使用了VBA代码，如下所示（尝试了多个列，因此be VBA与问题略有不同）：

Sub宏1（）
'
'宏1宏
'
最后一排一样长
'细分总行数
a=工作表（“sheet1”）。单元格（Rows.Count，1）。结束（xlUp）。行
'项目总行数
b=工作表（“sheet1”）.单元格（Rows.Count，2）.结束（xlUp）.行
图纸（“图纸1”）。选择
'项目总单元格范围
范围（“B1:C5”）。副本
范围（“F1”）。选择
纸张（“纸张1”）。粘贴
'行号需要为-1，因为上面完成了第一次复制
对于i=1到A-1
lastRow=工作表（“Sheet1”）。单元格（Rows.Count，“F”）。结束（xlUp）。行+1
范围（“F”和最后一行）。选择
活动表。粘贴
下一个
端接头

下面的函数和VBA解决了我上面的问题

使用下面的函数获取第一列

=INDEX(Sheet1!A:A,ROUNDUP(ROW()/5,0))

=索引（表1！A:A，汇总（行（）/5,0））

有人知道该零件对应的VBA代码吗？该功能可以工作，但是，当有太多行时，它不是很方便。这将是伟大的设置范围在VBA

第二列使用了VBA代码，如下所示（尝试了多个列，因此be VBA与问题略有不同）：

---

最快的方法是将您已有的代码包含到您的问题中，并告诉您在哪里遇到了问题或错误。否则它只是要求我们为你做所有的工作。阅读可以帮助你改进你的问题。如果你想问问题，请把所有的东西都放在问题部分。你不能在回答部分提问，因为我们不能在这里回答后续问题。我建议您将所有内容复制到原始问题中，并在此处删除此答案。

=INDEX(Sheet1!A:A,ROUNDUP(ROW()/5,0))

Sub Macro1()
'
' Macro1 Macro
'
 Dim lastRow As Long

 ' Subdivision total row number
    a = Worksheets("sheet1").Cells(Rows.Count, 1).End(xlUp).Row
  ' Porject total row number
    b = Worksheets("sheet1").Cells(Rows.Count, 2).End(xlUp).Row
        Sheets("Sheet1").Select
    ' Project total cell range
    Range("B1:C5").Copy
    Range("F1").Select
    Sheets("Sheet1").Paste
    ' Row number need to -1 as the first copy is done above
  For i = 1 To A - 1
    lastRow = Sheets("Sheet1").Cells(Rows.Count, "F").End(xlUp).Row + 1
    Range("F" & lastRow).Select
    ActiveSheet.Paste
  Next
End Sub