VBA Excel-范围选择上的溢出错误

Question

我得到了以下代码，现在当我用以下内容过滤结果时，它没有返回任何结果，但出现溢出错误。 但是我不明白为什么。 我认为这是我尝试选择较差范围的事实。 因此，我尝试检查具有值的第一个单元格是否为空。 但这目前似乎无济于事。

If Range("A2") <> "" Then
    iCtr = Range("A2", Range("A2").End(xlDown)).Count + 1
    ActiveSheet.Range("$A$1:$AB" & iCtr).AutoFilter Field:=8, Criteria1:="=1100" _
    , Operator:=xlOr, Criteria2:="=1110"
End If

因此，任何人都知道如何解决这个问题或问题是什么？

Answer 1

限定

Dim iCtr AS Long

那样可以放心地接受任意大小的范围RowCount 。

Answer 2

从上面的信息来看，很有可能是iCtr作为Integer引起了问题。 最大整数为32767，因此它不能容纳大数。 您可以将其定义为Long以避免溢出问题。

Dim iCtr As Long

作为多头，最大值将达到2147483647。