VBA AdvancedFilter过滤并复制没有空白（空）单元格的唯一单元格

我是新的VBA和stackoverflow.com

我正在使用此代码删除重复的单元格列中，我将唯一的单元格复制到下一列，但代码计数为空的非空白单元格的唯一数据。 好的，但我不需要复制新列中的空单元格。

ActiveSheet.Range("BA4:BA59").AdvancedFilter _ Action:=xlFilterCopy, _ CopyToRange:=ActiveSheet.Range("BB4"), _ UNIQUE:=True 

我search，发现

 SkipBlanks:=True 

，但是当我把代码添加到地狱;）

（A4 =“打印”;“打印文本”;“”）＆IF（A4 =“剪切”;“剪切文本”;“”）如何跳过空格和“ ）在单元格中可能的结果

1. 用于打印的文本
2. 用于打印的文本
3. “”
4. 文本切割
5. 文本切割

所以我只需要在新的专栏

1. 用于打印的文本
2. 文本切割

先谢谢你

Answer 1

这是一个解释： 高级AutoFilter排除某些值

find两个空单元格，我select了BA1：BA2，并将这个公式放在两个中的第二个：

 =LEN(BA5)>0 

并留下第一个空。

然后使用下面的代码：

 Range("BA4:BA9").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _ "BA1:BA2"), CopyToRange:=Range("BB4"), Unique:=True 

我能够做你想做的事情：