![图片说明](https://img-ask.csdn.net/upload/201705/28/1495933103_456500.jpg
如何把 数组 比如 如图1 序号这一列 有序的插入到 图2的 ordernum 表格里面 ,插入完的效果类似图2那样有序的排列
![图片说明](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