主题：代码效率求助

需求时 对A表“物料测试”表进行循环遍历

对 每行数据 对表B "物料“ 表进行 select查找

将查找到的行的 名称 及规格型号 重新赋值  （即批量将表B的名称，规格型号 进行全部修改）

以下代码 目前测试，一条数据需要0.2652秒左右 ， 30条数据需要2.137秒，如果是2万条数据那就需要 40分钟了

Dim st As Date = Date.Now  '要测试耗时的代码

Dim drs As List(Of DataRow)

drs = DataTables("物料测试").Select("测试 = true")

For Each dr As DataRow In drs

    Dim drbs As List(Of DataRow)

    drbs = DataTables("物料").Select("[代码] = '" & dr("代码") & "'")

    For Each drb As DataRow In drbs

        drb("名称") = dr("名称")

        drb("规格型号") = dr("规格型号")        

    Next

Next

msgbox("完成耗时:" & Format((Date.Now - st).TotalSeconds,"0.0000") & "秒")

如何修改本代码。提高效率。

如果使用网络EXCEL平台 这样的操作是秒级完成的。