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

Question

我也是 VBA 和 stackoverflow.com 的新手

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

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

我找了找

SkipBlanks:=True

，但是当我添加它时，代码就完蛋了；）

请告诉我如何跳过空格和“” cels 具有重复项的列包含 IF 公式 IF(A4="Print";"Text for printing";"")&IF(A4="Cut";"Text for cutting";"") 细胞中可能的结果

1. 打印文本
2. 打印文本
3. ""
4. 用于剪切的文本
5. 用于剪切的文本

所以我只需要在新列中

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

提前谢谢你

Answer 1

这是对Advance AutoFilter to exclude certain values的解释

找到两个空单元格，我选择了 BA1:BA2 并将这个公式放在两个中的第二个中：

=LEN(BA5)>0

并留下第一个 Empty。

然后使用以下代码：

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

我可以做你想做的：