新人求助，excel vba关于数组循环赋值的问题

![图片说明](https://img-ask.csdn.net/upload/201705/28/1495933103_456500.jpg

如何把 数组 比如 如图1 序号这一列 有序的插入到 图2的 ordernum 表格里面 ，插入完的效果类似图2那样有序的排列

从你这两张图中比较难看出来一些其他的东西，所以下面把行号直接写成定值而没有通过一些其他函数去取，你可以试试下面的方法
有啥不对的地方，望指正 ^_^

 Function test()

    Dim intR1, intR2, intR3, intR4
    Dim wk1, wk2

    intR1 = 12  '工作表1开始行号
    intR2 = 17  '工作表1结束行号

    intR3 = 1   '工作表1第一组开始行号，从图2看是4行为一组
    intR4 = 21 '工作表1最后一组结束行号

    Set wk1 = Worksheets("Sheet1") '工作表1表名
    Set wk2 = Worksheets("Sheet2") '工作表2表名

    Debug.Assert (intR4 - intR3) = 4 * (intR2 - intR1)

    For i = intR1 To intR2
        For j = intR3 To intR4
            If wk1.Cells(i, 4) = wk2.Cells(j + 1, 2) And wk1.Cells(i, 5) = wk2.Cells(j + 2, 2) Then
                wk2.Cells(j, 2) = wk1.Cells(i, 1)
                j = j + 4
            End If
        Next
    Next

    Set wk1 = Nothing
    Set wk2 = Nothing

End Function

通过 B码和_项目号_ 这俩个关键字 去确认_序号_吗？