主题：[求助]数据合并代码优化

请问一下合并数据有没有好的优化方式，我这1200才多行数据运行起来略慢啊

或者有没有其他的实现方法

目的是为了实现将物料需求中指定列的数据录入出库信息表中

If Tables("物料需求").rows.Count > 0 Then

            For Each r1 As Row In Tables("物料需求")

                If r1("物料需求_" & rq.text) > 0 Then    

                    Dim  r2 As Row = Tables("出库信息").AddNew

                    r2("零件号") = r1("零件号")

                    r2("出库数量") = r1("物料需求_" & rq.text)                    

                End If

            Next

End If