版权声明：本文为博主原创文章，未经博主允许不得转载。 https://blog.csdn.net/kese7952/article/details/80282030
课件下载 ：
方式1：本节课件下载地址：链接: https://pan.baidu.com/s/1BW1T78d1zpeZq7yFbLOosg 密码: nf97
方式2：或点击此处下载
效果图
代码示例：
1.在模块1中写入下列代码：
Sub shaixuan()
Range("l1:q10000").ClearContents
Range("A1:F232").AutoFilter Field:=4, Criteria1:=Range("i2")
Range("A1:F232").Copy Range("l1")
Range("A1:F232").AutoFilter
End Sub2.在sheet1中选择通用下拉列表中的WorkSheet 右侧选择Change，写入下列代码:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Call shaixuan
Application.EnableEvents = True
End Sub
作者： 杨校
出处： https://blog.csdn.net/kese7952
分享是快乐的，也见证了个人成长历程，文章大多都是工作经验总结以及平时学习积累，基于自身认知不足之处在所难免，也请大家指正，共同进步。
本文版权归作者所有，欢迎转载，但未经作者同意必须保留此段声明，且在文章页面明显位置给出, 如有问题， 可邮件（397583050@qq.com）咨询。
