这就是涉及到VLOOKUP了,内容比较深,建议百度关键词VLOOKUP。
对,这种Z作超出公式的能力
用如下VBA程序:
Sub try()
Dim rag As Range
For Each rag In Worksheets("工作表1").Range("A2:A4")
If Not Worksheets("工作表2").UsedRange.Find(rag.Value) Is Nothing Then
rag.Offset(0, 1).Value = Worksheets("工作表2").UsedRange.Find(rag.Value).Offset(0, 1).Value
End If
If Not Worksheets("工作表3").UsedRange.Find(rag.Value) Is Nothing Then
rag.Offset(0, 1).Value = Worksheets("工作表3").UsedRange.Find(rag.Value).Offset(0, 1).Value
End If
Next
End Sub