主题：EXCEL的VLOOKUP功能-急

     正好，我前几天，也是要这样的倒数据，几千、几万条啊，手工才倒了十几条，就头晕眼花了，后来写了下面的代码，几秒钟就搞定了。

在其中一张表的click事件中，其他事件，或菜单按钮，或窗口按钮，随意。

For i1 As Integer = 0 To Tables("表A").Rows.Count - 1
    For i2 As Integer = 0 To Tables("表B").Rows.Count - 1
        If Tables("表B").Rows(i2)("物料号") = Tables("表A").Rows(i1)("物料号") Then
            Tables("表B").Rows(i2)("价格")  = Tables("表A").Rows(i1)("价格")
        Else
            Continue For
        End If
    Next
Next