省市区联动 excel

在Excel中实现省市区联动，可以通过VBA宏来实现。首先，在VBA编辑器中插入下面的代码 ：

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range
For Each Rng In Target
'省
If Rng.Column = 7 Then
Rng.Offset(0, 2).ClearContents
Rng.Offset(0, 1).ClearContents
Cells(Rng.Row, 108) = "=IF(ISNA(VLOOKUP(G" & Rng.Row & ",Sheet2!$A$2:$B$35,2,FALSE)),"""",VLOOKUP(G" & Rng.Row & ",Sheet2!$A$2:$B$352,2,FALSE))"
End If
'市
If Rng.Column = 8 Then
Rng.Offset(0, 1).ClearContents
Cells(Rng.Row, 109) = "=IF(ISNA(VLOOKUP(H" & Rng.Row & ",Sheet2!$D$2:$E$132,2,FALSE)),"""",VLOOKUP(H" & Rng.Row & ",Sheet2!$D$2:$E$132,2,FALSE))"
End If
'区
If Rng.Column = 9 Then
Cells(Rng.Row, 110) = "=IF(ISNA(VLOOKUP(I" & Rng.Row & ",Sheet2!$G$2:$H$707,2,FALSE)),"""",VLOOKUP(I" & Rng.Row & ",Sheet2!$G$2:$H$707,2,FALSE))"
End If
Next
End Sub

然后，在Excel中，按下Alt+F11打开VBA编辑器，在左侧的项目浏览器中双击要添加代码的工作表，在右侧的代码窗口中粘贴以上代码。保存并关闭VBA编辑器。

接下来，需要在Excel的【公式】-【名称管理器】中添加全部级联关系 。具体的添加方法可以参考【公式】-【名称管理器】中的说明。

最后，你可以下载基于Excel制作的三级联动文件 ，该文件已经包含了上述代码和名称管理器的设置，你只需要根据自己的需求进行使用。

希望以上信息能帮到你，如果还有其他问题，请随时提问。