vb里怎么跨数据表 直接引用 VLOOKUP函数,代码正确立即采纳答:Sub gTEd()Dim arr, brrarr = Sheet2.UsedRangebrr = Sheet1.UsedRangeFor a = 2 To UBound(arr) arr(a, 4) = WorksheetFunction.VLookup(arr(a, 1), brr, 2, 0)NextSheet2.[a1].Resize(UBound(arr, 1), UBound(arr, 2)) = arrEnd Sub ...