高级filter错误

我正在尝试创build一个唯一的列表,但列表中的第一个值是空白,这似乎是导致我一个问题。 当我使用基本的高级filter时,它基本上只是命名范围“提取”并复制格式。 所以F2等于`Extract'如下, 在这里输入图像说明

我已经尝试了使用标准范围的许多方法,但似乎没有任何工作。 理想情况下,我希望这是VBA代码,但手动高级filter不起作用。 澄清我正在像这样寻找,

在这里输入图像说明

我在这里看到一个类似的问题,它只是不适合我。 有没有人有任何想法我做错了? 这是“复制到新的位置”选项,这是搞砸了吗? 理想情况下,我需要它是独特的领域,但我似乎得到相同的结果,有或没有唯一字段唯一方框打勾。

最终我希望这是代码,但是,当我在VBA中运行下面时,我得到一个运行时错误。 Range("E2:E5").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _ "h1:h2"), CopyToRange:=Range("F2"), Unique:=True

编辑

在这里输入图像说明

使用<>标准来排除空白。

在这里输入图像描述

顺便说一句,你的列表范围应该是E1:E5和H1应该是偏移值 。 高级filter需要一个标题。