excel - excel中行的递归

Question

我正在尝试编写一个用于在 excel 中递归行的 vba 代码。下面是我的代码。我想将几行复制为一组，而不是单独的行。我附上了代码应该如何工作的图像。请帮忙。提前致谢。

代码：

For y = 2 To end_IA
    If Worksheets("Task").Cells(y, "A") = "Task1" Then
        Worksheets("Task").Cells(y, "C").Value = nocopies
    End If
    If Worksheets("Task").Cells(y, "A") = "Task2" Then
        Worksheets("Task").Cells(y, "C").Value = nocopies
    End If
    If Worksheets("Task").Cells(y, "A") = "Task3" Then
        Worksheets("Task").Cells(y, "C").Value = nocopies
    End If
Next y

For y = 2 To end_Tasks
    For n = 1 To nocopies

        Worksheets("Task").Cells(y, "A").Copy
        Worksheets("Task").Paste Destination:=Worksheets("Data_Sheet").Cells(end_Data + 1, 1)

        Worksheets("Task").Cells(y, "B").Copy
        Worksheets("Task").Paste Destination:=Worksheets("Data_Sheet").Cells(end_Data + 1, 2)

        end_Data = end_Data + 1
    Next n

Next y

End Sub

源数据：

预期结果：

任务表 当前结果

标签： excelvba