错误："无单元格"。如果为 true，则使用 if 退出 sub，但错误不断弹出

Question

下面的代码是较大代码的一部分，其中某些数据是使用自动筛选筛选的。在大多数情况下，过滤后的单元格中有数据。但是，在某些情况下没有数据，并且在尝试使用copy时，我收到错误"无单元格"。这是有道理的。

因此，如果过滤的单元格中没有数据，我正在尝试使用以下代码退出 sub。但是"无单元格"错误不断在代码的第一行中弹出。

我已经测试了该范围，并且填充正确。

我试过.Cells.Count，只是.Count.什么都没用。

有人可以帮助我吗？

If .Range("C5:C" & lastrow).SpecialCells(xlCellTypeVisible).Cells.Count = 0 Then
    .AutoFilterMode = False
    Exit Sub
End If

Answer 1

每当您使用SpecialCells时，请将它们夹在OERN和OEGTO之间，如下所示

这是你正在尝试的吗？（未经测试）

On Error Resume Next
Set rng = .Range("C5:C" & lastrow).SpecialCells(xlCellTypeVisible)
On Error GoTo 0
If rng Is Nothing Then
    .AutoFilterMode = False
    Exit Sub
End If