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。