<em>excel</em> 如何双重条件跨工作簿引用数据

跨工作簿引用数据有效性在2003必须用VBA才能实现。
先建立工作簿Book1.xls，在A列建立数据源并保存工作簿。再建立ABC.xls工作簿并在sheet1工作表输入下面代码，如更改工作簿名称代码中的工作簿名称需作相同更改。ABC.xls工作簿从第3行起点e799bee5baa6e78988e69d83332击任何单元格均可。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim arr
If Target.Row < 3 Then Exit Sub
a = Target.Row: B = ActiveCell.Column
Workbooks.Open ThisWorkbook.Path & "\Book1.xls"
C = Workbooks("Book1.xls").Worksheets("Sheet1").Range("A65536").End(xlUp).Row
arr = Workbooks("Book1.xls").Worksheets("Sheet1").Range("A1:A" & C).Value
arr = Application.Transpose(arr)
With Workbooks("abc.xls").Worksheets("Sheet1").Cells(a, B).Validation
.Delete
.Add 3, 1, 1, Join(arr, ",")
End With
Workbooks("Book1.xls").Close False
End Sub

INDEX数组公式
或
VLOOKUP多条件查找
数组公式
引用必须是zd有条件的,两个工作表不管是行的或者是列上都必须有一个可以借用内索引的相同值;
假设是表1和表2上的A列有相同的值,需要借用的值在表1的B列;
表2的B1=VLOOKUP(A1,表1!A:B,2,0),然后下拉填充;
如果两个表的容第1行上有相同值,那表2的A2公式=LOOKUP(A1,表1!1:2,2,0)

描述不清晰，如果是跨工作薄引用的话，copy可以使用
Workbooks("工作薄名").Sheets("工作表名").range("单元格zd")
比如：
a=Workbooks("工作薄名").Sheets("工作表名").range("单元格")
然后判断A的值