excel - 当我使用AutoFilter的SpecialCells获取VBA中的可见单元时出现错误

我的主要目标是复制自动过滤器的可见单元格，然后将可见单元格的尺寸复制到新工作表中。我正在使用此代码：

Sheets(1).AutoFilterMode = False
Sheets(1).Range("A1:A1").AutoFilter Field:=columnaNumeroIntervalo, criteria1:=CDec(paramCantidadCriterio)
Sheets(1).Range("A1:A1").AutoFilter Field:=columnaNumeroIntervaloUnidades, Criteria1:=paramUnidadesCriterio

MsgBox AutoFilter.Range.SpecialCells(xlCellTypeVisible)(2, 11).Value

在最后一行，我想检查一个单元格的值。如果我使用Cells(2,11)而不是SpecialCells，则可以看到单元格具有工作表中的所有单元格（可见和不可见）。所以我想使用SpecialCells。

如果我使用特殊单元格，则会出现以下错误：

error '-2147417848 (80010108) in runtime. Automatization error.

对于执行的时间，它似乎进入了循环，并最终给出此错误。也许SpecialCells修改了自动过滤器，然后在每次修改中再次执行自动过滤器？

最佳答案

要使用自动筛选器的可见单元格，如果打算排除标题，则必须使用Offset。您收到的错误是因为缺少“。”。在Cells(2,11)之前

'~~> Remove any filters
ActiveSheet.AutoFilterMode = False

'~~> Filter,
With rRange
  .AutoFilter Field:=1, Criteria1:=strCriteria

  '~~> offset(to exclude headers)
  Debug.Print .Offset(1, 0).SpecialCells(xlCellTypeVisible).Cells(2,11).Value

  Debug.Print .SpecialCells(xlCellTypeVisible).Cells(2,11).Value
End With

'~~> Remove any filters
ActiveSheet.AutoFilterMode = False

我决定将此添加为此答案的一部分，以便将来对其他人有所帮助。

假设我们的范围是

A1：F6



当您运行以下代码时，取决于是否使用Offset，您将获得这些结果。

Option Explicit

Sub Sample()
    '~~> Remove any filters
    ActiveSheet.AutoFilterMode = False

    Dim rRange As Range
    Dim Rnge As Range

    Set rRange = Sheets("Sheet1").Range("A1:F6")

    '~~> Filter,
    With rRange
      .AutoFilter Field:=1, Criteria1:="<>2"

      '~~> Offset(to exclude headers)
      Set Rnge = .Offset(1, 0).SpecialCells(xlCellTypeVisible)

      Debug.Print Range(Rnge.Address).Address
      Debug.Print ActiveSheet.Cells(3, 2).Address
      Debug.Print Range(Rnge.Address).Cells(3, 2).Address

      Debug.Print "--------------------------------------------------"

      '~~> To include headers
      Set Rnge = .SpecialCells(xlCellTypeVisible)

      Debug.Print Range(Rnge.Address).Address
      Debug.Print ActiveSheet.Cells(3, 2).Address
      Debug.Print Range(Rnge.Address).Cells(3, 2).Address

    End With

    '~~> Remove any filters
    ActiveSheet.AutoFilterMode = False
End Sub

高温超导