vba - 自动筛选后获取可见范围

Question

我正在尝试将过滤后的行选择到范围变量xRange中。我需要在该范围内进行一些操作。过滤之前有 10000 多行。过滤后为 5000 行。因此，在过滤之后，我尝试使用此方法来获取过滤范围，但该范围未按我的预期工作。

With Sheets("FullInvoice").Range("A1:N" & lRow)
    .AutoFilter
    .AutoFilter Field:=6, Criteria1:=">=" & fD, Criteria2:="<=" & lD

End With
Set xRange = Sheets("FullInvoice").Cells.SpecialCells(xlCellTypeVisible)

我在 Set xRange 行添加了一个断点。并尝试了 xRange.rows.count。但即使有 5000 行，它也只返回 1。所以我的目的是获取过滤后第一个单元格的单元格值。我怎样才能做到这一点。

当我尝试时

dim s as string
s=xRange.Range("A1").value

它返回整行的第一个单元格值。不是来自过滤后的行。

那么如何解决这种情况。

Answer 1

比这更容易。只需将 xrange 放入 With 中即可。另外，我会使用 Range.Cells(x,y) 而不是 Range.Range 来获取范围内的单元格:

With Sheets("FullInvoice").Range("A1:N" & lRow)
    .AutoFilter
    .AutoFilter Field:=6, Criteria1:=">=" & fD, Criteria2:="<=" & lD
    Set xrange = .SpecialCells(xlCellTypeVisible)
End With

MsgBox xrange.Cells(1, 1)