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 =“打印”;“用于打印的文本”;“”）和IF（A4 =“剪切”;“用于剪切的文本”;“”） 细胞中的可能结果

1. 要打印的文字
2. 要打印的文字
3. “”
4. 剪切文字
5. 剪切文字

所以我只需要新栏目

1. 要打印的文字
2. 剪切文字

提前谢谢

Answer 1

这是对Advance AutoFilter to exclude certain values

的解释

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

Client.includes([:contacts, :addresses]).where('contact.name = ?', 'example').references(:contacts)

离开第一个空。

然后使用以下代码：

=LEN(BA5)>0

我能够做你想做的事：