用VBA实现高级筛选自动更新功能

youdianben

    各位大神，我是一个VBA小白，刚开始学，原先只会使用一些简单的函数。
    现在需要使用高级筛选来自动更新特定的数据，向各位请教，要求是这样的：我有一份表格，里面有两张工作表（sheet1和sheet2），sheet1里是原始数据，只有2两列，而且这个数据会不定期的有新数据输入；sheet2里是筛选后的数据，把sheet1中的重复数据给过滤了，然后存放在sheet2中，可以用于后续的其他处理。难点就是想要在sheet1中有新数据输入的时候，sheet2中的数据能自动更新。
    请各位大神帮忙解决，谢谢！文件上传不了，我贴两张图吧，一张是sheet1，一张是sheet2。

liangmutou01

Sub fz()
  Application.ScreenUpdating = False
  Set d = CreateObject("scripting.dictionary")
  ar = Range("a1").CurrentRegion.Value
  For h = 1 To UBound(ar)
    d(ar(h, 1)) = ar(h, 2)
  Next h
  With Sheets("Sheet2")
    .Cells.Clear
    .Range("a1").Resize(d.Count, 1) = Application.Transpose(d.keys)
    .Range("b1").Resize(d.Count, 1) = Application.Transpose(d.items)
    .Select
  End With
  Set d = Nothing
  Application.ScreenUpdating = True
End Sub

liangmutou01

将程序文件一并发给你。

liangmutou01

要自动的话，就用如下代码
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 2 Then Call fz
End Sub

youdianben

liangmutou01 发表于 2019-12-8 20:08
要自动的话，就用如下代码
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column =  ...

谢谢大神了，能实现我需要的功能了，这段代码我会好好研究的，谢谢

aecn

youdianben 发表于 2019-12-8 21:28
谢谢大神了，能实现我需要的功能了，这段代码我会好好研究的，谢谢

别人帮了你，应该给帮助你的人评分送朵花

youdianben

aecn 发表于 2019-12-8 21:40
别人帮了你，应该给帮助你的人评分送朵花

不好意思，没在论坛混过