表1数据与表2某列数值相同时复制数据

sc204400

当表2的L列与表1的C列相同时，复制表1 的B、F列到表2的M.N列，附件中代码数据量少时可以执行，但是当表2的数据量大于10万行时，通过遍历的方式执行时间非常长，可否改进一下取数方式 查找复制.rar (17.6 KB, 下载次数: 7)

2023-4-11 10:30 上传

点击文件名下载附件

杨建营

数据量大还是找老师用数据库吧。

qiao1019

我看你采购订单页同一个订单号有多比，以哪一笔为准呢？

qiao1019

把工作表改成数组了，你试下，不过还是前面一个问题要弄清楚，你以哪个订单为准，不然前面的会被后面的覆盖
Sub CopyData()
    Dim sheet1 As Worksheet
    Dim sheet2 As Worksheet
    Dim lastRow1 As Long
    Dim lastRow2 As Long
    Dim i As Long
    Dim j As Long
   
    Set sheet1 = ThisWorkbook.Sheets("采购订单")
    Set sheet2 = ThisWorkbook.Sheets("收货单")
    arr1 = sheet1.[a1].CurrentRegion
    arr2 = sheet2.[a2].CurrentRegion
    For i = 2 To UBound(arr1)
        For j = 2 To UBound(arr2)
            If arr1(i, 3) = arr2(j, 12) Then
                arr2(j, 13) = arr1(i, 2)
                arr2(j, 14) = arr1(i, 6)
            End If
        Next j
    Next i
    sheet2.[a1].Resize(UBound(arr2, 1), UBound(arr2, 2)) = arr2
    Set sheet1 = Nothing
    Set sheet2 = Nothing
End Sub

sc204400

qiao1019 发表于 2023-4-11 10:56
我看你采购订单页同一个订单号有多比，以哪一笔为准呢？

订单号只有一个，复制到表2中不考虑重复项，只要订单号一致就行不分前后

3190496160

10万行数据，代码还频繁的操作单元格，速度肯定慢，可以用数组+字典，应该不会很慢

sc204400

3190496160 发表于 2023-4-11 11:51
10万行数据，代码还频繁的操作单元格，速度肯定慢，可以用数组+字典，应该不会很慢

数组不精通，学艺不精只能处理简单的，

ykcbf1100

字典+数组

附件供参考。。。

sc204400

ykcbf1100 发表于 2023-4-11 12:43
字典+数组

附件供参考。。。

效率高，速度快