用VBA高级筛选且结果自动刷新的改动问题

ywen74

用VBA高级筛选且结果自动刷新的改动问题：具体问题见附件，谢谢高手指点！！

ywen74

呵呵，有高手指点不

bajifeng

是否需要重复的记录？

bajifeng

1. Sub 高级筛选() 'bajifeng
   
2. Sheet1.[b1].CurrentRegion.Copy Sheet2.[bb1]
   
3. Sheet2.[bb1].CurrentRegion.AdvancedFilter xlFilterCopy, [a1:c2], [a4:h4], False
   
4. Sheet2.[bb1].CurrentRegion.Clear
   
5. End Sub

复制代码

bajifeng

>>>>>>>>>>>>>>>>>>>>>

ywen74

bajifeng 发表于 2016-2-21 21:00
>>>>>>>>>>>>>>>>>>>>>

谢谢。试了问题解决。

ywen74

bajifeng 发表于 2016-2-21 21:00
>>>>>>>>>>>>>>>>>>>>>

不用按钮可以做到吗

bajifeng

ywen74 发表于 2016-2-21 22:02
不用按钮可以做到吗

当然可以实现，请问您的数据源是不是为sheet1?

bajifeng

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Count > 1 Then Exit Sub
   
3. If Target.Column < 4 And Target.Row < 3 Then
   
4.     Sheet1.[b1].CurrentRegion.Copy Sheet2.[bb1]
   
5.     Sheet2.[bb1].CurrentRegion.AdvancedFilter xlFilterCopy, [a1:c2], [a4:h4], False
   
6.     Sheet2.[bb1].CurrentRegion.Clear
   
7. End If
   
8. End Sub

复制代码

bajifeng

触发事件
>>>>>>>>>>>>