高级文件XlfilterCopy还返回空细胞

Question

嗨，我尝试实现高级滤镜xfiltercopy。但是问题是它也需要空白数据。因此，我们如何避免此问题。

这是我要过滤的代码

Columns("G:G").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("Z2"), Unique:=True

但在粘贴的单元格上，它甚至也占据了空行。因此，我需要避免空白文字。我的数据现在看起来像空行

Name1
Name2
Name3
Name4
Name5

在这里您可以看到name3和name4之间有一个空白单元格。因此，我们如何跳过空细胞。

Answer 1

没有提供忽略高级空白的规定，而没有提供标准范围的标准范围。但是，从结果中识别和删除空白单元很容易。

With Worksheets("sheet10")
    .Range(.Cells(2, "K"), .Cells(.Rows.Count, "K").End(xlUp)).clearcontents
    .Columns("G:G").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=.Range("K2"), Unique:=True
    With .Range(.Cells(2, "K"), .Cells(.Rows.Count, "K").End(xlUp))
        If CBool(Application.CountBlank(.Cells)) Then
            .SpecialCells(xlCellTypeBlanks).Delete shift:=xlUp
        End If
    End With
End With