Excel 求助：创建跨工作表多级联动下拉列表

跨工作簿引用数据有效性在2003必须用VBA才能实现。
先建立工作簿Book1.xls，在A列建立数据源并保存工作簿。再建立ABC.xls工作簿并在sheet1工作表输入下面代码，如更改工作簿名称代码中的工作簿名称需作相同更改。ABC.xls工作簿从第3行起点击任何单元格均可。
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

多级联动的下拉列表，是指二级菜单根据一级菜单的内容来确定，三级菜单的内容，则根据二级菜单来确定，依此类推。
设定三级下拉菜单内容
列出你需要制作的多级下拉菜单的名称及下拉选项内容，设置数量格根据自己需求设定。 之前有发过如何制作一级下拉列表，后面会用到的。

先选中二级下拉菜单内容，然后点击【公式】【根据所选内容创建】

在弹出的对话框中将【最左列】前面的对勾取消掉，保留首行见面的对勾，然后点【确定】

点击【公式】菜单栏中的【名称管理器】工具

在弹出的对话框中我们可以看到刚刚所选的这两个省市的名称。

同样的操作方式设定第三级下拉菜单内容。选中待设定区域，点击公式根据所选内容创建。在弹出的对话框中选择首行，然后点确定。再点击名称管理器就可以看到我们设定的第三级下拉菜单内容了。

制作多级联动下拉菜单
选择第一个省级对应的单元格，使用一级下拉菜单设定方式设定第一级下拉菜单。不知道如何设置一级下拉菜单可以看一下我之前的经验分享。

设定二级下拉菜单时设定方式与设定一级下拉菜单相似，只是在数据来源单元格不是选择数据了，而是输入一个公式【=indirect(j3)】 (注意：J3是指上一级下拉菜单的单元格)

设定三级下拉菜单时设定方式与设定二级下拉菜单相同，数据来源单元格输入公式【=indirect(K3)】 (注意：K3是指上一级下拉菜单的单元格)

至此下拉菜单设定成功，抓紧时间试一试吧。

这是设置好的。在一个工作表中添加两列数据，在另一列中就可以应用了。